sorteren met macro werkt onvolledig

[westra77]

hallo
ik heb een macro met de volgende code:

Sub Macro4()
'
' Macro4 Macro
' De macro is opgenomen op 26-8-2008 door jwestra.
'

'
Sheets("mengopdracht").Unprotect ("joppe")
Sheets("mengopdracht").Select
Range("A7:y28").Select
Selection.Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select
Sheets("mengopdracht").Protect ("joppe")

End Sub

de macro knop staat op blad 1
deze werkt op zich prima echter indien ik kolom b7 verberg werkt het sorteren niet meer goed. indien ik de macro gebruik zonder kolom b2 te verbergen loopt alles vlekkeloos.

 

[Wigi]

Sub Macro4()

With Sheets("mengopdracht")
     .Unprotect ("joppe")
     .Columns(7).Hidden = False
     .Range("A7:y28").Sort Key1:=.Range("B7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
     .Columns(7).Hidden = True
     .Protect ("joppe")
End With

End Sub

ongeteste code

Wigi

 

[Wigi]

Graag ook code tags gebruiken aub als je hier code plakt.

 

[westra77]

ok dank Wigi
deze werkt.
het is puur cel b7 die met sorteren "niet mee sorteert" overige cellen sorteren wel goed
dus uitkomst
5
1
2
3
4
graag wil ik begrijpen waarom dit met verbergen niet gebeurt
kan dit komen doordat hij bv een veldnamenrij toevoegt?

 

[Wigi]

Waarom staat er dan in de vraag 2 keer kolom B7?

 

[westra77]

ok excuus ik bedoel indien ik kolom b verberg de macro niet volledig

 

[Wigi]

ok excuus ik bedoel indien ik kolom b verberg de macro niet volledig

Sorry, maar aan deze zin geraak ik echt niet aan uit

 

[westra77]

wigi
ik bedoel de macro werkt indien ik kolom b zichtbaar maak
hij sorteert dan juist
indien ik kolom b verberg werkt het sorteren ook, echter alleen de eerste cel blijft ongewijzigd
vb
met verborgen kolom =uitkomst
5
1
2
3
4
met zichtbare kolom =uitkomst
1
2
3
4
5
hopelijk is het zo duidelijker

 

[Wigi]

Heb je al verschil gemerkt met wel of geen veldnamenrij?

 

[westra77]

nee. ik zal dit volgens mij in de macro moeten aangeven
ik verwacht dat dit heeft te maken met header:=xlgues, maar ik weet dit niet zeker.
ik heb de macro gemaakt via opnemen

 

[Wigi]

xlGuess en xlNo.

 

[westra77]

dank je
weer bijgeleerd