Problema con ciclo While y objeto Worksheet
Saludos mrtool,
estoy desarrollando una macro para Excel 2003 para el ingreso de información a una hoja de cálculo.
Pretendo cargar datos a un ComboBox. Estos datos están dispuestos de forma horizontal (ej: "A1:E1") de mi hoja de calculo, pero no consigo cargarlos pues VBA me envía un error '1004'. Los datos en cuestión conrresponden a los títulos de las columnas de mi tabla de datos.
Con anterioridad, he podido cargar datos a un combo box, más estos estaban dispuestos de forma vertical en mi hoja de datos (ej: "A1:A5").
¿Podría usted ayudarme a plantear alguna solución alternativa para cargar los datos dispuestos horizontalmente en mi combobox?
Le dejo el código para cargar los datos al combobox:
Option Explicit
Dim j As Integer
Private Sub CommandButton1_Click()
While Worksheets("Datos").Cells(1, j) <> Empty
ComboBox1.AddItem Worksheets("Datos").Cells(1, j)
j = j + 1
Wend
End Sub
De antemano muchas gracias
estoy desarrollando una macro para Excel 2003 para el ingreso de información a una hoja de cálculo.
Pretendo cargar datos a un ComboBox. Estos datos están dispuestos de forma horizontal (ej: "A1:E1") de mi hoja de calculo, pero no consigo cargarlos pues VBA me envía un error '1004'. Los datos en cuestión conrresponden a los títulos de las columnas de mi tabla de datos.
Con anterioridad, he podido cargar datos a un combo box, más estos estaban dispuestos de forma vertical en mi hoja de datos (ej: "A1:A5").
¿Podría usted ayudarme a plantear alguna solución alternativa para cargar los datos dispuestos horizontalmente en mi combobox?
Le dejo el código para cargar los datos al combobox:
Option Explicit
Dim j As Integer
Private Sub CommandButton1_Click()
While Worksheets("Datos").Cells(1, j) <> Empty
ComboBox1.AddItem Worksheets("Datos").Cells(1, j)
j = j + 1
Wend
End Sub
De antemano muchas gracias
1 respuesta
Respuesta de mrtool
1