Problemas al imprimir

Hola otra vez,
He creado este código con la grabadora para poder buscar todos los "0"
de la hoja activa y asi poder eliminarlos pero no hay tu tia!!!

Cells.Find(What:="0", After:=ActiveCell, LookIn:=xlValues, LookAt:_
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate

Lo que quiero es que me seleccione todos los "0" para poder
eliminarlos.
Al hacer todo el proceso grabandolo con la grabadora de macros, la
grabadora no me graba el seleccionar todos los ceros, me modificáis el
código?
Gracias

Hola ~ jose ~,

Comentarte que me parece que vas demasiado de prisa y descartas la solucion con demasiada facilidad mientras que la unica razon por
la que no te funcionan es que no has dado toda la informacion :-)

Si las formulas devuelven valores alfanumericos concatenados (o sea texto) o en caso contrario un valor numerico (0), entonces
prueba hacer lo siguiente:

1) Cambia la la formula a =SI(ref4!E371;ref4!F371;0)
2) Con tu libro abierto, haz clic-derecho sobre el pequeno logo de Excel a la izquierda del menu Archivo
3) Elige la opcion 'Ver Codigo' para abrir el editor VBA.
4) En la ventana mas grande a la derecha pega el siguiente codigo (cambia el nombre de la hoja por el real):

'-inicio codigo--
Private Sub Workbook_BeforePrint(Cancel As Boolean)
On Error Resume Next
With Sheets("Sheet1")
.PageSetup.PrintArea = _
"$A$1:$B$" & Application.Match( _
Application.Rept("z", 255), .[B:B])
End With
End Sub
'-final codigo--

5) Pulsa Alt+F11 para volver a la hoja.
6) Prueba activar la Vista Previa

Lo del contador de paginas creo que hay una solucion que habia posteado Hector Miguel hace algun tiempo y si haces una busqueda en
Google seguramente la encontraras.

Saludos,
KL


"~ jose ~" wrote in message news:
Hola, me voy a explicar "mejor" (espero).

Tengo una hoja (llamada "Imprimir hoja") con unos titulos, encabezados,
en fin un poco de texto sin importancia, y en el rango B7:B444 tengo
esta formula en cada una de las celdas.
=SI(ref4!E7;ref4!F7;0)
Esta fórmula coje datos alfanumericos, bueno mejor explicado, serian
numeros, espacios en blanco y texto, todo unido mediante la funcion
CONCATENAR, esta funcion está en la hoja "ref4".
En la hoja "imprimir hoja" tengo desactivada la opcion de no mostar
valores 0 asi si no cumple la funcion "SI" no me aparence un montón de
ceros.

Bien, pues en esta hoja he entrado en Archivo/Configurar página/ y en
la pestaña "Encabezado y pie de página" le he puesto que me muestre
"Página 1 de ?"

Hasta aqui bien.
El problema que tengo es que en vista prelimiar (o al imprimir, me dá
igual) el indicador de páginas (Página 1 de ?) me muestra siempre
"Página 1 de 12", 12 es el tamaño total que ocuparia si estubieran
con datos todas las celdas del rango "B7:B444" o si no tubiera la
opcion de ocultar los valores 0.
Si yo tengo solo (por ejemplo) diez filas con datos, ¿como haria para
que el indicador me marque (en este caso) "Página 1 de 1".

Yo habia pensado en hacer una macro que me busque todos los valores "0"
del rango "B7:B444" y me borre todas las celdas. De esta forma
funcionaria (lo he hecho a mano y si funciona).
Este proceso lo he intentado grabar con la grabadora de macros pero no
se graba bien (bueno, o no lo hago bien)
Creo que ahora me he explicado bien (quizas un poco largo pero
bueno...)
Gracias.

Hola Kl,
Muy bien, pero que muy bien, ya lo tengo, simplemente he modificado las
columnas que queria imprimir ya que la columna "B" era muy pequeña y
el contenido muy largo, me llegaba hasta la columa AB (claro, tengo las
columnas pequeñicas ;-) )
"$A$1:$B$" este por este otro "$A$1:$AB$"
Con este código que me has pasado ahora me funciona bien el contador
de páginas, no me hace falta hacer nada.

Bueno KL, pues como siempre garcias otra vez, ok?