Kolommen passend en gesorteerd

[apikills]

Hoe kan ik hele kolommen selecteren en vervolgens deze kolommen sorteren in VBA (bijv. op de unieke nummers uit kolom A) ?

apikills

 

[richard1970]

Hoi Apikills,

Bijv de volgende macro:
Sub Sorteer_op_kolomA()
' Deze macro sorteert de selectie oplopend via de waarde van kolom A
' In cel A1 staat de kolomkop, bijv. Product
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub

Het betekent wel dat je eerst zelf de kolommen moet selecteren.

Richard

 

[apikills]

Hey Richard,

hoe krijg ik de breedte van de kolommen aangepast ? Via de macro krijg ik iets als

Columns("A:G").Select
Columns("A:G").EntireColumn.AutoFit

maar op de een of andere manier wordt de breedte van de kolommen niet aanpast. Kan het komen omdat het VBA-script in het ene bestand staat en vervolgens de kolommen die aangepast moeten worden in een ander bestand staan ?

groet,

apikills

 

[richard1970]

Beste Apikills,

Als je vantevoren weet welke kolommen het zijn, dan kun je gebruik maken van:
Columns("A:E").EntireColumn.AutoFit

Als de geselecteerde kolommen wisselen, dan moet bovenstaande flexibel gemaakt worden.

Richard

 

[apikills]

Oke Richard,

het is me eindelijk gelukt, ik moest er nog een verwijzing bijzetten naar de juiste sheet, dus:

Sheets(1).Columns("A:I").EntireColumn.AutoFit

Bedankt voor de tips.:thumb:

apikills