Fjerne markering efter Vis/Skjul af rækker
Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=4168
Udskrevet den: 23.Nov.2024 kl. 02:20
Emne: Fjerne markering efter Vis/Skjul af rækker
Besked fra: mLysdahl
Emne: Fjerne markering efter Vis/Skjul af rækker
Posteringsdato: 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  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.  |