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
 

Some videos you may like

Excel Facts

Fastest way to copy a worksheet?
Hold down the Ctrl key while dragging tab for Sheet1 to the right. Excel will make a copy of the worksheet.

igold

Well-known Member
Joined
Jul 8, 2014
Messages
2,471
Office Version
365, 2010
Platform
Windows
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,471
Office Version
365, 2010
Platform
Windows
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,471
Office Version
365, 2010
Platform
Windows
De nada. Estaba feliz de ayudar. Gracias por la respuesta.
 

Watch MrExcel Video

Forum statistics

Threads
1,089,979
Messages
5,411,632
Members
403,383
Latest member
Excelacity

This Week's Hot Topics

Top