elcha si rychlejsi ako ja opravujem prispevok :))))) .... ano uz tomu rozumiem
dik eLCHa tvoje riesene funguje a aj je rychlejsie
Not lbKlienti.Selected(x) tak to ma zrovna nenapadlo :) ale uz to budu tak zapisovat o jeden krok menej
tak uz som si to odkrokoval poriadne a uz chapu proc to tak blbo robi dik :)))) .... jaj a ja ze aka zahada
tato odpoved ma neuspokoji :)
a preco to vlasne robi??
ked tam ma jasne definovane ze kolko stlpcov ma hidnut
Ahojte,
trochu som sa zacal nudil a urobil som vykaz prace, ktory ma mnoho problemov a jeden z nich uz dlhsie riesim ale zacina ma z toho uz boliet hlava a potreboval by som s tym help:
otazka znie ked pustim v subore cuplik visible a tam zakliknem poslednu polozku preco to da navyse jeden stlpec???
vie to niekto zistit? :) robi to vzdy len pri poslednej polozke
jedna sa o event: Private Sub lbKlienti_Change()
musim si rypnut :))
to len cesi maju tak super napad ze premenuju funkcie do svojho jazyka :))
tiez dlhe roky som pouzival toto:
Radek = Cells(Rows.Count, 1).End(xlUp).Row + 1
ale tento prikaz je podla mna univerzalnejsi lebo v dokumente sa pod tabulkou moze nachadzat dalsia tabulka a tak isto nemusia byt vyplnene vsetky bunky
Radek = Cells(31, 1).CurrentRegion.Rows(Cells(31, 1).CurrentRegion.Rows.Count).Row + 1
uz sa nebudu pytat naco to je dobre lebo viem ze nato odpoved nedostanu :)
tak bez zbytocnych otazok som spravil makro ktore funguje tak ze najprv treba dat data do tabulky a potom ich zoradit podla stlpca "kod"
potom sa spusti len makro "test"
z prilohy by to malo byt hned jasne
staci takto?
poslite predlohu
ked som to skusal u seba tak to robi spravne
neviem naco k tomuto robit makro
nebolo by najednoduchsie to dat len pod tabulku?
takto:
urobil som nato funkciu:
skus toto:
toto sa tu uz asi 3krat riesilo skus si to tu prelistovat a najdes tu aj kod :)
eLCha: a skusal si toto pridat do premennej:
aTest = Cells(I, 1).Value
a tu potom vyuzivat?
statik89: je jedno aky prvok na tlacitko pouzijete
tu som hodil ako priklad obidve:
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.