Combobox a otro Combobox filtrandose

guauu.. quisiera aprender mas rapido, dejame lo pruebo y te comento
efectivamente agregue un fila() en la columna h
la verdad es que agregue esta columna por salud mental ...mia, pues si tengo
que depurar un codigo que apenas estoy entendiendo pero estoy en el
camino de aprendizaje
gracias

"Héctor Miguel" escribió:

hola, José !

=> perdon... el mensaje anterior 'se me chispotio' :))

> ... ya esta funcionando, sin embargo tuve que hacer algunos cambios
> ... aunque estaba comparando cadenas completas, la repeticion de datos es posible
> ... tuve que aumentar una columna de control (un consecutivo) el codigo quedo de esta manera [...]
> comentas ?

[solamente] uno [o dos, o tres] 'comentarios' :))
1) [creo que] el 'manejo de errores' [tal como lo estas 'manejando']...
a) [de todas formas] esta 'dejando' que 'corra' el filtro para buscar datos que [realmente] no va a encontrar :-(
b) NO esta 'evitando' que el listbox quede 'lleno' de datos que [realmente] no son 'apegados' a la busqueda -?-
[aunque el dato 'buscado' sea 'inexistente'] :-(
c) [ademas de que]... esta 'omitiendo' restablecer/quitar/... el autofiltro -?-
2) [supongo que] la columna [de control] que agregaste [probablemente] contenga una funcion del tipo =Fila() -?-
3) no se cuantas 'coincidencias' [realmente] podrias tener donde 'coincidan' [exactamente] fecha, monto y concepto -?-

si lo anterior esta funcionando [tal cual o +/-] como lo requieres... [probablemente]...
solo te recomendaria 'evitar' [si te conviene] lo comentado en el punto uno :))
lo que podrias conseguir segun comentario anterior que 'decia' +/-...
> 2) [como primera alternativa]... prueba a poner la siguiente instruccion DESPUES DE 'Limpiar' el listbox...
> en el modulo de codigo del formulario... en el evento '_change' del combobox1 ==> > If Application.CountIf(Worksheets("depositos").Columns("a"), ComboBox1) = 0 Then Exit Sub
con una ligera adaptacion +/- a lo siguiente [con lo que podrias 'prescindir' del manejo de errores] :)
en el modulo de codigo del formulario ==> Private Sub ComboBox1_Change()
ListBox1.Clear: ListBox1.ColumnCount = 7
If Application.CountIf(Worksheets("depositos").Columns("a"), ComboBox1) = 0 _
Then MsgBox "No hay depositos en esta cuenta ! ", vbCritical, "Seleccion Incorrecta": Exit Sub
' [aqui sigue el resto del codigo SIN el manejo de errores] ... ;)

si cualquier duda... comentas?
saludos,
hector.

hola, José !

... quisiera aprender mas rapido
... agregue esta columna por salud mental ...mia
... si tengo que depurar un codigo que apenas estoy entendiendo
... pero estoy en el camino de aprendizaje

con relacion a la rapidez... [creo yo que], cada quien 'avanza al ritmo que puede/quiere/necesita' ;)
ademas considera que [en muchas de las ocasiones]
-> 'buscando una cosa'... 'encuentras otra' [que se te habia 'perdido']
-> o ['te topas' con] 'la hermana que se escapo de su prision' [sor-presa... NO esta !!!] :))
-> cuando 'se atora la carreta' [que nos sucede a todos] :-(
NO es 'imprescindible' saberlo todo. es suficiente con saber...
el telefono del que sabe... o el e-mail... o la web... o... porque no consultas en el foro? :D

por lo del camino... nos seguiremos encontrando, ya que [no creo equivocarme si digo que]..
TODOS 'andamos' por 'ese' camino :D

saludos,
hector.

Sr. Jose, espero y lea esto... despues de que soluciono sus problemas.

En una de las partes de sus comentarios, lei que usted ya soluciono el
problema de las chequeras, le digo esto por que necesito imprimir mis cheques
sin tener que teclear de nuevo... si fuese tan amable de ayudarme, se lo
agradeceria mucho, para tal efecto dejo a usted mi correo electronico

Atte. Juan Martinez.


"Héctor Miguel" escribió:

hola, José !

> ... quisiera aprender mas rapido
> ... agregue esta columna por salud mental ...mia
> ... si tengo que depurar un codigo que apenas estoy entendiendo
> ... pero estoy en el camino de aprendizaje

con relacion a la rapidez... [creo yo que], cada quien 'avanza al ritmo que puede/quiere/necesita' ;)
ademas considera que [en muchas de las ocasiones]
-> 'buscando una cosa'... 'encuentras otra' [que se te habia 'perdido']
-> o ['te topas' con] 'la hermana que se escapo de su prision' [sor-presa... NO esta !!!] :))
-> cuando 'se atora la carreta' [que nos sucede a todos] :-(
NO es 'imprescindible' saberlo todo. es suficiente con saber...
el telefono del que sabe... o el e-mail... o la web... o... porque no consultas en el foro? :D

por lo del camino... nos seguiremos encontrando, ya que [no creo equivocarme si digo que]..
TODOS 'andamos' por 'ese' camino :D

saludos,
hector.