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

    Fototrend

    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

  • #33141 lenkei83 tag Fferi50 #33140
    Új Válasz #33141
    Ú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

    lenkei83

    tag

    válasz Fferi50 #33140 üzenetére

    Azért regiertek, mert az a sor ugyan meg van hogy regiertek = target.Value, de utána van egy application.undo, és ha ilyenkor hívom meg functionnal a target.Value = RemoveNotNum(target.value)-t, akkor a target.Value éppen üres, vagyis üresre fogja hozni a cellámat.

    If sh.CodeName = "Munka7" Or sh.CodeName = "Munka13" Or sh.CodeName = "Munka10" Or sh.CodeName = "Munka8" Or sh.CodeName = "Munka5" Then
    Application.EnableEvents = True
    Exit Sub
    Else
    If (sh.CodeName = "munka5" Or 1 <= target.Column <= 2) Then
    regiertek = target.Value
    Application.EnableEvents = False
    Application.Undo
    target.Cells.NumberFormat = "@"
    If Application.CutCopyMode <> False Then
    target.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    target.Value = RemoveNotNum(regiertek)
    Else
    target.Value = RemoveNotNum(regiertek)

    A meghívásnak így kellene kinézni? Konkrétan a bemásolt (vagyis az aktuálisan kijelölt) területre szeretném alkalmazni, akkor így kellene meghívni? RemoveNotNum Selection

    Nem igazán akar működni worksheet_change-el

    Else
    If (sh.CodeName = "munka5" Or 1 <= target.Column <= 2) Then
    regiertek = target.Value
    Application.EnableEvents = False
    Application.Undo
    target.Cells.NumberFormat = "@"
    If Application.CutCopyMode <> False Then
    target.PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    RemoveNotNum regiertek
    Else
    RemoveNotNum regiertek
    End If

    üdv
    P.

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