Skip to main content
Ejemplo de código completo
Origen Enlace

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.ListBox1Me.ListBox1 podía modificarla, pero no puedo usar MeMe 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 ReferenciaListBox2ReferenciaListBox1 = 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?

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 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

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

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?

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?

Origen Enlace

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 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

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

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?