Como ocultar celdas

Hola, esto no es necesario hacerlo por código. Lo podés hacer con Formato
Condicional ingresando una fórmula con referencia mixta.
El procedimiento sería:

1. Seleccionar una sola fila de datos.
2. Formato condicional.
2.1 En el combo elegir fórmula. Ingresar una fórmula lógica, en este caso
=Y(cond1; cond2; cond3; etc) En donde la condición en este caso hay que
ingresarla preguntando si la celda tiene valor nulo o no pero con referencia
mixta para luego poder hacer el paso 3. Ej suponiendo que estamos
seleccionando los datos de la fila 2 y se quiere controlar si los campos de
las columnas A y C no son nulos:
= Y($A2="";$C2="").
2.2 Agregar un Formato Personalizado con ;;; (tres puntos y comas). Esto
hace que los valores de las celdas no se muestren.
3. Copiar formato a todas las filas que se desee.

Saludos. Espero te sirva.
Adriano D'Ambra

An. Informática - Microsoft Office Specialist

Coord. Dpto. de Informática

Universidad FASTA



"Edison_Torres" escribió en el mensaje
news:164c001c447d5$d09c8020$

Hola a Todos, alguien que me pueda ayudar con el sgte.
escenario:
Resulta que tengo una matriz de Item en donde almaceno
valores de ventas y lo que deseo es que si algun item no
tiene valor que se oculte la fila del Item.
He estado utilizando el sgte. codigo pero no creo que sea
el adecuado ya que unicamente me oculta la celda que
indico y no asi toda la matriz que deseo.

El codigo que utilizo es:

Private Sub Worksheet_Calculate()
Range("a1").EntireRow.Hidden = (Range("a1") = 0)
End Sub

Gracias por su ayuda.

Edison

El codigo se basa en la sig. informacion:

Celda inicial del rango A5,
Celda final B14

Cree un rango denominado "Ventas" en

Insertar
Nombre
Definir

LC = Range("Ventas").Rows.Count
LI = Range("Ventas").Row
TL = LC + LI - 1

With Me
For r = LI To TL
If .Cells(r, 2).Value = 0 Then .Cells(r,
2).EntireRow.Hidden = True
Next r
End With

'Para mostrar nuevamente las lineas
'range("Ventas").EntireRow.Hidden = false

Espero te sirva de algo.

Saludos