Příspěvky uživatele

odkaz :

Kdysi jsem spolu tvořili odeslání emailu a zapsání příznaku "Odesláno"

Vše funguje skvěle, ale na jiném pc , kde je jiná verze excelu se mi makro zastaví na : Application.Index(Data, 0, 3)...na konci .. excel napíše eror: Type mismatch.

Nevíte co s tím. Na jiných Ofice mi to funguje bez problémů.

RowsA = .Cells(Rows.Count, "A").End(xlUp).Row - PRVNI_RADEK_DAT + 1 'zjisti počet vyplněných řádků podle sloupce A

MsgBox "pocet radku v tabulce: " & RowsA 'info kolik je řádku ke zpracování

If RowsA = 0 Then MsgBox "Chybějí data.", vbExclamation: Exit Sub 'když data chybí, ukonči makro, /VbExclamation=48 Zobrazí ikonu Varovná zpráva/

Data = .Cells(PRVNI_RADEK_DAT, "A").Resize(RowsA, 50).Value 'načti data z tabulky do proměnné (pole) o výšce RowsA řádků a šířce 50 sloupců

If RowsA = 1 Then ReDim Odeslano(1 To RowsA, 1 To 1): Odeslano(1, 1) = Data(1, 3) Else Odeslano = application.Index(Data, 0, 3)

aha, ok.
Moc děkuju, už to testuju a je to super.

Nevěděl by jste vysvětlit, nebo opravit tuhle chybu?

https://wall.cz/index.php?m=messages&a=list&read=624

Hezký víkend

Zdravím.
Buňky AH, AI a AJ jsem měl pro výběr měsíc/rok a případné rychlé simulace víkendů. ..npotřebné.

Můžete mi vysvětlit ten vzorec velikonoc ? to je snad kouzlo, ne ? Jakto že Vám to spočítá dobře i to , že sem tam jsou velikonoce jen v dubnu,jindy v březnu a nebo duben/březen?
=(KČ(("4/"&ROK($A$2))/7+MOD(19*MOD(ROK($A$2);19)-7;30)*14%;)*7-6)+1

..já řešil doplnění svátku přes svyhledat jinak ,šíleně komplikovaněji.

Dobré ráno
..dobře jste mě "přečetl" :)

..píšete
Takže by stačil řádek 10, kde bude celé datum (ale bude se zobrazovat jen číslo dne 1 - 31) a ušetřím řádky 9 a 19.

asi to jde takto jednošeji....můžete mi to prosím doplnit jak píšete,chtěl bych to vidět,co tam tedy použijete, aby fungovali i ty formáty zelené SO/NE.

Zdravím.
Tomu dotazu moc nerozumím, jak myslíte přes formát buňek ?

Během chodu makra chci vidět jak se hodnoty v listu mění a skáče to po růných místech v listu.
Když ho spustím, tak se provede, ale list se nerefrešuje.
Dá se to nějak obnovovat?

...Sleduju v buňkách průběh práce, co makro dělá ale obraz listu se nestíhá aktualizovat.

A prosím, příkaz jak na určitý čas pauznout makro.
Děkuji

V průběhu roku se počet zam. nemění.
Ale může to nastat, že přibudou na celý rok.

Kalendář mám na celý rok, ale raději bych aby to makro pracovalo vždy v tom jednom měsíci,od 1.do konce měsíce, tam si zapamatovalo poslední směnu ,aby při přeskočení na další měsíc pokračovalo dál v odskoku systému.

tady je list i s vzorci

k tomu makru, ješte musím zohlednit, že unor má občas 29 dní místo 28.Takže se makro přepne na další měsíc dolu až to nějak vyhodnotí /pokud narazí v únoru na 29, nebo na 28

viz sešit

a ještě prosím kod na pozdržení chodu makra.
zpracuje pár řádků a zastaví se na určeny čas.

našel jsem ...ale asi nějak to nešlape

StartTimer()
RunTime = Now + TimeValue("00:00:15")

..něco mi tam chybí ?

To právě chci bez CTRL+V,C. Mám k tomu důvody. Obsluha není moc zdatná..

...PROSTĚ , makro si dám do tlačítka a pak na jakoukoliv buňku označím a spustím makro, tak do této aktivní bunky se zkopíruje ten výběr..

Popíšu příklad:
Potřebuju přečíst adresu aktivní bunky, zadat ji do proměnné
tu ložit, třeba "řádek","sloupec"
pak z jiné oblasti třeba A1:B2 zkopírovat bunky a vložit to zase zpět do té prvotní označené b.

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje