[ arthichoka @ 11.05.2007. 23:55 ] @
Interesira me sto da napravim da mi se tablica sortira po abecedi svaki put kada se otvori taj sheet.Tablica ima 5redova |
[ arthichoka @ 11.05.2007. 23:55 ] @
[ Gix_ @ 13.05.2007. 23:49 ] @
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 Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|