macro excel per numeri maglie

[peter78]

ciao ragazzi mi affido a voi
allora vi spiego il mio problema.... da premettere che non so niente di macro .. ...un esmpio sarebbe gradito
io avrei in un foglio( lo chiamo foglio 1) excel una serie di dati ad esmpio da
A1 a A20
poi
da B1 a B20
ed infine
da C1 a C20
ogni colonna con i dati A B C sono i risultati di altre celle con relative formule
adesso io ad ogni colonna A B C ci vorrei mettere un pulsante per ogni colonna(quindi pulsante A,pulsante B e pulsante C) , che ricopi i dati visualizzati da A1 a A20 dal foglio 1 al foglio 2, nelle celle del secondo foglio da da D1 a D20
altra cosa importante è questa
che se schiaccio pulsante A deve copiare nel foglio 2 i dati compresi tra A1 e A20, se schiaccio il pulsante B mi deve copiare i dati da B1 a B20... ecc.....quindi a seconda il pulsante che schiaccio deve inserire i dati di quella colonna ed omettere le restanti altre

aggiungo mi serve per la gestione di una squadra calcistica
le varie colonne sono le divise quindi divisa arancio colonna A,divisa azzurra colonna B e divisa gialla colonna C
nelle varie celle da a A1 a A20 ci sta il numero della maglia adesso io cliccando sul pulsante A
i numeri della maglia arancio devono essere riportati nella distinta (foglio 2 dalla cella D1 a D20)se invece clicco sul pulsante B allora in questo caso mi deve riportare in distinta( foglio 2 celle D1 a D20)

spero di avermi spiegato e di non aver fatto troppi casini grazie...

[Flash30005]

Ciao Peter78 e benvenuto nel Forum

Con queste tre macro (ognuna assegnata ad un pulsante o forma colorata)
otterrai quanto da te specificato

Codice: Seleziona tutto

Sub CopiaA()
UD = Worksheets("Foglio2").Range("D" & Rows.Count).End(xlUp).Row
Worksheets("Foglio2").Range("D1:D" & UD).ClearContents
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Foglio1").Range("A1:A" & UR).Copy Destination:=Worksheets("Foglio2").Range("D1")
End Sub
Sub CopiaB()
UD = Worksheets("Foglio2").Range("D" & Rows.Count).End(xlUp).Row
Worksheets("Foglio2").Range("D1:D" & UD).ClearContents
UR = Worksheets("Foglio1").Range("B" & Rows.Count).End(xlUp).Row
Worksheets("Foglio1").Range("B1:B" & UR).Copy Destination:=Worksheets("Foglio2").Range("D1")
End Sub
Sub CopiaC()
UD = Worksheets("Foglio2").Range("D" & Rows.Count).End(xlUp).Row
Worksheets("Foglio2").Range("D1:D" & UD).ClearContents
UR = Worksheets("Foglio1").Range("C" & Rows.Count).End(xlUp).Row
Worksheets("Foglio1").Range("C1:C" & UR).Copy Destination:=Worksheets("Foglio2").Range("D1")
End Sub


Allego il file

(Le colonne possono anche avere più linee delle 20 richieste)

Fai sapere
ciao

[peter78]

ciao inanzitutto grazie per avermi risposto
poi ho preso il tuo codice e modificato in base alle mie esigenze:


Sub artglass()
UD = Worksheets("stampa").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("stampa").Range("A15:A" & UD).ClearContents
UR = Worksheets("inserimento").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("inserimento").Range("A56:A" & UR).Copy Destination:=Worksheets("stampa").Range("A15")
End Sub
Sub crm()
UD = Worksheets("stampa").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("stampa").Range("A15:A" & UD).ClearContents
UR = Worksheets("inserimento").Range("B" & Rows.Count).End(xlUp).Row
Worksheets("inserimento").Range("B56:B" & UR).Copy Destination:=Worksheets("stampa").Range("A15")
End Sub
Sub beautyl()
UD = Worksheets("stampa").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("stampa").Range("A15:A" & UD).ClearContents
UR = Worksheets("inserimento").Range("C" & Rows.Count).End(xlUp).Row
Worksheets("inserimento").Range("C56:C" & UR).Copy Destination:=Worksheets("stampa").Range("A15")
End Sub

se uso cosi com'è la formula su un foglio vuoto funziona
ma sul mio no
mi da un errore di sto tipo
errore di run-time 1004
impossibile modificare una partre di una cella unita
ho controllato nel formato delle celle interessate se appariva selezionata nelle opzioni unisci celle ,ma tale opzione non è selezionata
ho provato sia su excel 2003 che sul 2007
ma non funziona comunque
nelle celle A56 in poi il valore che ne esce fuori è una restituzione di una formula tipo
=CERCA.VERT(Q15;'lista'!A5:K30;9)
potrebbe essere questo il motivo?

[peter78]

problema risolto in parte
riesco in altra cella a far funzionare la macro però mi da errore di questo tipo
#RIF!,io adesso vorrei che mi riportasse il numero non l'intera formula

[Anthony47]

Probabilmente devi fare "Incolla speciale /Valori, invece che Copia e Incolla.
Insomma, non Worksheets("inserimento").Range("B56:B" & UR).Copy Destination:=Worksheets("stampa").Range("A15")ma (su due righe)

Codice: Seleziona tutto

Worksheets("inserimento").Range("B56:B" & UR).Copy
Worksheets("stampa").Range("A15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Ciao

[peter78]

niente non ne vengo fuori

[peter78]

niente non ne vengo fuori

no invece ho risoloto
grazie per avermi aiutato