De textbox a líneas vacías. (Continuación).
Para el sr.Dante, hola de nuevo, una vez puesto a adaptar la macro que tan gentilmente me ha enviado, no tuve en cuenta los encabezados de las columnas por lo cual necesitaría, por favor, que comience en la línea 3 y no en la 2 como lo hace en estos momentos. Pongo la macro una vez realizada unos ajustes que he hecho. Funciona perfectamente, menos por donde comienza. Muchas gracias por su colaboración.
Private Sub CommandButton1_Click()
'Por.Dante Amor
If TextBox1 = "" Then
MsgBox "Falta información en el textbox1", vbCritical, "AGREGAR"
TextBox1.SetFocus
Exit Sub
End If
f = Range("A" & Rows.Count).End(xlUp).Row + 1
Cells(f, "A") = TextBox1
Cells(f, "B") = TextBox2
Cells(f, "C") = TextBox3
Cells(f, "D") = TextBox4' este lo puse nuevo
'TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox2.SetFocus' el focus lo cambie para el textbox2
End Sub
1 respuesta
H o l a :
Te anexo la macro actualizada
Private Sub CommandButton1_Click()
'Por.Dante Amor
If TextBox1 = "" Then
MsgBox "Falta información en el textbox1", vbCritical, "AGREGAR"
TextBox1.SetFocus
Exit Sub
End If
f = Range("A" & Rows.Count).End(xlUp).Row + 1
If f < 3 Then f = 3
Cells(f, "A") = TextBox1
Cells(f, "B") = TextBox2
Cells(f, "C") = TextBox3
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus
End Sub
