Sortering af liste
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=5106
Udskrevet den: 19.Sep.2024 kl. 03:17
Emne: Sortering af liste
Besked fra: hejstrup
Emne: Sortering af liste
Posteringsdato: 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 |
Svar:
Besked fra: maxzpad
Posteringsdato: 08.Aug.2024 kl. 09:43
|
Hej Henrik Har du mulighed for at /topic662.html - uploade en kopi af din Excel-fil? (eller måske har du glemt at "vedhæfte" den  )Mvh Max
|
Besked fra: hejstrup
Posteringsdato: 08.Aug.2024 kl. 09:50
|
Det kan jeg tilsyneladende ikke få lov til eller finde ud af ? ------------- vh hejstrup |
Besked fra: hejstrup
Posteringsdato: 08.Aug.2024 kl. 09:58
|
Nu tror jeg den er uploaded ? ------------- vh hejstrup |
Besked fra: maxzpad
Posteringsdato: 08.Aug.2024 kl. 10:08
|
Det skal fx se sådan her ud, når en fil er uploaded: uploads/1747/Tom_Fil_2024-08-08_10-07-40.xlsx" rel="nofollow - uploads/1747/Tom_Fil_2024-08-08_10-07-40.xlsx Dvs. et link, der kan klikkes på.
|
Besked fra: hejstrup
Posteringsdato: 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 |
Besked fra: hejstrup
Posteringsdato: 09.Aug.2024 kl. 16:23
|
Jeg får "fejl ved indlæsning af objekt ? ------------- vh hejstrup |
Besked fra: Krogsgaard
Posteringsdato: 12.Aug.2024 kl. 12:01
|
Sorteringen findes her 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 |
Besked fra: Krogsgaard
Posteringsdato: 12.Aug.2024 kl. 15:25
|
Beskyttelse af celler med vba. måske sådan ------------- Niels Krogsgaard Otten |