Imprimir filas determinadas

Gracias Iván
Un saludo
Carmen

"Ivan" escribió en el mensaje
news:
hola ¿Carmen Jose Maria?

en lo que se refiere a los formatos, estaba equivocado,

realmente parece que copia los mismos formatos que tenga el original.
Aunque llevo unas cuantas pruebas con Filtros Avanzados no me habia
dado por fijarme en el tema especialmente y en esta prueba el origen
no tenia ningun tipo de formato y me dio por pensar por ahí... bueno,
parece que ya va formateada

un saludo
Ivan

PD: probablemente se pueda hacer sin copiar a otra hoja, imprimiendo
solo el rango visible directamente (con xlFilterInPlace), pero por mas
que le he dado vueltas de momento no lo he logrado...

Iván, he probado a copiar el código en un módulo y lo he llamado como una de
las hojas, y lugo como otra por probar, funciona de la siguiente manera:
Aparece una hoja nueva que cada vez que le doy a ejecutar el código se
genera con el nombre de la hoja más unos números, ejemplo:
DatosClientes_04-06-07_203950 y en otra ocasión
DatosClientes_04-06-07_204513, el problema es que imprime solo los
encabezados pero no los contenidos de la celda.
Que te parece si cambiaramos un poco el planteamiento y la pregunta fuera:
Queremos imprimir de una hoja todos los datos que tengo en filas y columnas
atendiendo a una selección realizada del número de facturas.
El número de facturas seria el titulo de la columna A "Num_Factura" y que se
generaría automáticamente.
Nos proguntaria que número de facturas queremos imprimir por ejemplo desde
la 1 a la 5.
Espero aclararos más el tema, y a ver si encontramos la solución, gracias
Carmen
Ah! José María es mi marido, que esta también como loco buscando la forma de
resolver este tema.

On 4 jun, 23:39, "Carmen" <CJARROBAhotmail.com> wrote:

Iván, he probado a copiar el código en un módulo y lo he llamado como una de
las hojas, y lugo como otra por probar, funciona de la siguiente manera:
Aparece una hoja nueva que cada vez que le doy a ejecutar el código se
genera con el nombre de la hoja más unos números, ejemplo:
DatosClientes_04-06-07_203950 y en otra ocasión
DatosClientes_04-06-07_204513, el problema es que imprime solo los
encabezados pero no los contenidos de la celda.
Que te parece si cambiaramos un poco el planteamiento y la pregunta fuera:
Queremos imprimir de una hoja todos los datos que tengo en filas y columnas
atendiendo a una selección realizada del número de facturas.
El número de facturas seria el titulo de la columna A "Num_Factura" y que se
generaría automáticamente.
Nos proguntaria que número de facturas queremos imprimir por ejemplo desde
la 1 a la 5.
Espero aclararos más el tema, y a ver si encontramos la solución, gracias
Carmen
Ah! José María es mi marido, que esta también como loco buscando la forma de
resolver este tema.

hola carmen,

ahora estoy nuy liado y no tengo tiempo. Si alguien no se anima a
resolvertelo antes, esta noche le echo un ojo.

de todas formas el codigo enviado , si el criterio 'Pendiente' es
exactamente asi en la colunmna F deberia funcionarte. A mi me iimprime
toda la lista filtrada. Pon como comentario PrintOut y desmarca
PrintPreview para las pruebas, asi no tendras que imprimir cada vez.

