Copia tra due fogli con macro

[BOLDOS75Partecipante BOLDOS75]

Buongiorno, nel file che allego ho questo problema , con la macro in sh2  ho creato tre situazioni denominate Esempio 1,2,3 e fino qui tutto mi va bene.

Ma se io voglio  copiare da Foglio1 a Foglio 2 con Prova 1,2,3  mi da errore quando trova  in Prova 2 

Sicuramente sto commettendo un errore se possibile avrei bisogno di un aiuto.

Grazie mille.

Uso MSOPP2021

''------------------------------- Prova 2 INIZIO X COPIARE DA Foglio1 IN Foglio2 -----------------------------------
sh1.Select
Range("E15", Range("E15").End(xlDown)).Copy (sh2.Range("L15"))
Range("C15", Range("C15").End(xlDown)).Copy (sh2.Range("J15"))
Range("B15", Range("B15").End(xlDown).End(xlToLeft)).Copy (sh2.Range("H15"))
''----------------------------------- Prova 2 FINE X COPIARE DA Foglio2 IN Foglio2 ----------------------------------

Allegati:

You must be logged in to view attached files.

[alexps81Moderatore alexps81 Karma: 55 pts]

Ciao,

innanzitutto penso che quel tipo di codice dovresti inserirlo in Modulo Standard e non in uno Sheet, a meno ché non lo affidi ad un evento Worksheet.

Il tuo problema lo risolvi togliendo le paretesi nei Range destination

sh1.Range("E15", sh1.Range("E15").End(xlDown)).Copy Destination:=sh2.Range("L15")
sh1.Range("C15", sh1.Range("C15").End(xlDown)).Copy Destination:=sh2.Range("J15")

invece questa linea di codice non l'ho capita:

Range("B15", Range("B15").End(xlDown).End(xlToLeft)).Copy sh2.Range("H15")

non sarebbe meglio sostituirla con questa?

sh1.Range("A15", sh1.Range("B15").End(xlDown)).Copy Destination:=sh2.Range("H15")

 

[BOLDOS75Partecipante BOLDOS75]

Ottimo consiglio funziona tutto perfettamente, nella riga segnalata ho fatto della confusione.

Ringrazio di nuovo per la cortesia, con questo chiudo la conversazione problema risolto.  

[Autore]

Articoli