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

• #46708 Fire/SOUL/CD félisten Dilikutya #46704

  Új Válasz 2021-05-17 14:51:38 #46708

  Ú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 Dilikutya #46704 üzenetére

  Makróval meg így lehet megoldani (A és B oszlopba számok kerüljenek, mert C cellában összeadom őket a példában)

  Private Sub Worksheet_Change(ByVal Target As Range)

'csak A és B oszlopban figyeljük a cellákat, hogy megváltozott-e a tartalmuk
If Not Intersect(Range("A:B"), Range(Target.Address)) Is Nothing Then
'megnézzük, hogy A és B oszlopban, de azonos sorban található 2 cella üres-e
If Not IsEmpty(Range("A" & Target.Row).Value) And Not IsEmpty(Range("B" & Target.Row).Value) Then
'ha egyik sem üres, akkor beírjuk a képletet a C oszlop megfelelő sorában lévő cellába
'(ez esetben összeadja a két cella értékét)
Range("C" & Target.Row).Formula = _
"=A" & Range(Target.Address).Row & "+" & "B" & Range(Target.Address).Row
Else
'ha bármelyik is üres, akkor kitörlünk mindent a C oszlop megfelelő sorában lévő cellából
Range("C" & Target.Row).Clear
End If
End If

End Sub

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