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

• #48745 Fire/SOUL/CD félisten Eagl3 #48743

  Új Válasz 2022-03-23 11:25:43 #48745

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz Eagl3 #48743 üzenetére

  Ide másold a kódot

  

  Private Sub Worksheet_Change(ByVal Target As Range)

Dim MySrcRange As Range

Set MySrcRange = Range("P12")

If Not Intersect(Target, MySrcRange) Is Nothing Then
If UCase(MySrcRange.Value) = "X" Then
If IsNumeric(Range("T12").Value) = True And IsNumeric(Range("U12").Value) = True Then
Range("T12").Value = Range("T12").Value + 2
Range("U12").Value = Range("U12").Value + 2
Else
MsgBox "A(z) T12 és/vagy U12 cella nem számot tartalmaz!"
End If
End If
End If

End Sub

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