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


Sortering af liste
 Besvar Besvar
Forfatter
  Emne Søg Emne Søg  Emne funktioner Emne funktioner
hejstrup Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 10.Nov.2011
Land: Danmark
Status: Offline
Point: 82 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér hejstrup Citér  BesvarSvar Direkte link til dette indlæg Emne: Sortering af liste
    Sendt: 08.Aug.2024 kl. 09:40
Hej. jeg kan ikke finde ud af at få lavet en makro der løser denne opgave. I regnearket vil jeg gerne at alle celler er låste, undtaget de (som skrevet) hvide.
Så har jeg brug for en knap der starten en makro, som sorteret listen efter værdierne i kolonne I5- I49.
Er det muligt der er en venlig sjæl der kn lave den for mig. På forhånd tak.
Venligst Henrik Ejstrup
vh hejstrup
Til top



Til top
Krogsgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 26.Apr.2024
Land: Danmark
Status: Offline
Point: 148 		Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Krogsgaard Citér  BesvarSvar Direkte link til dette indlæg Sendt: 12.Aug.2024 kl. 15:25
Beskyttelse af celler med vba.

uploads/3092/Beskyt_udfylte_celler_N-Factory.xlsm

måske sådan
Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 709 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér maxzpad Citér  BesvarSvar Direkte link til dette indlæg Sendt: 08.Aug.2024 kl. 09:43
Hej Henrik

Har du mulighed for at uploade en kopi af din Excel-fil? (eller måske har du glemt at "vedhæfte" den Smile)


Mvh Max
Til top
hejstrup Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 10.Nov.2011
Land: Danmark
Status: Offline
Point: 82 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér hejstrup Citér  BesvarSvar Direkte link til dette indlæg Sendt: 08.Aug.2024 kl. 09:50
Det kan jeg tilsyneladende ikke få lov til eller finde ud af ?
vh hejstrup
Til top
hejstrup Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 10.Nov.2011
Land: Danmark
Status: Offline
Point: 82 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér hejstrup Citér  BesvarSvar Direkte link til dette indlæg Sendt: 08.Aug.2024 kl. 09:58
Nu tror jeg den er uploaded ?
vh hejstrup
Til top
maxzpad Se dropdown
Guld bruger
Guld bruger
Avatar

Medlem: 04.Aug.2016
Land: Danmark
Status: Offline
Point: 709 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér maxzpad Citér  BesvarSvar Direkte link til dette indlæg Sendt: 08.Aug.2024 kl. 10:08
Det skal fx se sådan her ud, når en fil er uploaded:


Dvs. et link, der kan klikkes på.
Til top
hejstrup Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 10.Nov.2011
Land: Danmark
Status: Offline
Point: 82 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér hejstrup Citér  BesvarSvar Direkte link til dette indlæg Sendt: 09.Aug.2024 kl. 16:15
Jeg forstår ikke hvorfor jeg hele tiden får fejl ved upload, hvad kan der være galt ?
vh hejstrup
Til top
hejstrup Se dropdown
Bronze bruger
Bronze bruger
Avatar

Medlem: 10.Nov.2011
Land: Danmark
Status: Offline
Point: 82 		Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér hejstrup Citér  BesvarSvar Direkte link til dette indlæg Sendt: 09.Aug.2024 kl. 16:23
Jeg får "fejl ved indlæsning af objekt ?
vh hejstrup
Til top
Krogsgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 26.Apr.2024
Land: Danmark
Status: Offline
Point: 148 		Indlæg funktioner Indlæg funktioner   Tak (1) Tak(1)   Citér Krogsgaard Citér  BesvarSvar Direkte link til dette indlæg Sendt: 12.Aug.2024 kl. 12:01
Sorteringen findes her 

uploads/3092/Vba_sortering_I5_I49_N-Factory.xlsm

Sub SortRowsByColumnI()
'Sortere området A5:K49 med kolonne I 5 - I 49 i stigende rækkefølge
    ' Declare variables
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' Set the worksheet to the active sheet
    Set ws = ActiveSheet
    
    ' Find the last row in column I that has data
    lastRow = ws.Cells(ws.Rows.Count, "I").End(xlUp).Row
    
    'Sortering sker herefter
    ws.Sort.SortFields.Clear
    ws.Sort.SortFields.Add Key:=Range("I5:I49"), Order:=xlAscending
    With ws.Sort
        .SetRange Range("A5:K49")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub
Niels Krogsgaard Otten
Til top
Krogsgaard Se dropdown
Sølv bruger
Sølv bruger


Medlem: 26.Apr.2024
Land: Danmark
Status: Offline
Point: 148 		Accepteret svar Accepteret svar
Indlæg funktioner Indlæg funktioner   Tak (0) Tak(0)   Citér Krogsgaard Citér  BesvarSvar Direkte link til dette indlæg Sendt: 12.Aug.2024 kl. 15:25
Beskyttelse af celler med vba.

uploads/3092/Beskyt_udfylte_celler_N-Factory.xlsm

måske sådan
Niels Krogsgaard Otten
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

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