diana bersabe

Ya lo solucione. Como he visto muchas preguntas en internet parecidas sin resolver indico lo que hice Simplemente anadi al princio esto Private Sub Userform_Initialize() TextBox2.Value = Worksheets("suppliers").Range("a3").End(xlDown).Value + 1 End Sub