Příspěvky uživatele
< návrat zpět
To Richard99: Musis se zaregistrovat, neregistrovani nemaji moznost pripojovat soubory...
Zdravim,
jestli to potrebujete vzorcem, tak vypsani takovychto hodnot je pomerne slozite, jde to jednoduse makrem.
Pokud by vam stacil pocet takovychto shod - je vzorec jednoduchy...
Kazdopadne, radeji prilozte soubor, protoze takhle "nasucho" se to dost tezko dela.
Nic jednoduchyho jsem nevymyslel, zkus se podivat.
Pokud budes chtit kod napastovat na jinou tabulku, nastaveni je provedeno ze zacatku kodu u promennych.
kdyby neco, ozvi se...
zdravim,
Pokud jde o tvar cisla '0,009 kg', tak je problem to, ze v bunce primo uvedeno 'kg', to se musi odstranit, lze to udelat vzorcem v jinem sloupci: =ZLEVA(H3;DÉLKA(H3)-3) nebo makrem, zalezi na tom, jak budete soubor pouzivat.
Pokud jde o dalsi veci, co potrebujete, lze velmi tezko poradit bez nejakeho vzorku dat, zkuste prilozit vas soubor (jestli mate problem s citlivymi daty, zkuste hodnoty nejak pozmenit a ponechat napr. jen vzorek, napr. 100 radku, aby bylo mozne se v tom zorientovat).
V editoru Visual Basicu (VBE): Tools/VBProject - Projet Properties, karta Protection
Zdravim,
postaci, kdyz napisete kazdy rok, kdy zacina jake znameni, funkce SVYHLEDAT pak jednoduse priradi znameni k intervalu.
viz vas priklad
Pokud máte např. ve sloupci A datumy a ve sloupci B názvy produktů, tak vám tento vzorec zjistí nejvyšší datum u „produkt1“
=MAX((A:A)*(B:B="produkt1"))
Jde o maticovy vzorec, takze po jeho napsani ho potvrdte stiskem SHIFT+CTRL+ENTER, jinak nebude fungovat.
Snad se hlavni admin nebude zlobit, ze se mu do toho motam, ale...kod funkce musite prekopirovat do modulu v jinem sesitu (nebo ji nakopirovat do osobniho sesitu maker).
pokud neni vice prazdnyh radku na sebou, tak bude fungovat toto:For i = 1 To Cells(65000, 1).End(xlUp).Row
If Len(Cells(i, 1)) = 0 Then
Rows(i).Delete
End If
Next i
no, to nepricita, ale podle kodu, ktery mate napsany verim, ze to dokazete (pouze priradit hodnotu noveho textuboxu 'Celkem' do bunky...)
zkuste si prostudovat funkci NEPŘÍMÝ.ODKAZ
zkuste nepouzivat .Select a .Copy
ale jen priradit hodnoty bunkam napr takto:
Sheets("List3").Range("D18") = Sheets("List1").Range("F21")
Lze takto kopirovat i hodnoty mezi sesity (ty samozrejme uvedete pred listy - sesity museji byt otevrene)
Jako text lze ulozit jen aktivni list, takze by mozna slo zkopirovat aktivni list do jineho sesitu a ten pak ulozit jako .txt (uz by nemel byt sdileny)
a co chcete eliminovat?
Vzdy ten prazdy radek?
chcete ho skryt nebo odstranit?
tak to asi nepujde...
Co presne potrebujete udelat, treba pujde najit lepsi reseni.
Pokud totit editujete bunku a stiknete ENTER, dostanete se na bunku nize (pri standardnim nastaveni) - slo by tedy vyuzit proceduru _change.
Jen je tedy potreba vedet, ceho chcete docilit...
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