en cuanto a lo otro, de forma rapida, puedes introducir el minimo en
un celda y el maximo en otra (de la fila1 pej. y separadas de la lista
y poner algo parecido a esto:

cambiar esta linea: .[h1] = .[f1]: .[h2] = "Pendiente"

por esta:->

.[h2].formula = "=and(a2>" celda_minimo & "a2<" & celda_maximo & ")"


esta sin probar, pero creo que algo parecido `podria valer

un saludo
Ivan

PD: la columna G debe estar vacia

hola Carmen y Jose Maria ..o Jose Maria y Carmen

te he enviado un mensaje hace un buen rato desde google que supongo que aun no ha aparecido por causa del servidor. Pero
como despues he mandado otros dos mensajes que si han aparecido, no se si en vez de enviarlo lo he cancelado o que.
Bueno, en el otro mensaje van (¿iban?) varias explicaciones, que como supongo que acabara apareciendo y ademas no tengo
copia no te repito.

solo comentarte que el otro codigo, si todo lo has puesto bien y el archivo era como lo comentabais deberia haberte
funcionado

de todas formas te mando este otro codigo para que lo pruebes adaptado a las nuevas circunstancias.

como el anterior esta hecho para una lista con las columnas de la A a la F incluidas, y los nros de fra. en la columna
A. Te recomiendo que 1º lo pruebes con estas circunstancias y luego lo adaptes si quieres.

el valor minimo tienes que introducirlo en la celda J1 y el maximo en K1

pegalo en un modulo 'normal', no de hoja ni thisworkbook

Sub Imprimir_Intervalo()
With ThisWorkbook.Worksheets("DatosClientes")
On Error Resume Next
.ShowAllData
On Error GoTo 0
If .AutoFilterMode Then .AutoFilterMode = False
If .[j1] = "" Or Not IsNumeric(.[j1]) Or _
.[k1] = "" Or Not IsNumeric(.[k1]) Then _
MsgBox "Introduce el minimo en 'J1' y/o el maximo en 'K1'" & _
" y vuelve a intentarlo": .Activate: .[j1:k1].Select: Exit Sub
.[h1:h2].ClearContents: .[iq:iv].Clear
.[h2].Formula = "=and(a2>=$j$1,a2<=$k$1)"
.Range("a1:f" & .[a65536].End(xlUp).Row) _
.AdvancedFilter xlFilterCopy, .[h1:h2], .[iq1:iv1], False
.[h2].ClearContents
With .[iq:iv]
.Columns.AutoFit: .PrintPreview: .Clear
End With
End With
End Sub

posiblemente aparezca el otro mensaje, pero por si acaso

un saludo
Ivan

"Carmen" <CJARROBAhotmail.com> escribió en el mensaje news:

Iván, he probado a copiar el código en un módulo y lo he llamado como una de las hojas, y lugo como otra por probar,
funciona de la siguiente manera:
Aparece una hoja nueva que cada vez que le doy a ejecutar el código se genera con el nombre de la hoja más unos
números, ejemplo: DatosClientes_04-06-07_203950 y en otra ocasión DatosClientes_04-06-07_204513, el problema es que
imprime solo los encabezados pero no los contenidos de la celda.
Que te parece si cambiaramos un poco el planteamiento y la pregunta fuera: Queremos imprimir de una hoja todos los
datos que tengo en filas y columnas atendiendo a una selección realizada del número de facturas.
El número de facturas seria el titulo de la columna A "Num_Factura" y que se generaría automáticamente.
Nos proguntaria que número de facturas queremos imprimir por ejemplo desde la 1 a la 5.
Espero aclararos más el tema, y a ver si encontramos la solución, gracias
Carmen
Ah! José María es mi marido, que esta también como loco buscando la forma de resolver este tema.

hola Carmen y Jose Maria,

os respondo por aqui por que apenas he tenido tiempo mas que de
echarle un vistazo al archivo que me habeis mandado, y ya de paso para
no 'hurtarle' una conversacion al foro

hasta que tenga tiempo de echarle un ojo mas tranquilo, os comento:

sobre la consulta inicial ("Pediente/"cobrado") no es extraño que os
imprima solo los titulos si el archivo mencionado es este, pues no
tiene nada que ver con lo que planteabais:

a) ni en la hoja datos cliente, donde la columna F contiene horas
(nada parecido a pendiente/cobrado, que ni siquiera parece que
aparezcan en ninguna parte/columna del archivo) y ademas la G tambien
contiene datos

b) ni en la hoja "RecuentoCaja" (que comentas innecesaria) en cuya
columna F solo hay valores monetarios.

(creo que) estareis de acuerdo en que resulta dificil filtrar por algo
inexistente, y que, aunque Excel (para mi gusto) es una maravilla
capaz de muchisimas mas cosas de las que nos imaginamos, parece que a
los programadores de microsoft no se les ha ocurrido (es una pena)
incluir el muy noble arte de la adivinacion entre sus virtudes.

bueno, ya en serio, en cuanto a esta primera parte, ni siquiera soy
capaz de deducir de donde sacar un posible "Pendiente/Cobrado"

en cuanto a la 2º consulta prueba el ultimo codigo que hace lo que
pedis, pero si lo vas a usar con la hoja datos clientes, que incluye
la columna G, deberias correr o ampliar todas las referencias una
columna:

donde haga mencion a A:F poner A:G
H por I , J por K , K por L y IQ:IV por IP:IV

pero te recomiendo hacer las pruebas con la hoja rcuentocaja tal y
como esta (hasta la columna F) y sin tocar el codigo mas que en el
nombre de la hoja: donde en el ultimo codigo pone "DatosClientes" pon
"RecuentoCaja"

bueno, si os animais a hacer las pruebas y comentais el resultado y
posible necesidad de adaptacion, podemos (si yo no lo se seguro que
hay otros muchos foreros que si) intentarlo.

lo que si os recomiendo es que los datos expuestos sean mas fidedignos/
apegados a la realidad.

espero os ayude

un saludo y hasta pronto
Ivan