Ayuda en Excel

Hola Edison,

Una forma muy eficiente es usando el Filtro Avanzado.

Suponiendo que...
1) tu base de datos esta en el rango [A4:J(n)] donde (n) es el numero de la ultima fila
2) todas las columnas tienen titulos en la fila [4]
3) todos los registros tienen el numero de cedula en la columna [A]
4) no hay filas totalmente vacias intermedias

Prueba lo siguiente:

con la hoja de la base de datos activada...
1) asegurate que la celda [A1] esta totalmente vacia
2) en la celda [B1] pon la siguiente formula:
=O(F5<>"";G5<>"")
3) haz clic derecho sobre el pequeno logo de Excel a la izquierda del menu 'Archivo'
4) elige la opcion 'Ver Codigo' para abrir el Editor VBA
5) una vez en el Editor VBA, ve al menu 'Insertar>Modulo...'
6) pega el siguiente codigo en la ventana mas grande a la derecha:

'Inicio codigo
Sub Filtrar()
With ActiveSheet
.[A4].CurrentRegion.AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=.[A1:A2]
End With
End Sub

Sub Mostrar()
ActiveSheet.ShowAllData
End Sub
'Fin codigo

7) pulsa Alt+F11 para volver a la hoja
8) si no tienes visualizado el cuadro de controles 'Formularios' (no se confunda con el de 'Visual Basic'), haz clic derecho sobre el area de menus de la parte de arriba
9) elige la opcion 'Formularios' para mostrar el cuadro de controles correspondiente
10) Introduce dos botones en la parte de arriba de la hoja asignandoles los procedimientos 'Filtrar' y 'Mostrar' respectivamente
11) haz pruebas.

Aqui te pongo un ejemplo: http://www.telefonica.net/web/kl/VB...ulated.xls


Saludos,
KL


"Edison Torres" wrote in message news:

Hola, tengo una hoja en la cual tengo ingresado informacion desde la fila 5
hasta las 30000 y lo tengo codificado por numero de cedula, ahora necesito
algun codigo el cual si la columna almuerzo(F4) o merienda(G4) tiene algun
valor se me active toda la fila caso contrario se me oculte.
Mucha gracias.