Eliminar celdas en blanco

26/12/2004 - 22:31 por Daniel | Informe spam
Hola atodos espero q hayan tenido unas felices fiestas mi pregunta es la
sgte. este macro me ayudaron aca en el foro pero lo q deseo es q se oculten
las celdas q estan en blanco ( sin ningun valor) me pueden ayudar gracias de
antemano

Sub EsconderFilas()
ActiveSheet.Unprotect "miclave" 'Desprotege
Application.ScreenUpdating = False
Dim Rango As Range, c As Range

Set Rango = Range("C8:C42")
For Each a In Rango
If a = 0 And a <> vbNullString Then
a.EntireRow.Hidden = True
Else
a.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="miclave" ' Vuelve a proteger
End Sub

Preguntas similare

Leer las respuestas

#1 KL
26/12/2004 - 23:32 | Informe spam
Daniel,

Prueba los dos macros de abajo.

Saludos,
KL

'-Inicio Macro1-
'Esconde las filas si la celda en la columna C esta vacia.
Sub EsconderFilas()
ActiveSheet.Unprotect "miclave" 'Desprotege
Application.ScreenUpdating = False
Dim Rango As Range, c As Range

Set Rango = ActiveSheet.Range("C8:C42")
For Each c In Rango
If IsEmpty(c) Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next
ActiveSheet.Protect "miclave" ' Vuelve a proteger
End Sub

'-Fin Macro1-

'-Inicio Macro2-
'Esconde las filas si todas las celdas de la fila estan vacias.
Sub EsconderFilas1()
ActiveSheet.Unprotect "miclave" 'Desprotege
Application.ScreenUpdating = False
Dim Rango As Range, c As Range

Set Rango = ActiveSheet.Range("C8:C42")
For Each c In Rango
Select Case Application.CountA(c.EntireRow)
Case 0: c.EntireRow.Hidden = True
Case Else: c.EntireRow.Hidden = False
End Select
Next

ActiveSheet.Protect "miclave" ' Vuelve a proteger
End Sub
'-Fin Macro2-



"Daniel" wrote in message
news:
Hola atodos espero q hayan tenido unas felices fiestas mi pregunta es la
sgte. este macro me ayudaron aca en el foro pero lo q deseo es q se
oculten
las celdas q estan en blanco ( sin ningun valor) me pueden ayudar gracias
de
antemano

Sub EsconderFilas()
ActiveSheet.Unprotect "miclave" 'Desprotege
Application.ScreenUpdating = False
Dim Rango As Range, c As Range

Set Rango = Range("C8:C42")
For Each a In Rango
If a = 0 And a <> vbNullString Then
a.EntireRow.Hidden = True
Else
a.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="miclave" ' Vuelve a proteger
End Sub
Respuesta Responder a este mensaje
#2 KL
26/12/2004 - 23:37 | Informe spam
Por cierto, hasta donde se, no se puede ocultar celdas aisladas (si es eso
lo q buscas) - tiene q ser fila o columna entera.

Un saludo,
KL

"KL" <lapink2000(at)hotmail.com> wrote in message
news:%23KF%
Daniel,

Prueba los dos macros de abajo.

Saludos,
KL

'-Inicio Macro1-
'Esconde las filas si la celda en la columna C esta vacia.
Sub EsconderFilas()
ActiveSheet.Unprotect "miclave" 'Desprotege
Application.ScreenUpdating = False
Dim Rango As Range, c As Range

Set Rango = ActiveSheet.Range("C8:C42")
For Each c In Rango
If IsEmpty(c) Then
c.EntireRow.Hidden = True
Else
c.EntireRow.Hidden = False
End If
Next
ActiveSheet.Protect "miclave" ' Vuelve a proteger
End Sub

'-Fin Macro1-

'-Inicio Macro2-
'Esconde las filas si todas las celdas de la fila estan vacias.
Sub EsconderFilas1()
ActiveSheet.Unprotect "miclave" 'Desprotege
Application.ScreenUpdating = False
Dim Rango As Range, c As Range

Set Rango = ActiveSheet.Range("C8:C42")
For Each c In Rango
Select Case Application.CountA(c.EntireRow)
Case 0: c.EntireRow.Hidden = True
Case Else: c.EntireRow.Hidden = False
End Select
Next

ActiveSheet.Protect "miclave" ' Vuelve a proteger
End Sub
'-Fin Macro2-



"Daniel" wrote in message
news:
Hola atodos espero q hayan tenido unas felices fiestas mi pregunta es la
sgte. este macro me ayudaron aca en el foro pero lo q deseo es q se
oculten
las celdas q estan en blanco ( sin ningun valor) me pueden ayudar gracias
de
antemano

Sub EsconderFilas()
ActiveSheet.Unprotect "miclave" 'Desprotege
Application.ScreenUpdating = False
Dim Rango As Range, c As Range

Set Rango = Range("C8:C42")
For Each a In Rango
If a = 0 And a <> vbNullString Then
a.EntireRow.Hidden = True
Else
a.EntireRow.Hidden = False
End If
Next
Application.ScreenUpdating = True
ActiveSheet.Protect Password:="miclave" ' Vuelve a proteger
End Sub




Respuesta Responder a este mensaje
#3 Daniel
27/12/2004 - 19:45 | Informe spam
Muchas gracias KL q tengas un buen año 2005
Respuesta Responder a este mensaje
#4 KL
27/12/2004 - 22:17 | Informe spam
Muchas gracias KL q tengas un buen ano 2005



Igualmente!
KL
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida