Ocultar automáticamente filas sin datos en Hojas de Calculo.

30/01/2018 - 15:36 por cnikcolombia | Informe spam
Buen día, hice una macro en un excel pero al subirlo a hojas de calculo de google no me funcionó.

Esta Macro oculta las filas que no contienen datos y al cambiar los datos vuelve a mostrar las filas y luego vuelve a ocultar las nuevas vacías.

¿Alguien de este grupo me puede ayudar a escribir esta macro para que funcione en Hojas de calculo? Mil gracias de antemano.

Anexo la macro:

Sub Buscar()
'
' Buscar Macro
'
ActiveSheet.Rows("4:600").Hidden = True
For f = 4 To 600
If Cells(f, 1).Value = "" Then Cells(f, 1).EntireRow.Hidden = False
Next
ActiveSheet.Rows("4:600").Hidden = False
For f = 4 To 600
If Cells(f, 1).Value = "" Then Cells(f, 1).EntireRow.Hidden = True
Next
End Sub
 

Leer las respuestas

#1 Ignacio Perez
31/01/2018 - 12:33 | Informe spam
El martes, 30 de enero de 2018, 15:36:09 (UTC+1), escribió:
Buen día, hice una macro en un excel pero al subirlo a hojas de calculo de google no me funcionó.

Esta Macro oculta las filas que no contienen datos y al cambiar los datos vuelve a mostrar las filas y luego vuelve a ocultar las nuevas vacías.

¿Alguien de este grupo me puede ayudar a escribir esta macro para que funcione en Hojas de calculo? Mil gracias de antemano.

Anexo la macro:

Sub Buscar()
'
' Buscar Macro
'
ActiveSheet.Rows("4:600").Hidden = True
For f = 4 To 600
If Cells(f, 1).Value = "" Then Cells(f, 1).EntireRow.Hidden = False
Next
ActiveSheet.Rows("4:600").Hidden = False
For f = 4 To 600
If Cells(f, 1).Value = "" Then Cells(f, 1).EntireRow.Hidden = True
Next
End Sub




Buenos dias cnikco...
Por lo que entiendo quieres que las filas aparezcan y desaparezcan despues de un evento (al cambiar los datos) si es asi debes de programar en la hoja (no en modulo, ni en el libro) y la macro ha de llamarse asi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

saluds

Preguntas similares