Příspěvky uživatele

tak jsem narazil:
v kodu máte :
'/******* Hledám, jestli je vybraná buňka v povoleném rozsahu. Tzn. v tabulce jednotlivých měsíců

Můžete to vysvětlit ?
Já si ty měsíce různě posunul o pár řádků níže, podle jakého klíče to mám upravit v makru ?..které hodnoty ?

bude to tady někde ?
nasobek = -1
For i = 0 To 11
If Not Application.Intersect(Range("C" & radek1 & ":AF" & radek1 + pocetJmen - 1), Range(Selection.Address)) Is Nothing Then
nasobek = i
Exit For
End If
radek1 = radek1 + posun
Next i

Zdravím.
Mám formulář, kde si podle cykluFOR/NEXT na tlačítku zobrazuji zpracování položky 1,2 atd.
Při ladění se mi nápis v tlačítku mění, ale po spuštění makra se to v tom tlačítku neaktualizuje, a nejde vidět ta zmeny Caption v command.
Je nějaký příkaz na to aby se ten formulář po každé změne FOR/NEXT znovu inicializoval, abych viděl ten průběh v tom tlačítku?
P

Ty směny fungujou skvěle, Jirkovi497 velké díky!

office 2010 domac.a student, 32bit

obr2

obr

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

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje