Příspěvky uživatele
< návrat zpět
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.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články