Navigation

   Hej Forum,
Jeg har været ved at prøve og sætte en macro sammen udfra nogle forskellige stumper jeg har fundet på nettet, er først ved at prøve og lære det her VBA 

Macro'en fungere egentlig som den skal, jeg ville bare gerne at den fjernede markeringen af rækkerne til sidst, så de viste rækker ikke er markeret.

Koden ser sådan ud:

Sub rowExpandedC1()
    Dim xRg As Range
    Application.ScreenUpdating = False

    Rows("19:39").Select

    If Selection.EntireRow.Hidden = True Then
    Selection.EntireRow.Hidden = False
        For Each xRg In Range("C19:C39")
            If xRg.Value = "No Task/Hide" Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Else
     Selection.EntireRow.Hidden = True
    End If
    Application.ScreenUpdating = True
End Sub

Hvis en af jer var rigtig vilde og kunne forklare hvordan det kunne laves som en ActiveX kanp der skiftede mellem "+" og "-", ville det også være rigtig fedt .

Pft.

Navigation

Fjerne markering efter Vis/Skjul af rækker