marjankaj napsal/a:
lugr napsal/a:OK, prasárnička ještě jednou. Příloha: 49237_etnost.xlsx (16kB, staženo 2x)
To sa fakt dobre lúšti a upravuje.
Vypadá to děsivě, ale ve skutečnosti je to primitivní.
OK, prasárnička ještě jednou. 
Já taky něco vypotil. Je to sice prasárna, ale funguje to. 
příloha nejde stáhnout. 
"Cenovou nabídku zpracoval" zjistíš v buňce D69. 
Ještě jsem předělal aby se vždy skryl "prvy zobrazeny stlpec"
Třeba.
Jen mě to včera tak zaujalo, tak jsem si chvíli hrál. Není to Google tabulka a není to ještě hotové (stačí už jen rozkopírovat maticové vzorce), ale třeba pro inspiraci.
Příloha?
Nejlépe zdroj i cíl.
Co vlastně bylo správně, to už se asi nikdy nedozvíme. 
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?
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.."
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.