C'è un'anima pia che mi dice perché questa maledetta routine non funziona?
Controlla quello che c'è in a3 del foglio 3,
se a3 è vuota vai avanti con le istruzioni che sono dopo il 10 -ti ci mando col GOto
altrimenti, maledetto, fai quello che c'è dopo l'else.
dove sbaglio?
Grazie!!!!!

Sub Pulsante1_Clic()

Sheets(3).Activate
If Range("a3") = "" Then
GoTo 10

Else
If Range("a3") () "" Then
Sheets(1).Activate
Range("a18").Select
Selection.Copy
Sheets(3).Select
Range("b5").Select
ActiveSheet.Paste
MsgBox "a3 di foglio3 era pieno"
End If

Exit Sub
10:
Sheets(1).Activate
Range("a19").Select
Selection.Copy
Sheets(3).Select
Range("b5").Select
ActiveSheet.Paste
MsgBox " a3 del folgio 3 era vuoto"

End If
End Sub

L'ho appena copiata e provata, a me funziona perfettamente...
a te che problema ti da? Se ti da un errore dicci su che linea si pianta.

---

Sono cosi avanti che quando guardo indietro vedo il futuro.

hai ragione. grazie per la risposta. Ero probabilmente in TILT!!!
e lo sono ancora...per un'altra questione.
Usando SaveAs, vorrei evitare il messaggio
"esiste già unfile denominato ecc. sostituire.." sì voglio sostituire, ma non voglio che me lo chieda!.
Se la modalità della richiesta non è canonica,[avrei dovuto postare un'altra mail?]pardon!