Incorporar items que cumplan con determinada condicióna un ComboBox de varias columnas

hola Mariano, echale un vistazo a el codigo que te pongo al final, a
ver si te ayuda.

de todas formas te hago un par de comentarios (aunque no me hagas
demasiado caso) sobre el codigo que expones por si te sirven:

1ª respecto a esta parte-> If celdoN.Offset(0, 1) = Empty Then

no estoy seguro de hasta que punto es valido 'Empty' en este caso,
supongo que si, pero en cualquier caso, y aunque no se si es mejor,
creo que te valdria con esto:

If celdoN.Offset(0, 1) = "" Then

es decir, dos comillas dobles seguidas que indican espacio vacio (o
sea 'nada', que no es lo mismo que un espacio " ", las mismas comillas
pero con un espacio dentro)

2º en el uso del metodo Additem (creo que) debes incluir
'explicitamente' la propiedad Value del rango a cargar en el combo,
pues sino te da error ( con additem no estoy del todo seguro, pero con
List si es seguro). Quedaria en tu caso asi:->

UserForm2.ComboBox3.AddItem celdoN.Value

bueno, espero no liarte mas y y te ayude en algo

un saludo y hasta pronto
Ivan

aqui va el codigo para que lo adapte (ojo he cambiado algunos nombres,
revisalo y adaptalo)

Sub ComboInsumnos()
Dim Celda As Range, i As Long
With Worksheets("Talon")
If .[A2] = "" Then Exit Sub
i = 0
For Each Celda In .Range("d2:d" & .[a65536].End(xlUp).Row)
If Celda = "" Then
With UserForm2.ComboBox1
.AddItem Celda.Offset(0, -3).Value _
& Chr(32) & Celda.Offset(0, -2).Value
.List(i, 1) = Celda.Offset(0, -1).Value
End With
i = i + 1
End If
Next
End With
End Sub

Ivan:

Tu código funciona a la perfección!! Es la solución exacta a mi dilema. Te
estoy enormemente agradecido!! También te agradezco tus consejos sobre los
códigos, los cuales tendré en cuenta para el futuro.
Otra vez muchas gracias!!
Saludos.

Mariano

"Ivan" escribió en el mensaje
news:
hola Mariano, echale un vistazo a el codigo que te pongo al final, a
ver si te ayuda.

de todas formas te hago un par de comentarios (aunque no me hagas
demasiado caso) sobre el codigo que expones por si te sirven:

1ª respecto a esta parte-> If celdoN.Offset(0, 1) = Empty Then

no estoy seguro de hasta que punto es valido 'Empty' en este caso,
supongo que si, pero en cualquier caso, y aunque no se si es mejor,
creo que te valdria con esto:

If celdoN.Offset(0, 1) = "" Then

es decir, dos comillas dobles seguidas que indican espacio vacio (o
sea 'nada', que no es lo mismo que un espacio " ", las mismas comillas
pero con un espacio dentro)

2º en el uso del metodo Additem (creo que) debes incluir
'explicitamente' la propiedad Value del rango a cargar en el combo,
pues sino te da error ( con additem no estoy del todo seguro, pero con
List si es seguro). Quedaria en tu caso asi:->

UserForm2.ComboBox3.AddItem celdoN.Value

bueno, espero no liarte mas y y te ayude en algo

un saludo y hasta pronto
Ivan

aqui va el codigo para que lo adapte (ojo he cambiado algunos nombres,
revisalo y adaptalo)

Sub ComboInsumnos()
Dim Celda As Range, i As Long
With Worksheets("Talon")
If .[A2] = "" Then Exit Sub
i = 0
For Each Celda In .Range("d2:d" & .[a65536].End(xlUp).Row)
If Celda = "" Then
With UserForm2.ComboBox1
.AddItem Celda.Offset(0, -3).Value _
& Chr(32) & Celda.Offset(0, -2).Value
.List(i, 1) = Celda.Offset(0, -1).Value
End With
i = i + 1
End If
Next
End With
End Sub

hola Mariano, me alegro que te sirva

de todas formas no estaria de mas (se me ha pasado) que 'limpiaras' el
combo antes de volver a cargarlo, sobre todo si lo llamas desde algun
boton o procedimiento que pueda volver a ejecutarse antes de cerrar el
formulario. Si no, te arriesgas a cargar varias veces los mismos datos
si vuelves a darle al boton (ademas el List se 'descuadraria', si es
que no te genera un error).
si quieres, tras esto ->

If .[A2] = "" Then Exit Sub

añade esto ->

Userform2.ComboBox3.clear

o, si por lo que sea, lo que quieres es poder seguir añadiendo datos
al combo sin borrar los existentes, no añadas el Clear y cambia el '
i=0 ' por esto ->

i = Userform2.ComboBox3.ListCount

bueno, mas vale prevenir ...

un saludo
Ivan

Ivan:

Efectivamente, sucedia lo que me dijiste (se agregaban a la lista los mismos
items una y otra vez) aunque no me tiraba ningún error. Lo solucioné con
Userform2.ComboBox3.Clear, tal como propusiste. Gracias por estar en todos
los detalles!!
Muchas gracias y hasta la próxima!!

Mariano



"Ivan" escribió en el mensaje
news:

hola Mariano, me alegro que te sirva

de todas formas no estaria de mas (se me ha pasado) que 'limpiaras' el
combo antes de volver a cargarlo, sobre todo si lo llamas desde algun
boton o procedimiento que pueda volver a ejecutarse antes de cerrar el
formulario. Si no, te arriesgas a cargar varias veces los mismos datos
si vuelves a darle al boton (ademas el List se 'descuadraria', si es
que no te genera un error).
si quieres, tras esto ->

If .[A2] = "" Then Exit Sub

añade esto ->

Userform2.ComboBox3.clear

o, si por lo que sea, lo que quieres es poder seguir añadiendo datos
al combo sin borrar los existentes, no añadas el Clear y cambia el '
i=0 ' por esto ->

i = Userform2.ComboBox3.ListCount

bueno, mas vale prevenir ...

un saludo
Ivan