Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    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

  • #50638 Delila_1 veterán andreas49 #50637
    Új Válasz #50638
    Ú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

    Delila_1

    veterán

    válasz andreas49 #50637 üzenetére

    Megírtam, hogy a sok BAL képlet helyére illessze be minden lapon az értékeket. Kisebb lesz a fájl mérete, és gyorsabbak a műveletek.

    Sub AR_BAL_1_mod()
    Dim ws As Integer

    For ws = 1 To Worksheets.Count
    Sheets(ws).Range("AM4:AQ155").FormulaLocal = "=Bal(E4;1)"
    Sheets(ws).Range("AM4:AQ155").Copy
    Sheets(ws).Range("AM4").PasteSpecial xlPasteValues

    Sheets(ws).Range("AS4:AW155").FormulaLocal = "=Bal(N4;1)"
    Sheets(ws).Range("AS4:AW155").Copy
    Sheets(ws).Range("AS4").PasteSpecial xlPasteValues

    Sheets(ws).Range("AY4:BC155").FormulaLocal = "=Bal(W4;1)"
    Sheets(ws).Range("AY4:BC155").Copy
    Sheets(ws).Range("AY4").PasteSpecial xlPasteValues

    Sheets(ws).Range("BE4:BI155").FormulaLocal = "=Bal(AF4;1)"
    Sheets(ws).Range("BE4:BI155").Copy
    Sheets(ws).Range("BE4").PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
    End Sub

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