Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #17729 Kobe veterán
    Új Válasz #17729
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Kobe

    veterán

    hello

    van egy ilyen kodom, de sajnos az idezojelekkel gondba vagyok, a kod maga sztem jo csak az idezojelekkel csusztam el

    Code2 = ""
    Code2 = Code2 & " Dim lngLastRow" & vbNewLine
    Code2 = Code2 & " lngLastRow = Cells(Rows.Count, ""A"").End(xlUp).Row" & vbNewLine
    Code2 = Code2 & " Columns(""A:A"").Select" & vbNewLine
    Code2 = Code2 & " Selection.Insert Shift:=xlToRight" & vbNewLine & vbNewLine
    Code2 = Code2 & " Range(""A1"").Select" & vbNewLine
    Code2 = Code2 & " ActiveCell.FormulaR1C1 = ""common_id""" & vbNewLine & vbNewLine
    Code2 = Code2 & " Range(""A2"").Select" & vbNewLine
    Code2 = Code2 & " ActiveCell.FormulaR1C1= ""=CONCATENATE(RC[2],""" - """,ROUND(RC[9],0))""" & vbNewLine

    a legutolso sornal elakad a makro, azert van igy Code2 valtozokent definialva mert a makrot access bol futtatom es onnan szurom be az excel fileba. A legutolso sorig rendbe lefut, letrehozza az uj oszlopot, elnevezi stb, viszont a concatenates fuggvenyt nem tudja kezelni, vmi gaz van az idezojelekkel.

    valaki at tudna nezni ?

Új hozzászólás Aktív témák