[ arthichoka @ 10.10.2009. 17:10 ] @
Potrebna mi je ispravka ovog makroa ili nešto slično trebam sortiranje čelija po abecedi A-Z tako da su prazne čelije na kraju, u mom slučaju su na početku.

Sub Macro2()
'
'
'
' Keyboard Shortcut: Ctrl+q
'
ActiveWindow.SmallScroll Down:=-3
ActiveSheet.Unprotect
Range("B7:F92").Select
Range("F7").Activate
Selection.Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("B3:F4").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
[ 3okc @ 11.10.2009. 16:44 ] @
Klasično sortiranje u rastućem redosledu već radi ono što hoćeš, tako da ne vidim u čemu bi bila ispravka!?

Ono što na prvi pogled mogu da primetim je da, pre samog sortiranja, aktiviraš ćeliju F7, što mi implicira da je u ovoj koloni vrednost za koju (imaš nameru da) sortiraš tabelu. Međutim, ovo se razlikuje u komandi kojom sortiraš tabelu (vidi označene reference crvenom).
Citat:

Sub Macro2()
'
'
ActiveWindow.SmallScroll Down:=-3
ActiveSheet.Unprotect
Range("B7:F92").Select
Range("F7").Activate
Selection.Sort Key1:=Range("B7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal