desesconder fila por fila

BLUEPOMME

New Member
Joined
Nov 15, 2018
Messages
22
como pongo el codigo vba para des-esconder fila por fila hasta llegar a fila 43 y empezando la 5 y después viceversa escondiendololas otra vez hasta llegar a la fila 5


gracias
 

igold

Well-known Member
Joined
Jul 8, 2014
Messages
2,429
te ayuda esto

Code:
   'des-esconder
    ActiveSheet.Range("A5:A43").EntireRow.Hidden = False
    
    'escondiendo
    ActiveSheet.Range("A5:A43").EntireRow.Hidden = True
 

BLUEPOMME

New Member
Joined
Nov 15, 2018
Messages
22
gracias por la pronta respuesta

esto escondería el rango completo a la vez lo que busco es esconder o des esconderlas filas uno por uno , lo que tengo es :

Code:
Dim i As LongIf Columns("A").SpecialCells(xlCellTypeVisible).Count = Rows.Count Then Exit Sub
i = 1
Do Until Rows(i).Hidden = True
    i = i + 1
Loop
Rows(i).Hidden = False


'ActiveSheet.Protect
End Sub
lo que hace que aparezcan las filas uno por uno, pero necesito que pare en fila 43, como completeria mi código ,

y otro código que hace lo mismo pero viceversa o sea ocultar las filas nuevamente desde fila 43 uno por uno hasta llegar a fila 5


gracias
 
Last edited:

igold

Well-known Member
Joined
Jul 8, 2014
Messages
2,429
Yo no hablo español. Estoy usando el traductor de Google. ¿Está esto más cerca de lo que quieres?

Code:
Sub unhide()
    Dim i As Long
    For i = 6 To 43
        Rows(i).Hidden = False
    Next
    'ActiveSheet.Protect
End Sub


Sub hide()
    Dim i As Long
    For i = 43 To 6 Step -1
        Rows(i).Hidden = True
    Next
    'ActiveSheet.Protect
End Sub
 

igold

Well-known Member
Joined
Jul 8, 2014
Messages
2,429
De nada. Estaba feliz de ayudar. Gracias por la respuesta.
 

Forum statistics

Threads
1,078,370
Messages
5,339,791
Members
399,325
Latest member
smilevenki

Some videos you may like

This Week's Hot Topics

Top