UserForm
Hola.
Tengo el siguiente código
Private Sub CommandButton1_Click()
Rem inserta un renglon
Selection.EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
Rem Textbox1SetFocus Envia el cursor al Textbox1 para volver a capturar los datos
TextBox1.SetFocus
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub TextBox1_Change()
Range("a9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("b9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("c9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Me inserta una fila, lo que quiero es que en lugar de insertar una fila, busque la primera fila vacía y allí comience a entrar los valores.
De tal forma que los datos nuevos que yo iontroduzca queden al fina, a continuación de los que ya existen.
Gracias
Tengo el siguiente código
Private Sub CommandButton1_Click()
Rem inserta un renglon
Selection.EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
Rem Textbox1SetFocus Envia el cursor al Textbox1 para volver a capturar los datos
TextBox1.SetFocus
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Label4_Click()
End Sub
Private Sub TextBox1_Change()
Range("a9").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("b9").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("c9").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Me inserta una fila, lo que quiero es que en lugar de insertar una fila, busque la primera fila vacía y allí comience a entrar los valores.
De tal forma que los datos nuevos que yo iontroduzca queden al fina, a continuación de los que ya existen.
Gracias
1 Respuesta
Respuesta de t4373125
1
Tendría que funcionarte con estas 2 lineas:
'ir a la ultima celda donde haya datos
ActiveCell.SpecialCells(xlLastCell).Select
'bajar a la fila siguiente y situarse en la primera columna
ActiveCell.Offset(1, 1 - ActiveCell.Column).Select
un saludo,
Ramon
P.D. Veo que tienes lineas que no hacen nada y por lo tanto sobran. Las puedes borrar tranquilamente. Estas lineas son de este tipo:
Private Sub Label2_Click()
End Sub
'ir a la ultima celda donde haya datos
ActiveCell.SpecialCells(xlLastCell).Select
'bajar a la fila siguiente y situarse en la primera columna
ActiveCell.Offset(1, 1 - ActiveCell.Column).Select
un saludo,
Ramon
P.D. Veo que tienes lineas que no hacen nada y por lo tanto sobran. Las puedes borrar tranquilamente. Estas lineas son de este tipo:
Private Sub Label2_Click()
End Sub
Copie el código que me escribiste, inserta la primera fila pero después los valores que se introducen desparecen, y no aparece nada de lo digitado.
Gracias por su colaboración.
Gracias por su colaboración.
No se a que es debido eso.
Enviame el código y lo revisaré.
Enviame el código y lo revisaré.
