Login
Registrati
Stai vedendo 8 articoli - dal 1 a 8 (di 8 totali)
-
Articoli
-
Buona serami cimento con continui dilemmiho la necessità di copiare dei dati e metterli in colonna sullo stesso foglio.fino al copia incolla ci son riuscito, ma ora viene il dilemma,in pratica i dati che ho nel Range("E13:F13,J13,M13") variano con l'esecuzione del filtro.Con il tasto archivia volevo copiare i dati nel range appena citato e incollarli e metterli in colonnaa partire dalla cella H57,mi occorrerebbe che venga fatto il cotrollo dal basso e incollare i dati nella cella libera.come posso fare?saluti e grazie anticipatamente.allego il filedevi calcolare l’ultima riga occupata conLastRow = Cells(Rows.Count, “A”).End(xlUp).Row
DodiBuon giornoPatelAvevo già provato con il codice che mi hai inviato.Avevo fatto una ricerca nel forum e mi era comparso il tuo nome con il tuo codice. Ma mi sovrascrive sempre la stessa riga. Forse ho sbagliato qualcosa nel mio codice? Puoi dargli un occhioGrazieLastRow = Cells(Rows.Count, “A”).End(xlUp).Row indica l'ultima riga piena, quella vuota successiva la ottieni conLastRow = Cells(Rows.Count, “A”).End(xlUp).Row + 1Niente continua a sovrascrivere,dove continuo a sbagliare?Sub Copia_incolla()Dim lastRow As LonglastRow = Cells(Rows.Count, "H").End(xlUp).Row + 1Worksheets("foglio1").SelectRange("E13:F13,J13,M13").SelectRange("M13").ActivateSelection.CopyRange("H57").SelectActiveSheet.PasteRange("L57").SelectApplication.CutCopyMode = FalseEnd SubRingrazio per la pazienza,ho risolto in questo modo.anche se ero cmq curioso di capire dove sbagliavo sul codice precedente,anche perchè nel modo precedente mi copiava anche il formato delle celle copiate,mentre con qsto di ora non mi accade,Saluto tutti e posto la soluzioneSub Copia_incolla()Sheets("foglio1").SelectRange("E13,F13,J13,M13").Select 'celle da copiareSelection.CopySheets("foglio1").SelectRange("H65000").End(xlUp).Offset(1, 0).SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseApplication.CutCopyMode = FalseEnd Subsbagliavi perché calcolavi lastRow e poi non lo utilizzavi, avresti dovuto scriverelastRow = Cells(Rows.Count, “H”).End(xlUp).Row + 1Range(“H” & lastrow).Selectcol nuovo codice fai in pratica la stessa cosa scritta in modo più compattoRange(“H65000”).End(xlUp).Offset(1, 0).SelectEcco dove sbagliavo. Pensavo che dandogli il range ("H57").selectGli davo la destinazione dove controllare.Mi perdo sempre in piccolezze.Grazie per il suggerimeno.
Stai vedendo 8 articoli - dal 1 a 8 (di 8 totali)