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

• #48530 Fferi50 Topikgazda csiben1 #48528

  Új Válasz 2022-02-17 13:28:20 #48530

  Ú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 csiben1 #48528 üzenetére

  Szia!
  Makró nélkül pl.
  1. D1 cella képlete =HA(A1-B1-C1>=0;"";"HIBA")
  2. Feltételes formázás az A1 : C1 tartományra - képlettel , a képlet =$A$1-$B$1-$C$1<0
  kitöltés vagy szegély.
  3. Adatok - érvényesítés - egyéni - képlet: $a$1-$b$1-$c$1<0
  4. Makró:
  A munkalap kódlapjára beírva:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1:C1"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Range("A1").Value < Range("B1").Value + Range("C1").Value Then
   MsgBox "Hibás érték"
End If
Application.EnableEvents = True
End Sub

  Üdv.

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