Eliminar celdas en blanco

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

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

Muchas gracias KL q tengas un buen año 2005

Muchas gracias KL q tengas un buen ano 2005

Igualmente!
KL