Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  18 19 20 21 22 23 24 25 26   další » ... 45

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.


Jojo já vím. 3 Vypadá to děsivě, ale ve skutečnosti je to primitivní. 5

OK, prasárnička ještě jednou. 5

Já taky něco vypotil. Je to sice prasárna, ale funguje to. 5

příloha nejde stáhnout. 8

"Cenovou nabídku zpracoval" zjistíš v buňce D69. 1

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. 9

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


Strana:  1 ... « předchozí  18 19 20 21 22 23 24 25 26   další » ... 45

Uživatelské menu

Nejste přihlášen(a)
avatar\n

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.

On-line nástroje