Ú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

• #46707 Delila_1 veterán Dilikutya #46704

  Új Válasz 2021-05-17 13:59:13 #46707

  Ú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

  

  Delila_1

  veterán

  válasz Dilikutya #46704 üzenetére

  Makró nélkül úgy oldhatod meg, hogy csak azoknál a celláknál oldod fel a zárolást, ahova írhat a felhasználó, a képleteket tartalmazó cellák maradjanak zároltak.
  Levéded a lapot, nem engeded a zárolt cellák kijelölését.

• #46706 Pakliman tag Dilikutya #46704

  Új Válasz 2021-05-17 13:41:49 #46706

  Ú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

  

  Pakliman

  tag

  válasz Dilikutya #46704 üzenetére

  Nem igazán értem, hogy ez miért lenne jó Neked, de ha ettől függ a világbéke, akkor a munkalap Worksheet_Change eseményébe kell megírni a kódot, valami ilyesmit, hogy:
  ha ez a cella (Target!) változik
  ha nem üres (most írtál bele valamit) akkor abba a cellába beírjuk a képletet
  ha üres (most törölted az értékét) akkor abból a cellából töröljük a képletet

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