Sortera kolumner i arbetsblad

[Hija]

Hej hej!

Jag behöver hjälp att sortera 5 kolumner via kod.

Just nu jobbar jag med följande upplägg:

With Worksheets("MetaData").Range("A2:F" & m + 1)
   .Sort Key1:=.Range("A2")

End With

 

men jag vill skriva ".Sort Key1:=.Range("A2")" på ett annat sätt, men vet inte hur.

Tidigare i koden ges variabeln "k" värdet 1,2,3 eller 4 och jag vill att sorteringen ska ske utifrån det valda k-värdet. Det vill säga att sorteringen sker utifrån kolum 2 (= om k = 2. Hur ska jag skriva för att få det så?

Vill därefter även lägga in den nysorterade Rangen("A2:D"&m+1) i en listbox, någr tips om hur jag ska gå till väga då?

 

Hälsningar/E

 

[Monshi]

1: Adressera

Ta en titt på .Cells(radIndex, kolumnIndex) som ersättning för Range.

Din With-sats kommer ge att referensen kan bli fel då .Cells och .Range arbetar relativt den referens du angett i With-satsen.

 

 

2: Listboxen

Om den redan är länkad till tabellen så kommer den att uppdateras vid sorteringen.

men kanske att områdets storlek ändras? Om Formulär-listbox kan man använda dynamisk referens men med VBA-box är det bättre att med koden sätta referensen.

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

[Hija]

Hej!

 

Hade precis tänkt skicka ytterligare ett meddelande och be om mer ingående hjälp, men helt plötsligt blev det rätt ändå!

Så åter igen.. Tack för hjälpen!!

 

/E