Zdar a silu Jan, dna 12.03.2001 si napisal(a):
>
> mam dlouhy seznam asi 2000 polozek serazeny v prvnim sloupi abecedne.
> jde nejak docilit toho, aby se kazda pridana polozka ( kterou vkladam
> vzdy na poslednim radku toho seznamu )po odentrovani radku a preskoceni
> kurzoru na dalsi radek automaticky zaradila abecedne
> do tohoto seznamu. Jen me to tak napadlo jestli to jde i nejak jinak
> nez zpusobem pres DATA - SERADIT.
>
vloz toto v VBA okne priamo do zositu v ktorom chces sortovanie
(Mikrosoft Excel objekty>List1?)
'******************************
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Selection.Column = 1 Then
Selection.Sort key1:=Range("A3"), Header:=xlGuess
'ten range si zmen, aby tam bola jedna bunka zo zoznamu
'nepises ci tam mas hlavicku, xlguest sa snazi rozhodnut
'podla nejakych kriterii ci tam je alebo nie
'mozes to prepisat ak tam nie je na xlno ak je xlyes
End If
ActiveCell.Offset(1, 0).Select
End Sub
'*******************************
--
s pozdravom
AleXXX
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 05:53 CEST