Edición de datos filtrados en listbox
Como te comentaba estuve tratando de replicar el mismo funcionamiento de tu rutina a otra hoja de mi libro, pero no tuve éxito.
Lo que hice fue duplicar el formulario"Main", es decir "Main2", y también el formulario EJEMPLO, es decir "EJEMPLO1", con el objetivo de buscar como te digo en otra hoja y poder editar registros, hice todo lo que tiene tu ejemplo, pero no me funciona, es decir al momento que se ejecuta el formulario "EJEMPLO1" para editar los datos, este no carga los datos del listbox y la verdad no entiendo porque razón.
1 respuesta
Solamente te faltó poner el nombre del nuevo formulario
Tienes esta línea
num = Main.LisDts.List(Main.LisDts.ListIndex, 0)
Y debe ser así:
num = Main2.LisDts.List(Main2.LisDts.ListIndex, 0)
Debe de ir en los 2 controles:
Private Sub CommandButton1_Click()
'Act.Por.Dante Amor
num = Main2.LisDts.List(Main2.LisDts.ListIndex, 0)
Set b = Sheets("Hoja3").Range("B:B").Find(num, lookat:=xlWhole)
If Not b Is Nothing Then
For i = 2 To 5
Cells(b.Row, i + 1) = Me.Controls("TextBox" & i).Value
Next
End If
Unload Me
End Sub
'
Private Sub UserForm_Initialize()
'Act.Por.Dante Amor
num = Main2.LisDts.List(Main2.LisDts.ListIndex, 0)
Set b = Sheets("Hoja3").Range("B:B").Find(num, lookat:=xlWhole)
If Not b Is Nothing Then
For i = 1 To 5
Me.Controls("TextBox" & i).Value = Cells(b.Row, i + 1)
Next i
End If
End Sub
