Za colonu A u kodi radnog lista ubacis ovu komandu
Code:
Option Explicit
Private Sub Worksheet_Activate()
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!