La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Buongiorno ho inserito un file dove alcune volte ho la necessità di lasciare vuote delle TextBox. Così facendo però mi viene segnalato un debug che mi riporta alla posizione della TextBox vuota. Potreste aiutarmi a risolvere il problema?
Grazie
ciao
prova
Sub cmb1()
On Error GoTo E
ActiveCell.Offset(0, 1).Value = CDbl(TextBox1)
ActiveCell.Offset(0, 2).Value = CDbl(TextBox2)
ActiveCell.Offset(0, 3).Value = CDbl(TextBox3)
E: Exit Sub
End Sub
Sub cmb2()
On Error GoTo E
ActiveCell.Offset(0, 1).Value = CDbl(TextBox4)
ActiveCell.Offset(0, 2).Value = CDbl(TextBox5)
ActiveCell.Offset(0, 3).Value = CDbl(TextBox6)
E: Exit Sub
End Sub
Grazie per l'aiuto. Ho testato la tua soluzione, funziona benissimo se la TexBox vuota è la 3, se è la 2 inserisce solo il valore della prima e se è vuota la TextBox 1 non inserisce nulla
Ho provato ad inserire On Error Resume Next" e sembra che funzioni
