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

• #33141 lenkei83 tag Fferi50 #33140

  Új Válasz 2016-11-04 19:41:29 #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.

  [ Szerkesztve ]

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