A čo tak funkcia UDAJE->MEDZISUCET?
r13 napsal/a:
a čo také:
On Error Goto ...
r13 napsal/a:
marjankaj môže to byť skok len za určitých podmienok, takže si to vymazať nemôže dovoliť
A nie je jednoduchšie (pre znalca VBA ako ty) tých 50 príkazov vymazať?
nosekpav napsal/a:
ať dělám co dělám výsledek mám i přes radu stejný
Nomi napsal/a:
Jo to že stačí napsat 7: vím.
Šlo mě o ulehčení při přepisování z papíru bych jen mačkal na numlocku číslo a enter a hned další číslo bez přehmatování na dvoutečku
slavek13 napsal/a:
super, ďakujem za pomoc, dosť ste mi pomohli a niečo nové som sa priučil, ste všetci super....veľká vďaka :-)
žeby takto?
kraken192 napsal/a:
vkladam odkaz celeho excelu jde mi o to ze kdyz se v listu 1 vyplni rok cislo tydne mesic tak to vygeneruje listy v danem mesici... ktery potom potrebuju zvlast ulozit do souboru. jsem zvedav co vymyslite... mozna je cesta vubec to neresit pres array a ukladat listy do souboru "jinak"
https://drive.google.com/file/d/1PUxL1u1S98INAG85pmJqZ2jnlq4sKgQ4/view?usp=sharing
Jiří497 napsal/a:
Tohle jsem já určitě neřešil.
V jaké verzi excelu to nejede?
A čo je to "max okolo 290"?
=IFERROR(LEFT(A1;FIND(" ";A1;290));A1)
=IFERROR(ZLEVA(A1;NAJÍT(" ";A1;290));A1)
A čo takto?
=DATE(LEFT(H1;2)+IF(--LEFT(H1;2)>50;0;2000);MOD(MID(H1;3;2);50);RIGHT(H1;2))
Myslel si "odečíst", či?
trebárs takto
=D2-A2+1
Alebo
=KDYŽ(D2<A2;D2-A2+1;D2-A2)*24
asi takto?
Sub Makro1()
For i = 1 To 21 Step 4
Range(Cells(i, 1), Cells(i, 1).Offset(3, 0)).Copy
Cells(Int(i + 3) / 4, 3).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
Next
End Sub
Do stlpca D daj =B3&A3&C3
skopíruj
a daj odstrániť duplicity.
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.