Para Hector Miguel- Buscar Datos

hola, Luis !

Las formulas... anduvieron... pero tarda mucho en actualizar...;-((
... cree una macro que me copia... los clientes, y... los recibos( pagos e impagos).
... son al dia de hoy 15.000 filas, por lo que al cambiar de cliente... tarda muchisimo...
Se podra hacer de otra forma ???

[creo que]... 'es tiempo'... de 'llegarle' a las macros :)) si comentas...
-> en que rango/s y hoja/s estan los datos que necesitas fifltrar/extraer/...
-> a que rango/s y hoja/s necesitas que sean 'filtrados/extraidos/...'

saludos,
hector.

Gracias Hector por responder...

[creo que]... 'es tiempo'... de 'llegarle' a las macros :)) si
comentas...
-> en que rango/s y hoja/s estan los datos que necesitas
fifltrar/extraer/...

Hoja "Deudas" Rango A2 : K15000 ( columna A Numero cliente, B tipo factura
(A, b o C) , C Numero de factura ,D y E no interesan , F fecha factura , G
no interesa, H importe, I, J no interesan , K estado ( 1 Paga 2 Impaga )

-> a que rango/s y hoja/s necesitas que sean 'filtrados/extraidos/...'

Hoja " Resumen" en F5 coloco el numero de cliente y los datos los preciso en
B14:E40 ( B tipo factura , C numero , D fecha , E importe )

Espero haberme explicado bien.

saludos,

Otros y gracias nuevamente

hector.

Luis

hola, Luis !

Hoja "Deudas" Rango A2:K15000
... (columna A Numero cliente, B tipo factura (A, b o C), C Numero de factura, D y E no interesan
... F fecha factura, G no interesa, H importe, I, J no interesan, K estado (1 Paga 2 Impaga)
Hoja " Resumen" en F5 coloco el numero de cliente y los datos los preciso
... en B14:E40 (B tipo factura, C numero, D fecha, E importe)

te paso al final la forma mas 'barata' [o sencilla] que te pude conseguir, asi como los 'requerimientos' :)
-> y toma en consideracion que 'mi' separador de argumentos es la coma ',' NO punto y coma ';' <- :)
si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
=1) en la hoja 'deudas' [estoy suponiendo que la fila 1 son los titulos o encabezados de las columnas]...
a) asigna un nombre al rango de la 'base de datos' [p.e. Datos] ->INCLUYENDO los titulos<-
b) [suponiendo que a partir de la columna 'L' ya no hay datos]...
-> deja libre la celda 'M1' [y solo por dejar un espacio libre]
-> pon la siguiente formula en 'M2'... =y(a2=resumen!f5,k2=2)
[por filtros avanzados -por codigo-, va a 'comparar' de cada fila si coincide con el cliente y el estado es 2 -impaga-]
2) en la hoja 'resumen' [suponiendo que los titulos 'a extraer' estan en el rango 'B13:E13']...
a) asigna un nombre a dichos titulos [p.e. salida]
b) ASEGURATE de que los textos COINCIDAN [exactamente] con sus titulos en la hoja 'deudas'
es decir... [resumen] B, C, D y E [13] deberan ser iguales a: [deudas] B, C, F y H [1]
c) copia las siguientes lineas...
en el modulo de codigo de la hoja 'resumen' ==Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$5" Then Exit Sub
Worksheets("deudas").Range("datos").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("deudas").Range("m1:m2"), _
CopyToRange:=Me.Range("salida")
Target.Select
End Sub

Perfecto Hector, sencillamente perfecto..

Gracias miles

Luis


"Héctor Miguel" escribió en el mensaje
news:ukT$

hola, Luis !

Hoja "Deudas" Rango A2:K15000
... (columna A Numero cliente, B tipo factura (A, b o C), C Numero de
factura, D y E no interesan
... F fecha factura, G no interesa, H importe, I, J no interesan, K
estado (1 Paga 2 Impaga)
Hoja " Resumen" en F5 coloco el numero de cliente y los datos los preciso
... en B14:E40 (B tipo factura, C numero, D fecha, E importe)

te paso al final la forma mas 'barata' [o sencilla] que te pude conseguir,
asi como los 'requerimientos' :)
-> y toma en consideracion que 'mi' separador de argumentos es la coma ','
NO punto y coma ';' <- :)
si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
=> 1) en la hoja 'deudas' [estoy suponiendo que la fila 1 son los titulos o
encabezados de las columnas]...
a) asigna un nombre al rango de la 'base de datos' [p.e.
Datos] ->INCLUYENDO los titulos<-
b) [suponiendo que a partir de la columna 'L' ya no hay datos]...
-> deja libre la celda 'M1' [y solo por dejar un espacio libre]
-> pon la siguiente formula en 'M2'... =y(a2=resumen!f5,k2=2)
[por filtros avanzados -por codigo-, va a 'comparar' de cada fila
si coincide con el cliente y el estado es 2 -impaga-]
2) en la hoja 'resumen' [suponiendo que los titulos 'a extraer' estan en
el rango 'B13:E13']...
a) asigna un nombre a dichos titulos [p.e. salida]
b) ASEGURATE de que los textos COINCIDAN [exactamente] con sus titulos
en la hoja 'deudas'
es decir... [resumen] B, C, D y E [13] deberan ser iguales a:
[deudas] B, C, F y H [1]
c) copia las siguientes lineas...
en el modulo de codigo de la hoja 'resumen' ==> Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$F$5" Then Exit Sub
Worksheets("deudas").Range("datos").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("deudas").Range("m1:m2"), _
CopyToRange:=Me.Range("salida")
Target.Select
End Sub