MS Excel

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íkendcitovat

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)citovat

obr2citovat

Veď napísal, že "v jiné verzi" citovat

Odkaz je platný, ale do mojej schránky SZ
To som páchal ja. Ktorý to je topic, nech si pohľadám celý súbor ? Alebo mi pošlite aktuálny súbor.
Nič nesľubujem, musí to byť na desiatky minút, inak končím. Som dlhodobo chorý...citovat