Corregir Macro

[José L León Q1]

Estimados EXCELnautas

Adjunto un archivo que contiene una macro que me sirve para imprimir los estados financieros. Esta macro lo que hace es ocultar la linea donde aparecen cuentas que no tienen...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[José L León Q1]

Estimados EXCELnautas

Algo más no soy experto en macros.

Saludos

JL

 

[Cacho R]

Hola! José. Hay muchas formas de hacerlo. Por ejemplo:

Con lo siguiente ocultas:

Sub Ocultar()
Dim Vec, Tmp, i&, Q&
Application.ScreenUpdating = False: Mostrar
With...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[José L León Q1]

Estimado Maestro Cacho R

Le adjunto el archivo original con la macro y no me funciona. No se que estoy haciendo mal, esta es la aplicación original que estoy desarrollando para el grupo de...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[José L León Q1]

Mil disculpas Maestro

Ya consegui el error era cambiar b por d en original que le envié la columna es b. Funciona EXCELente

Muy agradecido.

Saludos,

JL

 

[trogisre]

Interesante respuesta, ya le había agregado un For para reemplazar la parte de la selección:

Sub Mostrar()
'
'Imprimir Macro

  
    For i = 9 To 98
    If (Cells(i, 2) = "0") Then...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[José L León Q1]

Interesante Trogister

Creo que el orden será primero oculto y luego imprimo. Luego ejecuto la macro mostrar, esto seria una opción independiente, es decir la ejecuta el usuario.

Podria ser?

JL

 

[elforex]

Cacho,
Me puede decir como puedo imprimir el resultado de esta variable?
Vec = Evaluate("if((" & Tmp & "=0)*(" & Tmp & "<>""""),row(" & Tmp & "))")

y me puedes explciar que hacen estas 2...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Me puede decir como puedo imprimir el resultado de esta variable?
Vec = Evaluate("if((" & Tmp & "=0)*(" & Tmp & "<>""""),row(" & Tmp & "))")

¡Olvídate por un rato del...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[José L León Q1]

Estimado Maestro CACHO R

En el archivo adjunto en las hojas Admon y Costos utilice la macro ocultar que ud. me envió para ocualtar las lineas en blanco en los estados financieros y funciona...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

... la idea es que se modifique la macro sólo para estas dos hojas de manera que al ejecutarla oculte los meses en blanco siguientes al mes que se informa que está en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[José L León Q1]

Gracia Maestro

Saludos

JL