Zdar a silu MilanK, dna 04.11.2003 si napisal(a): > > >> mam tabulku v Excelu a... > >> Tomas N. > > Rad by som poradil, len nerozumiem ani n s makcenom :-) > > AleX > Som rad ze ne iba ja som nechapavy :-) > Mozno by bolo vhodne ak by Tomas niekam hodil ten *.xls, > ak by to z neho mohlo byt jasnejsie a nie je tajny :-) > Milan K. > milan@kev.sk Hodil mi ho e-mailu a riesenie je cez moj oblubeny kod :-) Hmm to je po prvy krat co som musel pouzivat hidden object´s Myslim ze vysledne makro je tak specificke _ (a napisane na jednorazovku) Ze to asi nikomu nepomoze :-( Mozno na studijne ucely :-) : Sub changLinkedCell() For i = 1 To ActiveSheet.DropDowns.Count ActiveSheet.DropDowns(i).LinkedCell = _ Replace(Cells(ActiveSheet.DropDowns(i).TopLeftCell.Row, _ ActiveSheet.DropDowns(i).TopLeftCell.Column + 1).Address, _ "$", "") Next End Sub s pozdravom AleX -- Ked budem velky budem ZÁMYSELNIK. Neviem co to je, ale znie to bohovo.
This archive was generated by hypermail 2.1.3 : 04. 11. 2003, 13:14 CET