Imprimir

"Luis" escribió:

Hola de nuevo:
Tengo una macro para imprimir las celdas no vacias, lo consigo siempre que
NO halla formulas ó la celda este determinada por lineas.
podria imprimir sólo las que tiene un valor numerico >=1?
gracias anticipadas
Luis

esta es mi macro

Sub Nueva()
Worksheets("hoja6").Activate
x = ActiveCell.Row
y = ActiveCell.Column
z = 0
Do While Cells(x, y).Value <> ""
x = x + 1
z = z + 1
Loop

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

hola, Luis !

al usar la instruccion <hojaFulana>.Activate y despues .SelectedSheets.PrintOut
podria significar que hay mas de una hoja seleccionada... -> cual es la situacion real ?

que se supone que debiera hacer la macro que expones ?... ocultar filas "bajo condicion" ?
(lo unico que se aprecia es que "acumula" un contador en la variable "z" pero no hace nada con ello)

cual es la celda activa cuando se ejecuta la macro (tienes este detalle "controlado") ?

comentas (si hubiera) algun detalle "en el tintero" ?
saludos,
hector.

__ OP __

Tengo una macro para imprimir las celdas no vacias
lo consigo siempre que halla formulas o la celda este determinada por lineas.
pdria imprimir solo las que tiene un valor numerico >=1 ...
esta es mi macro
Sub Nueva()
Worksheets("hoja6").Activate
x = ActiveCell.Row
y = ActiveCell.Column
z = 0
Do While Cells(x, y).Value <> ""
x = x + 1
z = z + 1
Loop
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Que tal Hector:
he intentado un par de veces responder a tus preguntas, pero, cuando he
acabado de resumir el escrito y le digo exponer, me ha dicho que linea esta
colapsada que lo intente de nuevo mas tarde, espero que a estas horas todo
este todo mas calmado y me lo acepte

1º. en mi escrito anterior he omitido una palabra fundamental, donde dice
(lo consigo siempre que halla formulas) lo correcto es =lo consigo siempre
que NO halla formulas en las celdas
2º Tengo una página de presentación de unas 200 filas y cinco columnas,
marcadas con lineas y una fomula de Buscarv en cada celda, mi pretensión es
imprimir aquellas celdas correlativasfila a fila donde el resultado de
buscarv haya importado lo buscado que siempre sera numerico. Si le doy a
imprimir con esta macro, me imprime unas 7 u 8 páginas con sólo dos (2) con
datos, las demas con los cuadrados de cada celda.
A tu referencia sobre usar las (Hoja fulana), y despues selectsheets, es
ignorancia por mi parte, lo hice porque en la hoja fulana, se pueden imprimir
varias paginas por eso inclui lo de selectsheets.
espero haberme explicado
como siempre, te agradezco tu ayuda
Luis


"Héctor Miguel" escribió:

hola, Luis !

al usar la instruccion <hojaFulana>.Activate y despues .SelectedSheets.PrintOut
podria significar que hay mas de una hoja seleccionada... -> cual es la situacion real ?

que se supone que debiera hacer la macro que expones ?... ocultar filas "bajo condicion" ?
(lo unico que se aprecia es que "acumula" un contador en la variable "z" pero no hace nada con ello)

cual es la celda activa cuando se ejecuta la macro (tienes este detalle "controlado") ?

comentas (si hubiera) algun detalle "en el tintero" ?
saludos,
hector.

__ OP __
> Tengo una macro para imprimir las celdas no vacias
> lo consigo siempre que halla formulas o la celda este determinada por lineas.
> pdria imprimir solo las que tiene un valor numerico >=1 ...
> esta es mi macro
> Sub Nueva()
> Worksheets("hoja6").Activate
> x = ActiveCell.Row
> y = ActiveCell.Column
> z = 0
> Do While Cells(x, y).Value <> ""
> x = x + 1
> z = z + 1
> Loop
> ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
> End Sub

hola, Luis !

(si entiendo bien...) lo que buscas es que se oculten las filas que NO devuelven el dato encontrado (?)
(y segun parece... ) usas formulas "condicionadas" para que en caso de NO encontrar datos, devuelvan... "que" ? (exactamente)
y lo que sigue sin quedar claro es cual es la columna que determina si hay datos (o no) (?)
o como de puede determinar si x_fila se imprime o se oculta

(si es posible) comenta los rangos, titulos, tipo de datos, formulas, por que (si/no) se imprime, etc.
(o sea...) como se puede (re)crear un modelo de trabajo (exactamente) "igual al tuyo" ?

saludos,
hector.

__ OP __

1º donde dice (lo consigo siempre que halla formulas), lo correcto es =lo consigo siempre que NO halla formulas en las celdas
2º Tengo una pagina de presentacion de unas 200 filas y cinco columnas, marcadas con lineas y una fomula de Buscarv ...
mi pretension es imprimir aquellas celdas correlativas fila a fila donde el resultado de buscarv haya importado lo buscado
que siempre sera numerico. Si le doy a imprimir con esta macro, me imprime unas 7 u 8 paginas con solo dos (2) con datos
las demas con los cuadrados de cada celda...

__ previos __

al usar la instruccion <hojaFulana>.Activate y despues .SelectedSheets.PrintOut
podria significar que hay mas de una hoja seleccionada... -> cual es la situacion real ?

que se supone que debiera hacer la macro que expones ?... ocultar filas "bajo condicion" ?
(lo unico que se aprecia es que "acumula" un contador en la variable "z" pero no hace nada con ello)

cual es la celda activa cuando se ejecuta la macro (tienes este detalle "controlado") ?

comentas (si hubiera) algun detalle "en el tintero" ?

__ OP __

Tengo una macro para imprimir las celdas no vacias
lo consigo siempre que halla formulas o la celda este determinada por lineas.
pdria imprimir solo las que tiene un valor numerico >=1 ...
esta es mi macro
Sub Nueva()
Worksheets("hoja6").Activate
x = ActiveCell.Row
y = ActiveCell.Column
z = 0
Do While Cells(x, y).Value <> ""
x = x + 1
z = z + 1
Loop
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Hola Hector
Siento mucho el no saberme explicar, de verdad, no se como hacerlo: lo
intentare de nuevo, (siempre me queda lo opcion de seleccionar el rango a
imprimir e imprimirlo, que es lo que hago ahora)
Si cojes un rango de celdas a1:g20, en todas intorduces la formula
buscarv(x), y obtienes un resultado de a1:g10, las otras celdas estan ahi con
su formula, no quiero que se oculten, me es igual, lo que busco es que a la
hora de imprimir "solo me impre el rango con resultado" a1:g10, !todo esto es
por comodidad
gracias y perdona Hector
Luis


"Luis" escribió:

Que tal Hector:
he intentado un par de veces responder a tus preguntas, pero, cuando he
acabado de resumir el escrito y le digo exponer, me ha dicho que linea esta
colapsada que lo intente de nuevo mas tarde, espero que a estas horas todo
este todo mas calmado y me lo acepte

1º. en mi escrito anterior he omitido una palabra fundamental, donde dice
(lo consigo siempre que halla formulas) lo correcto es =lo consigo siempre
que NO halla formulas en las celdas
2º Tengo una página de presentación de unas 200 filas y cinco columnas,
marcadas con lineas y una fomula de Buscarv en cada celda, mi pretensión es
imprimir aquellas celdas correlativasfila a fila donde el resultado de
buscarv haya importado lo buscado que siempre sera numerico. Si le doy a
imprimir con esta macro, me imprime unas 7 u 8 páginas con sólo dos (2) con
datos, las demas con los cuadrados de cada celda.
A tu referencia sobre usar las (Hoja fulana), y despues selectsheets, es
ignorancia por mi parte, lo hice porque en la hoja fulana, se pueden imprimir
varias paginas por eso inclui lo de selectsheets.
espero haberme explicado
como siempre, te agradezco tu ayuda
Luis


"Héctor Miguel" escribió:

> hola, Luis !
>
> al usar la instruccion <hojaFulana>.Activate y despues .SelectedSheets.PrintOut
> podria significar que hay mas de una hoja seleccionada... -> cual es la situacion real ?
>
> que se supone que debiera hacer la macro que expones ?... ocultar filas "bajo condicion" ?
> (lo unico que se aprecia es que "acumula" un contador en la variable "z" pero no hace nada con ello)
>
> cual es la celda activa cuando se ejecuta la macro (tienes este detalle "controlado") ?
>
> comentas (si hubiera) algun detalle "en el tintero" ?
> saludos,
> hector.
>
> __ OP __
> > Tengo una macro para imprimir las celdas no vacias
> > lo consigo siempre que halla formulas o la celda este determinada por lineas.
> > pdria imprimir solo las que tiene un valor numerico >=1 ...
> > esta es mi macro
> > Sub Nueva()
> > Worksheets("hoja6").Activate
> > x = ActiveCell.Row
> > y = ActiveCell.Column
> > z = 0
> > Do While Cells(x, y).Value <> ""
> > x = x + 1
> > z = z + 1
> > Loop
> > ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
> > End Sub
>
>
>