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

1 respuesta

Respuesta
1
Algunas cosas:
El valor que tiene J la primera ves es cero lo que dará error de ejecución.
Mejor usa un bucle For-Next u da un rango de 2 a 100 o lo que sea, asegurándote que tiene valores
Comprueba dentro del for el valor y si es nulo o cero sales del bucle.
Con eso te debería funcionar.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas