Como no insertar textbox vacíos en una BD
Soy nuevo en elaborar userforms, actualmente tengo una base de datos en la cual quiero que se descargue lo contenido en los textbox que se llenan, hasta allí todo bien solo que hay ocasiones en el que no todos los texbox se llenan ya que no son obligatorios pero cuando ejecuto el userform me inserta los textbox vacíos así que para la próxima entrada de datos los coloca después de filas vacías dependiendo de los textbox que quedaron en blanco.
El código que utilizo es el siguiente:
Private Sub CommandButton2_Click()
Sheets("HOJA1").Select
Range("G7").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop 'bucle
ActiveCell = TextBox8
ActiveCell.Offset(0, -5).Select
ActiveCell = TextBox5
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox4
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox6
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox7
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox8
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox9
ActiveCell.Offset(1, -3).Select
ActiveCell = TextBox10
Espero me puedan ayudar
Saludos
Carlos
El código que utilizo es el siguiente:
Private Sub CommandButton2_Click()
Sheets("HOJA1").Select
Range("G7").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop 'bucle
ActiveCell = TextBox8
ActiveCell.Offset(0, -5).Select
ActiveCell = TextBox5
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox1
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox4
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox6
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox7
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox8
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox9
ActiveCell.Offset(1, -3).Select
ActiveCell = TextBox10
Espero me puedan ayudar
Saludos
Carlos
1 respuesta
Respuesta de duainsulch
1
Como estas.
No tienes más que controlar antes de ingresar el valor en la celda activa, si el textbox esta vacío, entonces no se ingresa el valor, para hacer esto no tienes más que ingresar una sentencia IF antes de la asignación del dato a la celda activa
Te voy a poner un ejemplo, para que lo apliques, seria fácil darte el código hecho, pero entonces no aprenderías, que de eso se trata, aparte de que es muy importante que aparte de que tu código funcione, también entiendas su funcionamiento para cuando quieras cambiar algo.
if textbox1.text <> "" then
....
end if
Tendrías que utilizar una sentencia por cada textbox, de forma que si el textbox tiene algo dentro ejecuta el código (en tu caso la asignación a la celda activa del dato) y sino no ejecuta el código dentro de la sentencia if.
Espero haber sido claro, si aun así no eres capaz de hacerlo me lo comentas.
No tienes más que controlar antes de ingresar el valor en la celda activa, si el textbox esta vacío, entonces no se ingresa el valor, para hacer esto no tienes más que ingresar una sentencia IF antes de la asignación del dato a la celda activa
Te voy a poner un ejemplo, para que lo apliques, seria fácil darte el código hecho, pero entonces no aprenderías, que de eso se trata, aparte de que es muy importante que aparte de que tu código funcione, también entiendas su funcionamiento para cuando quieras cambiar algo.
if textbox1.text <> "" then
....
end if
Tendrías que utilizar una sentencia por cada textbox, de forma que si el textbox tiene algo dentro ejecuta el código (en tu caso la asignación a la celda activa del dato) y sino no ejecuta el código dentro de la sentencia if.
Espero haber sido claro, si aun así no eres capaz de hacerlo me lo comentas.
