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


Emne lukketkør makro på alle ark
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
Case7230 Se dropdown
Forum Begynder
Forum Begynder


Medlem: 17.Apr.2018
Status: Offline
Point: 3 		Direkte link til dette indlæg Emne: kør makro på alle ark
    Sendt: 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
Til top



Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417 		Accepteret svar Accepteret svar
Direkte link til dette indlæg Sendt: 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.
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417 		Direkte link til dette indlæg Sendt: 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.
Til top
Case7230 Se dropdown
Forum Begynder
Forum Begynder


Medlem: 17.Apr.2018
Status: Offline
Point: 3 		Direkte link til dette indlæg Sendt: 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 
Til top
Case7230 Se dropdown
Forum Begynder
Forum Begynder


Medlem: 17.Apr.2018
Status: Offline
Point: 3 		Direkte link til dette indlæg Sendt: 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
Til top
EXCELGAARD Se dropdown
Platin bruger
Platin bruger


Medlem: 27.Dec.2012
Land: Denmark
Status: Offline
Point: 5417 		Direkte link til dette indlæg Sendt: 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.
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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