Revisión y posible edición y unificación a macro Excel
Esta macro le agregue la ultima parte para que al clicar (seleccionar) en determinada línea del ListBox, se selecciona en la hoja, la línea correspondiente a la línea seleccionada (clikada)
La 1ª parte llena los TextBox, la 2ª selecciona la celda correspondiente a lo seleccionado en el ListBox
Esta en una sola, si lo se pero, en 2 partes, ¿esta bien, se ve bien así una macro?
'Llenar los TextBox
Private Sub lista_Click()
Dim v As Variant
Dim txt As MSForms.TextBox
Dim i%
On Error Resume Next
With Sheets("Productos")
rw = .Range("A2:A50000").Find(lista, LookAt:=xlWhole).Row
v = Array(txtCod, txtProd, txtProve, txtFactu, txtFFact, txtUbic, txtObser)
For i = 0 To UBound(v)
Set txt = v(i)
txt.Text = .Cells(rw, i + 1)
Set txt = Nothing
Next
End With
'''''''''''''''''''''''''''''''''''
'Activar la celda del registro elegido
Range("a2").Activate
Cuenta = Me.lista.ListCount
Set Rango = Range("A1").CurrentRegion
For i = 0 To Cuenta - 1
If Me.lista.Selected(i) Then
Valor = Me.lista.List(i)
Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate
End If
Next i
''''''''''''''''''''''''''''''
Buscar.SetFocus
txtCod.Enabled = False
End SubPretendo que tu hagas el favor de revisarla, verifiques y si necesita que la edites para unificarla mejor y mas compacta si es necesario, para unirlas en una sola.
1 Respuesta
unificarla mejor
Eeso, funciona bien, pero quisiera pedirte si puede darle un vistazo a ver si necesita alguna modificacion PARA mejor.
Es una sola macro porque de 2 hice una, como mencione arriba
Repito:
La 1ª parte llena los TextBox, la 2ª selecciona la celda correspondiente a lo seleccionado en el ListBox
Sigo sin entender.
¿Qué mejora le quieres hacer?
Si la macro ya te funciona, ¿cuál es problema?
