Příspěvky uživatele
< návrat zpět
Máš tam jednu chybu s dvojtečkou a navíc to máš moc dlouhý.
Tady to máš funkční.
Sub SmazVse()
If MsgBox("Opravdu chcete smazat všechno?", vbYesNo, "Potvrzení") <> vbYes Then Exit Sub
Sheets("Zaměstnanci").Select
Range("A5:C204,E5:E204,G5:I204,K5:L204,P5:T204,V5:CJ204,CL5:CL204,CO5:DA204,DH5:DH204,DJ5:DL204,DP5:DQ204,DT5:DV204,DZ5:DZ204,EB5:EB204,ED5:EF204,EH5:EI204").ClearContents
Range("EK5:EK204,GY5:HA204,HL5:HM204,HQ5:ID204,IF5:IQ204,IS5:IS204,IY5:IY204,JA5:JA204,JC5:JE204,JH5:JJ204,JL5:JL204,JW5:JW204,JY1:JY204").ClearContents
End Sub
marjankaj napsal/a:
lugr napsal/a:Co třeba takhle?Příloha: 49043_averageif.xlsx (11kB, staženo 4x)
A čo ak tam budú aj záporné čísla?
Funguje i na záporná čísla. Nevím jakou má podmínku.
Co třeba takhle?
Pokud máš hodnoty ve sloupci C a začínáš od buňky C2 potom vlož tento vzorec např. do buňky D2
=INDEX(C:C;2+(ŘÁDEK()-2)*10)
a kopíruj dolů
Jiří497 napsal/a:
Podle mě to nejde.
Skutečně chcete 3 sloučené buňky zkopírovat do 2 sloučených buňek?
"..např. 3 řádky (v prvním sloupci) ... do 4+5.."
Podle mě myslí např. Range("B2:B4") sloučené vložit pouze formátování do Range("E2:E4").
možná něco takového:
Sheets("List1").Range("B2:B4").copy
Sheets("list1").Range("E2").PasteSpecial xlPasteFormats
Nevšiml jsem si, že by se tu někdo na někoho vytahoval? 
Já měl v plánu něco takového, ale to je na dlouhé zimní večery a možná zbytečně překombinované. 
Já myslel z důvodu přehlednosti při zadávání
Pokud jde o to jen udělat databázi potom je to jak říkáš Jiříku.
Taky vidím problém v neúplnosti dat a ještě v tom, že né vždy mají jména stejný tvar. Je lepší používat osobní čísla pokud to máte ve firmě, nedochází tolik k chybám při zadávání.
Mám ještě jeden dotaz.
Co kdyby byl každý den na novém listě a přes makro by jste si vždy vytvořil nový formulář? Může být?
Tak to je lepší varianta než aby jste napsal, že to musí být za každou cenu takto. 
Chvíli mi to potrvá, ale dáme to do kupy.
Chtěl bych se zeptat, jestli data do tabulky vpisujete ručně, či importujete z nějakého jiného souboru nebo programu.
Nechci tu dělat kina, ale data jsou příšerně uspořádána na to aby jste mohl něco vyhodnocovat natož použil kont. tabulku.
Já bych to viděl na kompletní Facelift.
Kluci já něco splácal. Jestli to je mimo mísu, tak to ignorujte. Jen jsem myslel, že by vám to alespoň trochu pomohlo. Vzorec jsem nevymýšlel, použil jsem ze staršího fóra.
Stalker napsal/a:
Trochu sem upravil Lugrův soubor, aby nebyly potřeba pomocné vzorce.Příloha: 48906_seznamleku.zip (22kB, staženo 1x)
Ty jsi to trochu neupravil, ty jsi to celý předělal.
Dost dobrý Stalker.
Jen tak narychlo.
Použil jsem kód od elninoslov a asi to i funguje.
Určitě by to šlo i líp, ale v jednoduchosti je krása.
Já trochu vidím problém s popisem listů (Leden, Únor, ...).
Lepší by bylo např. 1, 2, ... nebo pokud budete mít více let pohromadě tak třeba 1.2020, 2.2020, ...
Jinak nevím jak identifikovat kvartál tak, aby to mohlo být v jednom sloupci.
Ale možná jak píše Jiří497 KT by na tohle byla lepší.
Nemusíte se KT bát není to nic složitého, jen je důležité při změně v datech vždy KT aktualizovat.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články