Como omitir campos en blanco a la hora de guardar información desde un Useform?
Tengo el siguiente código para guardar la información de un Formulario, como puedo hacer para que los campos en blanco no se guarden para no llenar los registros de campos en blanco, gracias.
2 respuestas
Respuesta de Dante Amor
1
Sheets("Pedidos").Select
Range("a2").EntireRow.Insert
Range("A2") = txtfechapedido.Value
Range("B2") = textruta.Value
Range("C2") = combocliente.Value
Range("D2") = textfechadespacho.Value
Range("E2") = TextBox4.Value
Range("F2") = texthielo.Value
Range("G2") = Textcant1.Value
Range("H2") = Textcant2.Value
Range("I2") = Textcant3.Value
Range("J2") = Textcant4.Value
Range("K2") = Textcant5.Value
Range("L2") = Textcant6.Value
Range("M2") = Textcant7.Value
Range("N2") = Textcant8.Value
Range("O2") = Textcant9.Value
Range("P2") = Combound1.Value
Range("Q2") = Combound2.Value
Range("R2") = Combound3.Value
Range("S2") = Combound4.Value
Range("T2") = Combound5.Value
Range("U2") = Combound6.Value
Range("V2") = Combound7.Value
Range("W2") = Combound8.Value
Range("X2") = Combound9.Value
Range("Y2") = ComboBox1.Value
Range("Z2") = ComboBox2.Value
Range("AA2") = ComboBox3.Value
Range("AB2") = ComboBox4.Value
Range("AC2") = ComboBox5.Value
Range("AD2") = ComboBox6.Value
Range("AE2") = ComboBox7.Value
Range("AF2") = ComboBox8.Value
Range("AG2") = ComboBox9.Value
MsgBox ("Datos Completos")Gracias por la ayuda, correcto, en este momento esta guardando los datos en blanco, me gustaría que solo guardes los campos que tienen información y no tener datos que no son útiles, saludos.
Sigo sin entender, si el textbox4 está en blanco, entonces en la celda Range("E2") queda vacía, ¿qué problema tienes con eso?
Pero si no quieres que pase eso, te pongo un ejemplo:
If TextBox4.Value <> "" Then Range("E2") = TextBox4.Value
