Mazání oblasti buněk makrem

Kvido · 8. 7. 2009 18:41:39

Pro vymazání oblasti dat používám následující makro

Sub VymazatPohyby
On Error GoTo Err_VymazatPohyby
Dim ListySesitu As Object, List As Object
ListySesitu = ThisComponent.getSheets
List = ListySesitu.getByName("Pohyby zboží")
List.getCellRangeByName("A4:R8003").ClearContents(1+2+4+8+16)
JdiNaBunku("A4")
Konec:
Exit Sub
Err_VymazatPohyby:
MsgBox "Chyba číslo: " & Err & Chr(13) & "Popis Chyby: " & Error & Chr(13) & "V řádku číslo: " & Erl, 0 + 64, "Vymazat"
Resume Konec
End Sub

Ve verzích OOo 2.4 - 3.0 vše naprosto bez problémů, ve verzi OOo 3.1 calc vytuhne a přestane jakkoli komunikovat.
Proto prosím poraďte kde je chyba.

hanus · 9. 7. 2009 20:45:58

Což takhle se obrátit na autora makra?

Co to makro JdiNaBunku("A4") - to je definováno kde?

Kvido · 10. 7. 2009 08:03:31

Makro JdiNaBunku s problémem vytuhnutí Calcu nesouvisí. Pouze přesune aktivitu na buňku danou v argumentu.

hanus · 12. 7. 2009 10:58:51

Win 2000 Profi, OpenOffice ver 3.1.0 EN :
Tak jsem makro vložil do nového sešitu, zakomentoval řádek JdiNaBunku("A4"), v sešitu jsem vyrobil list "Pohyby zboží", naplnil ho daty a makro spustil z jiného listu: smazalo se, co mělo, žádný problém. Pak jsem vymazal list "Pohyby zboží" a znovu spustil makro - vypsal chybu, ale nevytuhnul.

Instaluju OpenOffice 3.1.0 CZ...
stejné, naprosto bez problémů.

Nemůže být problém v tom, že ten sešit byl vyroben ve starší verzi OpenOffice? Pokud ho nemáme k dispozici, není k tomu dále co dodat.

Editoval hanus (12. 7. 2009 11:15:23)

OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

#1 8. 7. 2009 18:41:39

Mazání oblasti buněk makrem

#2 9. 7. 2009 20:45:58

Re: Mazání oblasti buněk makrem

#3 10. 7. 2009 08:03:31

Re: Mazání oblasti buněk makrem

#4 12. 7. 2009 10:58:51

Re: Mazání oblasti buněk makrem

Zápatí