¿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 SubLo 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 Respuesta
Respuesta de Dante Amor
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 SubTambié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
