Skjul rækker hvis....

Du kan bruge filtrer-funktionen. Der kan man filtrere de tomme fra.

Hvornår forstiller du dig dette udført - når filen åbnes eller via knap eller??

Hej supertekst
Meget gerne via knap.

Hej madklub
Kan ikke bruge filterfunktion, da der ingen tomme rækker/celler

Const startRæk = 1          '<--- justeres evt.
Private Sub skjulRækker()
Dim antalrækker As Long, ræk As Long
    antalrækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    Application.ScreenUpdating = False
   
    For ræk = startRæk To antalrækker
        If Range("H" & ræk) >= Range("G" & ræk) Then
            Rows(CStr(ræk) & ":" & CStr(ræk)).Hidden = True
        End If
    Next ræk
   
End Sub
Private Sub CommandButton1_Click()
    skjulRækker
End Sub

Jeg prøvet at indsætte koden i programkoden for arket, thisworkbook og i et module, kan ikke afspille koden.

Hvad gør jeg forkert? Jeg vil gerne selv tildele makroen en knap

Const startRæk = 4

Jeg har oprettet og testet koden under det ark, hvor data findes.

Hvad sker der?

Anvendelse af makroer er sat til?

Hej supertekst

Måske linket til et eksempel kan hjælpe.

http://gratisupload.dk/vis/671274/

Så kører det...

Oprettede en "rigtig knap" - gik i design visning og højreklikkede på knappen og valgte "Vis programkode".

Er udført på det oploadede.....

Så fik jeg det også til at virke, tusind tak for det.

Jeg tænkte på om det er muligt, at hvis klikker på knappen igen, så viser makroen rækkerne igen? På forånd tak.

Selv tak - skal forsøge..

Rem version 2
Const startRæk = 1          '<--- justeres evt.
Private Sub skjulRækker()
Dim antalrækker As Long, ræk As Long
    antalrækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    Application.ScreenUpdating = False
   
    For ræk = startRæk To antalrækker
        If Range("H" & ræk) >= Range("G" & ræk) Then
            Rows(CStr(ræk) & ":" & CStr(ræk)).Hidden = True
        End If
    Next ræk
   
End Sub
Private Sub CommandButton1_Click()
Rem Er der skjulte rækker?
    If erDerSkjulteRækker = True Then
Rem hvis ja - så vis alle
        visRækker
    Else
Rem Hvis nej - så skjul
        skjulRækker
    End If
End Sub
Private Function erDerSkjulteRækker()
    antalrækker = ActiveCell.SpecialCells(xlLastCell).Row
       
    For ræk = startRæk To antalrækker
        If Rows(ræk).Hidden = True Then
            erDerSkjulteRækker = True
            Exit Function
        End If
    Next ræk
    erDerSkjulteRækker = False
End Function
Private Sub visRækker()
    Application.ScreenUpdating = False
    ActiveSheet.Rows.Select
    Rows.Hidden = False
   
    Cells(startRæk, 1).Select
End Sub

Rigtig mange tak for hjælpen

Selv tak..