none
VBA aplcation-defined or object-defined error RRS feed

  • Dotaz

  • Dobrý den,

    při spuštění makra se  mi zobrazí chybová hláška: aplcation-defined or object-defined error. Přitom na jiných PC mně program spolehlivě funguje. Tato chyba nastává v kombinace Office 2010 a Win8. Kde nastává problém a jak jej mohu odstranit? Děkuji

    • Upravený lukame středa 30. července 2014 11:17
    středa 30. července 2014 10:49

Odpovědi

Všechny reakce

  • Muzes makro zkusit krokovat - kde presne k problemu dochazi?

    MP

    středa 30. července 2014 20:24
    Moderátor
  • ' Kontrola, jestli je již uloženo AktualniAdresar = ThisWorkbook.Path jmenosouboru = Worksheets("zadavani").Range("L2").Text CestaCela = "" & AktualniAdresar & "\" & jmenosouboru & ".xlsx" If Not Len(Dir(CestaCela)) = 0 Then MsgBox ("Pod tímto názvem soubor nelze uložit. ") GoTo konec Else End If ' ZAPSAT ZÁZNAM d = 1 While Not Worksheets("zadavani").Cells(d, 7).Value = "Počet pokusů:" d = d + 1 Wend suma = Worksheets("zadavani").Cells(d, 11).Value

    Chybu to hlásí na tom řádku, kde hledá text:"Počet pokusů". Mám však dojem, že to reaguje na tu předešlou část kódu.

    čtvrtek 31. července 2014 12:35
  • Pouzivas cestinu ve VBA? Masochismus. VBA neni unicodove - mas default system locale nastavenu na cestinu?

    Jinak to zkus krokovat - pokud se o kousek predtim uklada a pod. muze byt problem v (a)synchronnosti. Dale si pridej watch na

    Worksheets("zadavani")
    Worksheets("zadavani").Cells(d, 7)
    Worksheets("zadavani").Cells(d, 7).Value
    d

    at vidis, co je pricinou chyby

    MP


    čtvrtek 31. července 2014 12:43
    Moderátor
  • Hm... masochismus vyplynul z okolností. Bohužel. Nicméně v tom asi bude ta chyba. Prostě nekonečný cyklus. Češtinu v systému mám samozřejmě default. Ale nějak to kódování spolu nejspíš nekomunikuje.

    Nicméně: dá se nějak pojmenovat v Excelu buňka, kterou budu hledat cyklem ...abych nahradil to hledání českého textu v buňce? Mám na mysli např.: buňka  A1 se jmenuje "start"   a obsahuje třeba text "Hořčice" a já v VBA bud hledat buňku s názvem "start" a zjistím si obsah této buňky? Prakticky jak v Excelu a jak v VBA? Díky.

     
    čtvrtek 31. července 2014 16:04
  • Pojmenovane bunky, pojmenovane rozsahy ... naprosty zaklad

    MP


    čtvrtek 31. července 2014 16:39
    Moderátor
  • Jasně, pojmenovat není problém. Jen mě, prosím, nakopni nějaký příkaz VBA, jak určit polohu pojmenované buňky. Díky.

    sobota 2. srpna 2014 8:26
  • Range("PojmenovanaBunka") je to co hledas (pak uz vlastnosti .Row, .Column ...)

    MP

    sobota 2. srpna 2014 10:05
    Moderátor
  • Super. Díky
    sobota 2. srpna 2014 10:24