Modificar campos desde userform
Para Dam..
Hola como estas?
Sabes que tengo el siguiente problema y no he podido solucionar ..
Tengo un formulario que puedo guardar lo que escribo en 42 textbox..
Los valores que estan en la base de datos los puedo mostrar en el userform cada dato en su textbox que son 42...
Esto lo hago con un combobox que tiene fechas y otro que elijo la hoja de donde extraer los datos al realizan esta operacion me muestra los valores segun la fecha y hoja seleccionada en los 42 textbox...
Mi pregunta es la siguiente como puedo modifcar uno o varios campos que se muestran de la seleccion y presionar en el boton modificar y se actualize ese campo segun la fecha y hoja..
Por favor Gracias
1 Respuesta
Manda tu archivo a [email protected] me pones un ejemplo de lo que quieres hacer, me explicas en cual formulario.
No olvides poner en el asunto tu nombre y titulo de la pregunta.
Hola yo bien tambien..
Te envie mi archivo
Gracias..
Dam
Sabes que de esta forma me funciona pero es muy larga..
Como seria una forma mas simple?
gracias
If UserForm1.ComboBox1.Value = "" Then
Exit Sub
End If
If UserForm1.ComboBox1.Value = "Puente los Escalones" Then
fila = ComboBox5.ListIndex + 6
Set lahoja = Hoja1
Else
Set lahoja = Hoja2
fila = ComboBox5.ListIndex + 6
End If
lahoja.Range("B" & fila).Value = TextBox1.text
lahoja.Range("C" & fila).Value = TextBox2.text
lahoja.Range("D" & fila).Value = TextBox3.text
lahoja.Range("E" & fila).Value = TextBox4.text
lahoja.Range("F" & fila).Value = TextBox5.text
lahoja.Range("G" & fila).Value = TextBox6.text
lahoja.Range("H" & fila).Value = TextBox7.text
lahoja.Range("I" & fila).Value = TextBox8.text
lahoja.Range("J" & fila).Value = TextBox9.text
lahoja.Range("K" & fila).Value = TextBox10.text
lahoja.Range("L" & fila).Value = TextBox11.text
lahoja.Range("M" & fila).Value = TextBox12.text
lahoja.Range("N" & fila).Value = TextBox13.text
lahoja.Range("O" & fila).Value = TextBox14.text
lahoja.Range("P" & fila).Value = TextBox15.text
lahoja.Range("Q" & fila).Value = TextBox16.text
lahoja.Range("R" & fila).Value = TextBox17.text
lahoja.Range("S" & fila).Value = TextBox18.text
lahoja.Range("T" & fila).Value = TextBox19.text
lahoja.Range("U" & fila).Value = TextBox20.text
lahoja.Range("V" & fila).Value = TextBox21.text
lahoja.Range("W" & fila).Value = TextBox22.text
lahoja.Range("X" & fila).Value = TextBox23.text
lahoja.Range("Y" & fila).Value = TextBox24.text
lahoja.Range("Z" & fila).Value = TextBox25.text
lahoja.Range("AA" & fila).Value = TextBox26.text
lahoja.Range("AB" & fila).Value = TextBox27.text
lahoja.Range("AC" & fila).Value = TextBox28.text
lahoja.Range("AD" & fila).Value = TextBox29.text
lahoja.Range("AE" & fila).Value = TextBox30.text
lahoja.Range("AF" & fila).Value = TextBox31.text
lahoja.Range("AG" & fila).Value = TextBox32.text
lahoja.Range("AH" & fila).Value = TextBox33.text
lahoja.Range("AI" & fila).Value = TextBox34.text
lahoja.Range("AJ" & fila).Value = TextBox35.text
lahoja.Range("AK" & fila).Value = TextBox36.text
lahoja.Range("AL" & fila).Value = TextBox37.text
lahoja.Range("AM" & fila).Value = TextBox38.text
lahoja.Range("AN" & fila).Value = TextBox39.text
lahoja.Range("AO" & fila).Value = TextBox40.text
lahoja.Range("AP" & fila).Value = TextBox41.text
lahoja.Range("AQ" & fila).Value = TextBox42.text
End Sub
Cambia todas estas líneas
lahoja.Range("B" & fila).Value = TextBox1.text
....
lahoja.Range("AQ" & fila).Value = TextBox42.textPor esto
For i = 1 To 42
lahoja.Cells(fila, i + 1).Value = Me.Controls("TextBox" & i)
NextLas condiciones son: las columnas deben ser consecutivas, los textbox, deben llamarse textbox1 al textbox42, si cambian las condiciones, habría que buscar otra alternativa dependiendo del cambio, pero así como veo tu código, todos son consecutivos.
