cosa vuol dire questo?
Private Sub txtdatascadenza_Change()
txtdatascadenza = Sheets("DB").Range("A2").Value
End Sub
stai dicendo
se cambio il valore al textdatascadenza
il texdatascadenza è uguale al valore in A2
allora cosa serve cambiarlo?
non è che volevi scrivere
Private Sub txtdatascadenza_Change()
Sheets("DB").Range("A2").Value = txtdatascadenza.Value
End Sub
se cambio il valore nel textdatascadenza la cella A2
prende il valore?
ma la text box1 esiste?
o si chiama texdatascadenza?
non riesci ad allegare il file?