Just nu i M3-nätverket
Jump to content

Sortera kolumner i arbetsblad


Hija

Recommended Posts

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 (=B) 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

 

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

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

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...