Insertar números en celdas desde un textbox
Hola muy buenas tardes, necesito una ayudita para tarminar una hoja de excel. Lo que quiero hacer es cargar datos desde un textbox ubicado en un useform junto a dos botones, ingresar y salir .
Como hago para que cada vez hago click en el botón ingresar me inserte el dato del textbox en la celda A3 y el próximo en A4 y así sucesivamente hasta llegar a la celda A35 y que el próximo dato lo ingrese directamente en C3, el otro en C4 y así sucesivamente hasta C35 .
Desde ya muchísimas gracias .
Como hago para que cada vez hago click en el botón ingresar me inserte el dato del textbox en la celda A3 y el próximo en A4 y así sucesivamente hasta llegar a la celda A35 y que el próximo dato lo ingrese directamente en C3, el otro en C4 y así sucesivamente hasta C35 .
Desde ya muchísimas gracias .
1 respuesta
Respuesta de blackdog2003
1
Espero que el siguiente código te sirva para lo que deseas hacer...
Public a As Integer
Public b As Integer
Private Sub CommandButton1_Click()
a = a + 1
If a <= 35 Then
Cells(a + 3, 1).Value = TextBox1.Value
b = 0
End If
If a > 35 And b < 35 Then
b = b + 1
Cells(b + 3, 3).Value = TextBox1.Value
End If
TextBox1.Value = ""
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
UserForm1. Hide
Unload UserForm1
End Sub
Cualquier cosa me avisas y estamos en contacto...
Si tienes alguna otra duda, estamos a la orden.
Public a As Integer
Public b As Integer
Private Sub CommandButton1_Click()
a = a + 1
If a <= 35 Then
Cells(a + 3, 1).Value = TextBox1.Value
b = 0
End If
If a > 35 And b < 35 Then
b = b + 1
Cells(b + 3, 3).Value = TextBox1.Value
End If
TextBox1.Value = ""
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
UserForm1. Hide
Unload UserForm1
End Sub
Cualquier cosa me avisas y estamos en contacto...
Si tienes alguna otra duda, estamos a la orden.
