Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EXCEL] Taglia incolla range

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

[EXCEL] Taglia incolla range

Postdi saxas » 04/05/14 14:50

Salve
Volevo sostituire il codice seguente
Codice: Seleziona tutto
         
     Sheets("LISTE").Select
     Range("A2:M" & Cells(Rows.Count, 2).End(xlUp).Row).Select
     Selection.Cut
     Sheets("TEMP").Select
     Range("A1048576").End(xlUp).Offset(1, 0).Select
     ActiveSheet.Paste

con il seguente
Codice: Seleziona tutto
    Worksheets("LISTE").Range("A2:M" & Cells(Rows.Count, 2).End(xlUp).Row).Cut
    Worksheets("TEMP").Range("A1048576").End(xlUp).Offset(1, 0).Paste

pensando che mi desse lo stesso risultato, invece con il primo codice effettivamente taglio tutte le celle dalla riga 2 fino all'ultima riga popolata, e le incollo correttamente nel secondo foglio,
invece con il secondo codice spesso, non taglia tutte le celle popolate.
è scritto in modo errato?
Win10 - Office 2016 Ita
saxas
Utente Junior
 
Post: 48
Iscritto il: 14/11/13 16:58

Sponsor
 

Re: [EXCEL] Taglia incolla range

Postdi scossa » 04/05/14 15:11

saxas ha scritto:Salve
.....
è scritto in modo errato?


Sì, in
Worksheets("LISTE").Range("A2:M" & Cells(Rows.Count, 2).End(xlUp).Row).Cut
Cells fa riferimento al foglio attivo; se questo non è "LISTE" ovviamente il numero di riga restituito non sarà corretto.
Bye!
scossa

Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)
Avatar utente
scossa
Utente Senior
 
Post: 424
Iscritto il: 01/04/12 16:40
Località: Provincia di Verona

Re: [EXCEL] Taglia incolla range

Postdi Flash30005 » 04/05/14 17:03

dovresti usare questa riga codice
Codice: Seleziona tutto
  Worksheets("LISTE").Range("A2:M" & Worksheets("LISTE").Cells(Rows.Count, 2).End(xlUp).Row).Cut Destination:=Worksheets("TEMP").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)


ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: [EXCEL] Taglia incolla range

Postdi saxas » 05/05/14 09:16

Grazie scossa e Flash ora funziona :)

a questo punto sto utilizzando le seguenti righe di codice, che sembrano funzionare correttamente, per tagliare o copiare da un foglio di un file ad un altro
Codice: Seleziona tutto
C_NomeFile = Application.ActiveWorkbook.Name
NomeFile = "Prova.xlsx"
Workbooks(C_NomeFile).Worksheets("LISTA").Range("A2:M" & Workbooks(C_NomeFile).Worksheets("LISTA").Cells(Rows.Count, 4).End(xlUp).Row).Cut Destination:=Workbooks(NomeFile).Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Win10 - Office 2016 Ita
saxas
Utente Junior
 
Post: 48
Iscritto il: 14/11/13 16:58


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] Taglia incolla range":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti