Results 1 to 6 of 6

Thread: desesconder fila por fila

  1. #1
    New Member
    Join Date
    Nov 2018
    Posts
    22
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default desesconder fila por fila

    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

  2. #2
    Board Regular igold's Avatar
    Join Date
    Jul 2014
    Location
    Delray Beach, FL, USA
    Posts
    2,349
    Post Thanks / Like
    Mentioned
    18 Post(s)
    Tagged
    1 Thread(s)

    Default Re: desesconder fila por fila

    te ayuda esto

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

    I'm a drinker with a coding problem...

    All code is written with Excel 2010 - Please test all code on a backup copy of your data.


  3. #3
    New Member
    Join Date
    Nov 2018
    Posts
    22
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: desesconder fila por fila

    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 by BLUEPOMME; Aug 20th, 2019 at 04:35 PM.

  4. #4
    Board Regular igold's Avatar
    Join Date
    Jul 2014
    Location
    Delray Beach, FL, USA
    Posts
    2,349
    Post Thanks / Like
    Mentioned
    18 Post(s)
    Tagged
    1 Thread(s)

    Default Re: desesconder fila por fila

    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

    I'm a drinker with a coding problem...

    All code is written with Excel 2010 - Please test all code on a backup copy of your data.


  5. #5
    New Member
    Join Date
    Nov 2018
    Posts
    22
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default Re: desesconder fila por fila

    muchas gracias por su ayuda

  6. #6
    Board Regular igold's Avatar
    Join Date
    Jul 2014
    Location
    Delray Beach, FL, USA
    Posts
    2,349
    Post Thanks / Like
    Mentioned
    18 Post(s)
    Tagged
    1 Thread(s)

    Default Re: desesconder fila por fila

    De nada. Estaba feliz de ayudar. Gracias por la respuesta.
    ​igold

    I'm a drinker with a coding problem...

    All code is written with Excel 2010 - Please test all code on a backup copy of your data.


Some videos you may like

User Tag List

Tags for this Thread

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •