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


Emne lukketKan man lave en makro, som gør sådan.....
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Sejerkilde Se dropdown
Sølv bruger
Sølv bruger


Medlem: 10.Dec.2011
Land: DK
Status: Offline
Point: 229 		Direkte link til dette indlæg Emne: Kan man lave en makro, som gør sådan.....
    Sendt: 27.Aug.2017 kl. 11:31
Hejsa 

Da jeg ikke ved ret meget om hvordan man laver en makro, håber jeg at der er en som kan hjælpe mig lidt.

Kan man lave en makro, som skjuler en række, hvis står et S i kolonne A og skjule den samme række på flere ark på én gang ?

F.eks. hvis der står S i A15, på ark1, så skal række 15 på ark 1, ark 3 og ark 4 skjules.

Det er altid ark 1, som bestemmer, om en række skal skjules.

Det er fra række 10 til række 210.
m.v.h.

Sejerkilde

Anvender Excel 365 DK
Til top



Til top
ThorØstergaard Se dropdown
Bronze bruger
Bronze bruger


Medlem: 13.Sep.2017
Land: Danmark
Status: Offline
Point: 59 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 13.Sep.2017 kl. 14:55
Det kunne se sådan her ud

Sub Skjul()
    Dim c As Range
    Worksheets(1).Rows.Hidden = False
    Worksheets(3).Rows.Hidden = False
    Worksheets(4).Rows.Hidden = False
    For Each c In Range(Worksheets(1).Range("A1"), Worksheets(1).Range("A" & Worksheets(1).Rows.Count).End(xlUp)).Cells
        If UCase(c.Value) = "S" Then
            c.EntireRow.Hidden = True
            Worksheets(3).Cells(c.Row, 1).EntireRow.Hidden = True
            Worksheets(4).Cells(c.Row, 1).EntireRow.Hidden = True
        End If
    Next
End Sub

Den kigger i alle rækker med indhold i kolonne A. Vil du kun se på række 10 til 210 kan det se sådan her ud

Sub Skjul()
    Dim c As Range
    Worksheets(1).Rows.Hidden = False
    Worksheets(3).Rows.Hidden = False
    Worksheets(4).Rows.Hidden = False
    For Each c In Range(Worksheets(1).Range("A10"), Worksheets(1).Range("A210")).Cells
        If UCase(c.Value) = "S" Then
            c.EntireRow.Hidden = True
            Worksheets(3).Cells(c.Row, 1).EntireRow.Hidden = True
            Worksheets(4).Cells(c.Row, 1).EntireRow.Hidden = True
        End If
    Next
End Sub
Til top
Sejerkilde Se dropdown
Sølv bruger
Sølv bruger


Medlem: 10.Dec.2011
Land: DK
Status: Offline
Point: 229 		Direkte link til dette indlæg Sendt: 13.Sep.2017 kl. 15:22
Kigger på det, men der kan gå noget tid, før jeg vender tilbage pga mit arbejde.
m.v.h.

Sejerkilde

Anvender Excel 365 DK
Til top
Sejerkilde Se dropdown
Sølv bruger
Sølv bruger


Medlem: 10.Dec.2011
Land: DK
Status: Offline
Point: 229 		Direkte link til dette indlæg Sendt: 17.Sep.2017 kl. 15:26
Jeg har fået det til at virke, med lidt hjælp, fra en, som ved mere om VBA end jeg gør
m.v.h.

Sejerkilde

Anvender Excel 365 DK
Til top
ThorØstergaard Se dropdown
Bronze bruger
Bronze bruger


Medlem: 13.Sep.2017
Land: Danmark
Status: Offline
Point: 59 		Direkte link til dette indlæg Sendt: 17.Sep.2017 kl. 15:29
Super
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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