copia riga

Ciao a tutti.
La parte di funzione in rosso:
'--------------------------------------------------------------------
Sheets("commesse").Select 'sprotegge archivio
ActiveSheet.Unprotect "123456"

Sheets("commesse").Select 'passa all'altro foglio

Rows(n).EntireRow.Copy 'copia solo una riga


Sheets("commesse").Select 'ritorna all'archivio
'--------------------------------------------------------------------
copia l'intera riga, è possibile che copi solo fino alla colonna H?
Un saluto e grazie.
patrik

la sintassi corretta è
Rows(n).Copy

EntireRow serve se indichi una cella

Ciao patel,
anche con la tua funzione copia tutta la riga, deve copiare la riga da A a H.
patrik

allora non vuoi copiare una riga ma un range

Range("A" & n & ":H" & n).copy

grazie patel è o.k.
Un saluto.
patrik

Ciao è possibile questa modifica?
Ora copia il range da A a H

Range("A" & n & ":H" & n).copy

e va bene.
La modfica che chiedo è:

se la cella E del range ("A" & n & ":H" & n) è vuota
deve apparire un avviso:

manca la data di arrivo!

spero di essermi spiegato.
Un saluto.
patrik