Hjælp til Macro

Hej

Lige et par spørgsmål:

1) Hvor langt ned i kolonne A skal makroen løbe? Hvis den skal starte i række 1 og gennemløbe alle rækker helt ned til række 1.048.576, så tager det uforholdsmæssig lang tid, idet jeg antager, at du ikke har så mange rækker, som er relevante at undersøge.

2) Kan du selv koble makroerne til dine knapper? Én ting er makroerne, en anden ting er knapperne.

Måske kan dette bruges:

Sub SkjulRaekker()
lastrow = ActiveSheet.UsedRange.Rows.Count
For x = 1 To lastrow
If Cells(x, 1) = "" Then
Cells(x, 1).EntireRow.Hidden = True
End If
Next
End Sub

Sub VisRaekker()
lastrow = ActiveSheet.UsedRange.Rows.Count
Range("A1:A65536").EntireRow.Hidden = False
End Sub

jens48:

Denne arbejder kun i området fra 1 til lastrow :-)

Sub VisRaekker()
lastrow = ActiveSheet.UsedRange.Rows.Count
Range("A1:A" & lastrow).EntireRow.Hidden = False
End Sub

Sub VisAlleRaekker()
    Cells.EntireRow.Hidden = False
End Sub