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

• #54415 Fferi50 Topikgazda Talala #54413

  Új Válasz 2025-05-22 18:28:50 #54415

  Ú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

  

  Fferi50

  Topikgazda

  válasz Talala #54413 üzenetére

  Szia!
  Mivel nálam értesítés is van, ha nem számot ír be a felhasználó, ezért az üres cella vizsgálatot külön kell elvégezni (a félkövér sorok az újak):
  Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Cells.Count = 1 Then
   If Not Intersect(Target, Range("B4:K500")) Is Nothing Then
      If Target.Value <> "" Then
         If IsNumeric(Target.Value) Then
            ' B-K oszlopok 4-500 sora, ha többet szeretnél változtasd a sorok számát, a kezdő sor legyen nagyobb, mint az alapérték sora
            Target.Value = Cells(3, Target.Column) + Target.Value / 1000
            ' 3 annak a sornak a száma, ahonnan az alapértéket vesszük - ha ez más, akkor ide a sor számát írd
         Else
            MsgBox "Nem számot írtál be!"
            Application.Undo
         End If
      End If
   End If
Else
   MsgBox "Nem egy cellát változtattál!"
   Application.Undo
End If
Application.EnableEvents = True
End Sub
  Üdv.

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