Experimente
Private Sub salvar_Click()
Dim UltimaLinhaRow As Long
UltimaLinhaRow = Cells(Rows.Count, "C").End(xlUp).Row
Cells(UltimaLinhaRow + 1, 3) = TextBox1.Text
Cells(UltimaLinhaRow + 1, 4) = TextBox2.Text
Cells(UltimaLinhaRow + 1, 5) = TextBox3.Text
Cells(UltimaLinhaRow + 1, 6) = TextBox4.Text
Unload Me
End Sub
Postado : 10/03/2017 12:51 pm