Pregunta para Elsamatilde:
Hola Elsa,
estoy construyendo una pequeña base de datos mediante un listbox y unos textbox. El funcionamiento es el siguiente:
Al iniciar cargamos el listbox con un rango de terminado.
Al hacer click en una línea del listbox, se cargan los textbox de dicho registro para verlos en los textbox y poder editarlos
Después de modificar algún dato en un textbox pulso el botón para volcar la modificación a la hoja pero nunca lo hace porque se dispara el evento click del listbox y deja el dato como estaba sin prestar atención a mi modificación. ¿como se soluciona esto??
Te adjunto todas las macros:
Public posicion Private Sub CommandButton1_Click() Cells(posicion, 2).Value = TextBox1.Value Cells(posicion, 3).Value = TextBox2.Value Cells(posicion, 4).Value = TextBox3.Value Cells(posicion, 5).Value = TextBox4.Value Cells(posicion, 6).Value = TextBox5.Value Cells(posicion, 7).Value = TextBox6.Value Cells(posicion, 8).Value = TextBox7.Value Cells(posicion, 9).Value = TextBox8.Value Cells(posicion, 10).Value = TextBox9.Value End Sub Private Sub ListBox1_Click() posicion = ListBox1.ListIndex + 2 TextBox1.Value = Cells(posicion, 2) TextBox2.Value = Cells(posicion, 3) TextBox3.Value = Cells(posicion, 4) TextBox4.Value = Cells(posicion, 5) TextBox5.Value = Cells(posicion, 6) TextBox6.Value = Cells(posicion, 7) TextBox7.Value = Cells(posicion, 8) TextBox8.Value = Cells(posicion, 9) TextBox9.Value = Cells(posicion, 10) End Sub Private Sub UserForm_Initialize() ListBox1.RowSource = "base!a2:j" & Sheets("base").Range("a65000").End(xlUp).Row End Sub
muchas gracias
1 Respuesta
Respuesta de Elsa Matilde
1