none
Excel- problém se vzorci RRS feed

  • Dotaz

  • Dobrý den.
    Používal jsem ve firmě zkušební verzi MS office 2007 a vytvořil jsem na něm vba makro které doplňovalo do tabulek.To fungovalo v pořádku. Konečně mi zřídili plnou verzi avšak Small bussines. Vše probíhá v pořádku až do doby, kdy přijde na řadu jeden vzorec. Do buňek se sice dosadí ale výsledkem je pouze "
    #NÁZEV?
    "
    Když do vzorce vstoupím a odentruji ho tak se již vypočítá. Ale při počtu stovek řádků a desítek sloupců je to značně nepraktické. Má někdo podobný problém nebo zkušenost jak problém řešit.
    Zde uvádím celou funkcio mého makra
     
    Sub pocitej()
    Sheets("DDD").Select
    k = POSLOUPCI("A")
    For i = 2 To k
    Cells(i, 1) = CStr(Cells(i, 1))
    Next
    Sheets("DBS").Select
    p = POSLOUPCI("A")
    For i = 2 To p
    Cells(i, 1) = CStr(Cells(i, 1))
    Next
    Sheets("ZADANI").Select
    konec = POSLOUPCI("A")
    For i = 2 To konec
    Cells(i, 1) = CStr(Cells(i, 1))
    Next
    For i = 2 To konec
    Cells(i, 8).Select
    ActiveCell.FormulaR1C1 = "=KDYŽ(JE.NEDEF(SVYHLEDAT(RC[-7],DBS!R2C[-7]:R" & p & "C[17],1,0)),""nenalezeno"",SVYHLEDAT(RC[-7],DBS!R2C[-7]:R" & p & "C[17],1,0))"
     Cells(i, 9).Select
    ActiveCell.FormulaR1C1 = "=KDYŽ(JE.NEDEF(SVYHLEDAT(RC[-8],DBS!R2C[-8]:R" & p & "C[16],3,0)),""nenalezeno"",SVYHLEDAT(RC[-8],DBS!R2C[-8]:R" & p & "C[16],3,0))"
     Cells(i, 10).Select
    ActiveCell.FormulaR1C1 = "=KDYŽ(JE.NEDEF(SVYHLEDAT(RC[-9],DBS!R2C[-9]:R" & p & "C[15],4,0)),""nenalezeno"",SVYHLEDAT(RC[-9],DBS!R2C[-9]:R" & p & "C[15],4,0))"
     Cells(i, 11).Select
    ActiveCell.FormulaR1C1 = "=KDYŽ(JE.NEDEF(SVYHLEDAT(RC[-10],DBS!R2C[-10]:R" & p & "C[14],7,0)),""nenalezeno"",SVYHLEDAT(RC[-10],DBS!R2C[-10]:R" & p & "C[14],7,0))"
     Cells(i, 12).Select
    ActiveCell.FormulaR1C1 = "=KDYŽ(JE.NEDEF(SVYHLEDAT(RC[-11],DBS!R2C[-11]:R" & p & "C[13],9,0)),""nenalezeno"",SVYHLEDAT(RC[-11],DBS!R2C[-11]:R" & p & "C[13],9,0))"
     Cells(i, 13).Select
    ActiveCell.FormulaR1C1 = "=KDYŽ(JE.NEDEF(SVYHLEDAT(RC[-12],DBS!R2C[-12]:R" & p & "C[12],5,0)),""nenalezeno"",SVYHLEDAT(RC[-12],DBS!R2C[-12]:R" & p & "C[12],5,0))"
     Cells(i, 14).Select
    ActiveCell.FormulaR1C1 = "=KDYŽ(JE.NEDEF(SVYHLEDAT(RC[-13],DDD!R2C[-13]:R" & k & "C[-2],3,0)),""nenalezeno"",SVYHLEDAT(RC[-13],DDD!R2C[-13]:R" & k & "C[-2],3,0))"
     Cells(i, 15).Select
    ActiveCell.FormulaR1C1 = "=KDYŽ(JE.NEDEF(SVYHLEDAT(RC[-14],DDD!R2C[-14]:R" & k & "C[-3],5,0)),""nenalezeno"",SVYHLEDAT(RC[-14],DDD!R2C[-14]:R" & k & "C[-3],5,0))"

    Next



    End Sub

    Děkuji

    středa 14. ledna 2009 7:15

Odpovědi

Všechny reakce