¿Cómo agregar un condicionante a un combobox?

Tengo un código que me agrega a un combobox valores a una columna.

Sub busqueda()
Application.ScreenUpdating = False
ComboBox2.Clear
Sheets("Rinventario").Activate
Range("B1").Select
For i = 1 To 100
If ActiveCell.Offset(i, 0).Value <> "" Then
ComboBox2.AddItem ActiveCell.Offset(i, 0).Value
End If
Next
Sheets("Ventas").Activate
Application.ScreenUpdating = True
End Sub

Lo que me gustaría hacer es lo siguiente. Tengo la columna D con cantidades, si la cantidad es cero no se agregue al combobox.

1

1 respuesta

Respuesta
1

Te anexo el código actualizado

Sub busqueda()
    Application.ScreenUpdating = False
    ComboBox2.Clear
    Sheets("Rinventario").Activate
    Range("B1").Select
    For i = 1 To 100
        If ActiveCell.Offset(i, 0).Value <> "" Then
            If ActiveCell.Offset(i, 2).Value <> 0 Then
                ComboBox2.AddItem ActiveCell.Offset(i, 0).Value
            End If
        End If
    Next
    Sheets("Ventas").Activate
    Application.ScreenUpdating = True
End Sub

También te recomiendo NO utilizar la instrucción offset.

Para darle más claridad a tu código, puedes emplear la letra de la columna, por ejemplo:

Sub busqueda()
    Application.ScreenUpdating = False
    ComboBox2.Clear
    Sheets("Rinventario").Activate
    For i = 2 To 100
        If Cells(i, "B").Value <> "" And Cells(i, "D").Value <> 0 Then
            ComboBox2.AddItem Cells(i, "B").Value
        End If
    Next
    Sheets("Ventas").Activate
    Application.ScreenUpdating = True
End Sub

'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. 
'.[Avísame cualquier duda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas