Print side | Luk vindue

kør makro på alle ark

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=3448
Udskrevet den: 03.Maj.2024 kl. 10:18


Emne: kør makro på alle ark
Besked fra: Case7230
Emne: kør makro på alle ark
Posteringsdato: 18.Apr.2018 kl. 14:08
Hej jeg har lavet en makro og den fungerer super fint på det ark den er lavet på men har 16 andre ark som er fuldstændig magen til hvor jeg også gerne vil have den til at køre men koden linker op til det konkrete ark. hvordan får jeg lavet den om til at kunne køre på det ark jeg har åbent. Er meget nybegynder på makroer og google har vist mig hvordan jeg får denne funktion til at køre igennem alle ark men hjælper lige lidt når koden er tilpasset et bestemt ark Cry På forhånd tak 

Her er koden 
Sub sorterpoint()
'
' Makro2 Makro
'

'
    Range("A5:O118").Select
    ActiveWorkbook.Worksheets("SSK4").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("SSK4").Sort.SortFields.Add Key:= _
        Range("O5:O118"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("SSK4").Sort
        .SetRange Range("A5:O118")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


Svar:
Besked fra: EXCELGAARD
Posteringsdato: 18.Apr.2018 kl. 16:26 
Sub SorterPoint()

      With ActiveSheet.Sort
            With .SortFields
                  .Clear
                  .Add Key:=Range("O5:O118"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
            End With
            .SetRange Range("A5:O118")
            .Header = xlGuess
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
      End With

End Sub


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: EXCELGAARD
Posteringsdato: 19.Apr.2018 kl. 09:13
Virkede det?


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.

Besked fra: Case7230
Posteringsdato: 19.Apr.2018 kl. 09:15
mange tak for svar får det først prøvet senere idag så skal jeg nok give besked 

Besked fra: Case7230
Posteringsdato: 19.Apr.2018 kl. 12:56
Tusind tak det var lige det jeg havde brug for, det virker perfekt Thumbs Up og det lykkes mig at rette min anden makro til magen til så har jeg forhåbentlig lært lidt også Big smile

Besked fra: EXCELGAARD
Posteringsdato: 19.Apr.2018 kl. 13:12
Velbekomme Smile


-------------
Husk, at trykke på [Tak], hvis du kan lide et indlæg.
Husk, at trykke på [Accepteret Svar], hvis du kan bruge et løsningsforslag.


Print side | Luk vindue