Příspěvky uživatele
< návrat zpět
jo, toho jsem si nevšiml, ve všech makrech, kde je For ... to 6 STEP -1 dejte to 8.
Chyba je ve stanovení prvního řádku pro rozbalování. Bylo 5, ted je 8. Původně jsem dal 6, tak jak je tabulka posunuta, ale je tam problém jménem sloučené buňky. Takže bunka G7 je pohlcena bunkou G6 a G7 je tudíž prázdná, tak to vyhodnotilo (While ...Wend)jako "konečnou" . Je prázdná = konec.
tomu nějak nerozumím, jsou tam 4 makra pro checkBox1-4_click a páté Sub zobrazitVše()
u každýho checkbox_click je vyhodnocení, zda nejsou všechny checkboxy1-3 False, tedy nezaškrtnutý, pokud není zaškrtnuto ani jedno, spustí se makro zobrazitVše. U ANO NE je to tak, že při nezaškrtnutém ANO se opět spustí makro zobraztVše.
ještě doplněno ANO NE
?
lepší (myslím, že se to kdysi zjevilo právě zde)
jednodušší
Musíte text převést na číslo, tedy nějakým způsobem "rozložit" text na den, měsíc a rok a pak použít datevalue na výsledné číslo. Jeden takový způsob je v příloze, ale možná tu někdo dá něco lepšího.
edit:
do TXBoxu zadávat DD.MM.RRRR, pokud jinak, musí se makro upravit.
Podle mě je chyba v tom, že textbox do bunky zapíše text , který vypadá jako datum a ne číslo.
nestačí jen:
ActiveCell.Name = "novýNázev"
a toto ?
edit:
to co píše AL je jednodušší a elegantnější
Sub najdiVzorce()
x = ActiveCell.Row: y = ActiveCell.Column
Cells.Select
Selection.Interior.Pattern = xlNone
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Interior
.Color = 65535
End With
Cells(x, y).Select
End Sub
Toto je sice na jiném principu, ale v některých situacích může usnadnit hledání na listu. Označí všechny použité buňky komentářem s informacemi o konkrétní buňce. Je tam ještě druhé makro pro info o Listu.
tak ?
fce TRANSPOZICE
zde sice obráceně, data z Listu2 na List1, ale jako ukázka to postačí
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články