Hola a toda la gente del foro, hoy les traigo un código que fui recopilando y en el cual personas de este foro me han ido ayudando en armar. Lo que no puedo lograr es introducirla en un módulo y poder llamarla siempre que yo lo requiera.
Call CARGAR_COMBOBOX("BASE", "N_SE")
Function CARGAR_COMBOBOX(HOJA As String, POSBUS As String) As String
Dim Dir As String
'ACTIVA LA HOJA: "BASE"
Worksheets(HOJA).Activate
'ACTIVA LA CELDA A1
ActiveSheet.Range("A1").Activate
'BUSCA LA COLUMNA SEGÚN LA ETIQUETA INDICADA
Do While ActiveCell.Value <> POSBUS
'REALIZA UN DESPLAZAMIENTO (FILA,COLUMNA) Y ACTIVA LA CELDA
ActiveCell.Offset(0, 1).Activate
Loop
'GUARDA EL ADDRESS DE LA COLUMNA ACTIVA
COLUMNA = ActiveCell.Column
Dir = Columns(COLUMNA).Address(0, 0)
Dir = Left(Dir, InStr(Dir, ":") - 1)
LETRA_COLUMNA = Dir
'DEFINE EL RANGO DONDE VA A IR A BUSCAR LOS DATOS DEL COMBOBOX (CELDA INICIAL,CELDA FINAL)
Set rango = Range(LETRA_COLUMNA & 1, Range(LETRA_COLUMNA & 1).End(xlDown))
Hola a toda la gente del foro, hoy les traigo un código que fui recopilando y en el cual personas de este foro me han ido ayudando en armar. Lo que no puedo lograr es introducirla en un módulo y poder llamarla siempre que yo lo requiera.
Cuando lo quiero ejecutar me tira el error 424 - Se requiere un objeto
Desde ya muchas gracias todos. Saludos!