collectio objeto

Tengo una clase MISDATOS... que en una función deve devolver algunos "registros" con la estructura de mi clase misdatos. Si hago... dim kcollection as new collection dim MiDato as MisDatos LEOMISDATOS MiDato kcollection.add MiDato ...

Hola Nickuser Se me ocurre lo siguiente '--modulo del UserForm Option Base Private Sub UserForm_Initialize( Dim rng As Rang With Sheets("Hoja1" Set rng = .Range([A2], .Cells(.Rows.Count, "A").End(xlUp) End Wit ComboBox1.List = ...