** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - llenar datos con formulario VBA
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

llenar datos con formulario VBA

 Responder Responder
Autor
Mensaje
mariokike Ver desplegable
Habitual
Habitual
Avatar

Unido: 14/Enero/2011
Localización: Honduras
Estado: Sin conexión
Puntos: 175
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita mariokike Cita  ResponderRespuesta Enlace directo a este mensaje Tema: llenar datos con formulario VBA
    Enviado: 26/Septiembre/2017 a las 00:18
de verdad necesito ayuda con esto!, estoy usando este ejemplo de como usar un formulario:
Sub GrabaRegistro()
Sheets("Registro Alumnos").Select
ult = Cells(Rows.Count, 4).End(xlUp).Row
Cells(ult + 1, 2) = TextBox1.Text
Cells(ult + 1, 3) = TextBox2.Text
Cells(ult + 1, 4) = TextBox3.Text
Cells(ult + 1, 5) = ComboBox1.Text

pero cuando agrego dos texbox mas al formulario y al codigo vba, me da error y me señala el texbox4:
Sub GrabaRegistro()
Sheets("Registro Alumnos").Select
ult = Cells(Rows.Count, 7).End(xlUp).Row
Cells(ult + 1, 2) = TextBox1.Text
Cells(ult + 1, 3) = TextBox2.Text
Cells(ult + 1, 4) = TextBox3.Text
Cells(ult + 1, 5) = ComboBox1.Text
Cells(ult + 1, 6) = TexBox4.Text
Cells(ult + 1, 7) = TexBox5.Text

ayuda!!!


Arriba
MexMan70 Ver desplegable
Colaborador
Colaborador


Unido: 17/Julio/2007
Localización: DarkSide
Estado: Sin conexión
Puntos: 8975
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita MexMan70 Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 26/Septiembre/2017 a las 00:42
Intenta cambiar este linea:

ult = Cells(Rows.Count, 6).End(xlUp).Row

Saludos !!
< x="0" y="0" width="99999" height="99999" id="hc_extension_off">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black_back">
OneDrive: https://1drv.ms/f/s!AhsRUsxKwte3gVJR2a-FgxJL8H6R
Arriba
AnSanVal Ver desplegable
Administrador
Administrador
Avatar

Unido: 16/Marzo/2005
Localización: España
Estado: Sin conexión
Puntos: 5002
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita AnSanVal Cita  ResponderRespuesta Enlace directo a este mensaje Enviado: 26/Septiembre/2017 a las 10:42
MexMan70.
- Da lo mismo leer la fila en la columna 4 que en la columna 6 (siempre que en esas ubicaciones existan datos).

mariokike.
- Si lo que pretendes es escribir debajo de los datos existentes, no tiene sentido que hayas cambiado ult = Cells(Rows.Count, 4).End(xlUp).Row por ult = Cells(Rows.Count, 7).End(xlUp).Row.
- Asegúrate de que el nombre del cuadro de texto es exactamente TexBox4.


Pregunta lo que no sabes, recuérdalo para cuando te pregunten y ofrece tu ayuda (reconforta).

Mi sitio_web con ejemplos Excel.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable