Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketFjerne markering efter Vis/Skjul af rækker

 Besvar Besvar
Forfatter
mLysdahl Se dropdown
Bronze bruger
Bronze bruger


Medlem: 31.Aug.2015
Land: Dk
Status: Offline
Point: 31
Direkte link til dette indlæg Emne: Fjerne markering efter Vis/Skjul af rækker
    Sendt: 18.Feb.2020 kl. 10:36
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 Stern Smile

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 Clap.

Pft.Big smile

Til top



Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk