Macro con textbox
Buenos dias tengo una macro con un texbox que me guarda en una celda pero necesito que cuando meguarde la primera vez y lugo meincrmente la celda para ingresar un nuevo dato este es el codigo Private Sub CommandButton1_Click() Sheets("HOJA1").Select Range("A1").Select ActiveCell.Value = TextBox1.Value TextBox1 = "" end sub gracias
1 respuesta
Respuesta de Victor Perdomo
1
Prueba este código y me cuentas
Private Sub CommandButton1_Click()
Set ws = Worksheets("HOJA1")
iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iFila, 1).Value = TextBox1.Value TextBox1 = ""
end sub
Private Sub CommandButton1_Click()
Set ws = Worksheets("HOJA1")
iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iFila, 1).Value = TextBox1.Value TextBox1 = ""
end sub
