Macro: mostrar fila, si celda""

11/11/2008 - 23:11 por CARLOS CARNERO | Informe spam
Tengo de B6:B15 algunos datos numéricos, que a su vez están ocultos y
protegida la hoja. Entonces, necesito una macro que ejecute mostrar la
fila al encontrar una celda <>"" en este rango.

Se agradece de antemano.

Saludos desde el Perú,
 

Leer las respuestas

#1 Héctor Miguel
12/11/2008 - 01:56 | Informe spam
hola, Carlos !

Tengo de B6:B15 algunos datos numericos, que a su vez estan ocultos y protegida la hoja.
Entonces, necesito una macro que ejecute mostrar la fila al encontrar una celda <>"" en este rango...



si suponemos que la causa/razon/motivo/circunstancia/... por la cual "una celda" (dentro de ese rango)
pudiera reflejar un valor/contenido/... de <>"" o ="" es por efectos de alguna formula...

podrias utilizar el evento '_calculate' en el modulo de codigo de "esa" hoja DESPUES DE...
(re)proteger la hoja con "solo la intefase con el usuario" en el evento '_open' de tu libro +/- como sigue:

1) en el modulo de codigo de tu libro (This"orkbook)

Private Sub Workbook_Open()
Worksheets("hoja1").Protect "abc", 1, 1, 1, 1
End Sub

2) en el modulo de codigo de "esa" hoja

Private Sub Worksheet_Calculate()
Dim Celda As Range
Application.ScreenUpdating = False
For Each Celda In Range("b6:b16")
Celda.EntireRow.Hidden = Celda = ""
Next
End Sub

hay otras alternativas que dependeran de algun detalle que dejaras "en el tintero" -?-
saludos,
hector.

Preguntas similares