Tengo 1 tabla en Microsoft Excel con un número de registros en aumento que inddexo con Visual Basic
Hola tengo un tabla en Excel que tiene una columna con el numero de registros que voy ingresando, la cual lleno con un USERFORM hecho en Visual basic para excel, y quisiera que el n° siguiente de registro me aparezca en un cuadro de texto sin tener que ingresarlo manualmente, ¿es posible? Muhas gracias.
1 respuesta
Respuesta
1
No entiendo...
Dices que lo insertaste en el Modulo1 pero estás escribiendo un evento del formulario (UserForm_Initialize())
Prueba 2 cosas
1) En el formulario que quieras hacer esto 2 doble click (te debería invocar el evento Initialize o Activate); puedes ponerlo en cualquiera
2) Asegurate de estar en la hoja correcta antes de hacer esto; tal vez puedas hacer
Sheets("Hoja1").Select
Texboxt1.Text = ...
Asegurate ademas que el rango que tienes los datos es la columna A
Dices que lo insertaste en el Modulo1 pero estás escribiendo un evento del formulario (UserForm_Initialize())
Prueba 2 cosas
1) En el formulario que quieras hacer esto 2 doble click (te debería invocar el evento Initialize o Activate); puedes ponerlo en cualquiera
2) Asegurate de estar en la hoja correcta antes de hacer esto; tal vez puedas hacer
Sheets("Hoja1").Select
Texboxt1.Text = ...
Asegurate ademas que el rango que tienes los datos es la columna A
Mira no funciona o no se si lo estoy utilizando mal, pero no aparece nada en el Texbox1, lo he Insertado en el Modulo 1 así:
Private Sub UserForm_Initialize()
Texboxt1.Text = Application.WorksheetFunction.Max(Range("A2:A1000")) + 1
End Sub
es correcto? o lo estoy haciendo mal.
Gracias por tu atención y ayuda.
Private Sub UserForm_Initialize()
Texboxt1.Text = Application.WorksheetFunction.Max(Range("A2:A1000")) + 1
End Sub
es correcto? o lo estoy haciendo mal.
Gracias por tu atención y ayuda.
No si si es lo que quieres pero si, por ejemplo tu columna de N° registro es la A2 hasta A1000 y el textbox se llama textbox1, entonces puedes poner algo como
Texboxt1.text = Application.WorksheetFunction.Max (Range("A2:A1000")) + 1
Texboxt1.text = Application.WorksheetFunction.Max (Range("A2:A1000")) + 1