Skip to main content
2 de 2
Ejemplo de código completo

Como pasar un ListBox a una variable de módulo (VBA) (Excel)

Estoy haciendo una macro en Excel, pero para tener más localizable el código prefiero hacer todo en los módulos y en los UserForm solamente llamar otros procedimientos.

Trabajando con un ListBox cuando el código estaba dentro de un botón del UserForm con la referencia Me.ListBox1 podía modificarla, pero no puedo usar Me en un módulo, intenté hacer una variable Object y una UserForm para pasarle la referencia pero no me permite

Sub LlenarListBox()

       Dim ReferenciaListBox1 As UserForm '(Utilicé también tipo Object)        
       Set ReferenciaListBox1 = UserForm1.ListBox1

       ReferenciaListBox1.AddItem
       ReferenciaListBox1.List(0, 0) = Hoja1.Cells(2, 1).Value

End Sub

El problema es que cuando corro el código me da el error

Se ha producido el error '13' en tiempo de ejecución
No coinciden los tipos

Adicional a saber esto, ¿creen conveniente esta práctica o debo dispersar el código?