Moderatori: Anthony47, Flash30005
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Msgbox UR
Sub Copia()
UR = Worksheets("Foglio2").Range("A" & Rows.Count).End(xlUp).Row
Worksheets("Foglio2").Range("A2:F" & UR).Copy Destination:=Worksheets("Foglio1").Range("A1")
End Sub
Worksheets("Foglio2").Columns("A:F").Copy
Sheets("Foglio1").Select
Columns("A:A").Select
ActiveSheet.Paste
Worksheets("Foglio2").Range("A1:F" & UR).Copy Destination:=Worksheets("Foglio1").Range("A1")
Flash30005 ha scritto:Sicuro?
io penso invece che se precedentemente hai copiato 200 righe e poi ne copi solo 10 rimangano le righe vecchie
mentre come dicevo fin dall'inizio se copi le intere colonne (A:F) avrai sempre il foglio1 pulito (se le righe oltre i dati del foglio 2 sono effettivamente vuote
il codice per copiare le colonne è questo (lo ottienei anche da una registrazione macro)
- Codice: Seleziona tutto
Worksheets("Foglio2").Columns("A:F").Copy
Sheets("Foglio1").Select
Columns("A:A").Select
ActiveSheet.Paste
ma non posso copiare tutto il foglio 2, la tabella va dalla riga 10 fino a....non si sa hihihihi dipende a giorni
ciao
EDIT:
Nella macro precedente c'è un errore perché copia dalla riga 2 in poi mentre se vuoi copiare anche la riga 1 allora devi modificare la riga così
- Codice: Seleziona tutto
Worksheets("Foglio2").Range("A1:F" & UR).Copy Destination:=Worksheets("Foglio1").Range("A1")
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 5 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 37 ospiti