Print side | Luk vindue

Kan man lave en makro, som gør sådan.....

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=3140
Udskrevet den: 03.Maj.2024 kl. 11:02


Emne: Kan man lave en makro, som gør sådan.....
Besked fra: Sejerkilde
Emne: Kan man lave en makro, som gør sådan.....
Posteringsdato: 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


Svar:
Besked fra: ThorØstergaard
Posteringsdato: 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

Besked fra: Sejerkilde
Posteringsdato: 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

Besked fra: Sejerkilde
Posteringsdato: 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

Besked fra: ThorØstergaard
Posteringsdato: 17.Sep.2017 kl. 15:29
Super


Print side | Luk vindue