Rijen verplaatsen

[Jack Nouws]

Hallo

Kun je met een drukknop rijen verplaatsen? Daarmee bedoel ik, dat je bijv. vanaf rij 8, in 1 keer 36 rijen naar beneden gaat (1e klik drukknop). Bij de 2e klik op een drukknop weer 36 rijen naar beneden enz...
Zoja wat voor soort knop heb je daar voor nodig en hoe zou de code eruit kunnen zien?

Met vr gr
Jack

 

[Roncancio]

Ik zou een gewone knop gebruiken gebruiken en de volgende code aan toevoegen.

Rows(ActiveCell.Row & ":" & ActiveCell.Row + 36).Insert

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Hallo

Hoe kan ik er voor zorgen dat met elke klik een stap van 25 wordt uitgevoerd zoals onderstaande macro?

Met vr gr
Jack

Sub Macro9()
    Rows("6:31").EntireRow.Hidden = True
    Rows("32:57").EntireRow.Hidden = True
    Rows("58:81").EntireRow.Hidden = True
    Rows("82:107").EntireRow.Hidden = True
    Rows("108:131").EntireRow.Hidden = True
    Rows("132:157").EntireRow.Hidden = True
    Rows("158:181").EntireRow.Hidden = True
    Rows("182:207").EntireRow.Hidden = True
    Rows("208:231").EntireRow.Hidden = True
    Rows("232:257").EntireRow.Hidden = True
    Rows("258:281").EntireRow.Hidden = True
    Rows("282:307").EntireRow.Hidden = True
    Rows("308:331").EntireRow.Hidden = True
    Rows("332:357").EntireRow.Hidden = True
    Rows("358:381").EntireRow.Hidden = True
    Rows("382:407").EntireRow.Hidden = True
    Rows("408:431").EntireRow.Hidden = True
    Rows("432:457").EntireRow.Hidden = True
    Rows("458:481").EntireRow.Hidden = True
    Rows("482:507").EntireRow.Hidden = True
    Rows("508:531").EntireRow.Hidden = True
    Rows("532:557").EntireRow.Hidden = True
    Rows("558:581").EntireRow.Hidden = True
    Rows("582:607").EntireRow.Hidden = True
    Rows("608:631").EntireRow.Hidden = True
    Rows("632:657").EntireRow.Hidden = True
    Rows("658:681").EntireRow.Hidden = True
    Rows("682:707").EntireRow.Hidden = True
    Rows("708:731").EntireRow.Hidden = True
    Rows("732:757").EntireRow.Hidden = True
    Rows("758:781").EntireRow.Hidden = True
   
End Sub

 

[Warme bakkertje]

Sub tst()
    If Not Rows(6).EntireRow.Hidden = True Then
        [A6].Select
        GoTo Hide
    Else: GoTo Hide
    End If
Hide:
    Rows(ActiveCell.Row & ":" & ActiveCell.Row + 25).EntireRow.Hidden = True
    Application.SendKeys "{DOWN}"
End Sub

 

[Jack Nouws]

Dank U wel

Met vr gr
Jack

 

[snb]

of

Sub tst()
  activecell.resize(25).entirerow.hidden=true
End Sub

@rudi

dat kan simpeler:

Sub tst()
    If Rows(6).EntireRow.Hidden = False Then [A6].Select
    Rows(ActiveCell.Row & ":" & ActiveCell.Row + 25).EntireRow.Hidden = True
    Application.SendKeys "{DOWN}"
End Sub