Dim messaggio, titolo
Dim NUMERO As Integer
titolo = "STAMPA ATTESTAZIONE FATTURA"
messaggio = "INSERISCI NUMERO D'ORDINE CHE SI INTENDE RISTAMPARE"
valore = InputBox(messaggio, titolo)
If valore = "" Then Exit Sub
Range("G1").Select
ActiveCell = valore
NUMERO = valore
Select Case valore
Case NUMERO = 0
Exit Sub
Case NUMERO = 1
Range("B2:E2").Select
'=================================================================
End Select
Selection.Copy
Range("K1").Select
ActiveSheet.Paste
Range("G1").ClearContents
Sheets("NUOVA_BOLLETTA").Select ----qui si blocca e da l'errore sopra indicato.
Range("B29:D29").Select
Application.CutCopyMode = False |