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ú,

Preguntas similare

Leer las respuestas

#21 CARLOS CARNERO
05/12/2008 - 23:02 | Informe spam
Héctor como siempre agradeciéndote la gentileza de tu tiempo. Estoy
trabajando en un control ó Kardex de folios legalizados de libros
contables, que tiene una variedad de nombres y a su vez cada uno de
ellos tiene un número de libro. Un ejemplo:

Libro Diario N°1, N° 2, N° 3,...
Libro Mayor N°1, N° 2,..
.
.
.
y así sucesivamente. Entonces es preciso señalar todos los movimientos
como: ingresos y salidas; y en algunos casos todavía reingresos (es
donde se complicaba el tema, hilado al control del número de libro).
Es por ello que entre las filas 6 al 15, digamos que tengo el rango
del saldo en resumen, mientras que a partir de la fila 18 al 67, el
detalle que comentaba.

Estaba en los intentos de encontrar la falla y me parece que la he
dado con esta corrección en la sintaxis (de todos modos voy a seguir
probándolo y analizando tus siempre acordes y gentiles sugerencias):


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Dim Celda As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo Salida
For Each Celda In Range("a6:a15")
Celda.EntireRow.Hidden = Celda = ""
Next
Salida:
Application.EnableEvents = True
End Sub


Saludos,

Carlos
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida