Boa noite!!!
Substitua seu código do botão cadastrar por este...
Private Sub cmdCadastrar_Click()
totalregistro = Worksheets("Plan1").UsedRange.Rows.Count + 1
With Worksheets("Plan1")
.Cells(totalregistro, 1) = TextBox1
.Cells(totalregistro, 2) = TextBox2
.Cells(totalregistro, 3) = TextBox3
.Cells(totalregistro, 4) = TextBox4
.Cells(totalregistro, 5) = TextBox5
.Cells(totalregistro, 6) = TextBox6
End With
MsgBox "Gravado com Sucesso"
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 18/02/2012 6:13 pm