Ú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

• #48744 jerry311 nagyúr Eagl3 #48743

  Új Válasz 2022-03-23 11:18:46 #48744

  Ú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

  

  jerry311

  nagyúr

  válasz Eagl3 #48743 üzenetére

  Jó, de az Excel úgy működik, hogy az egyik cellába írsz valamit, a másik cellában lévő képlet pedig kiszámol valamit.
  Tehát az utóbbiban kell úgy kialakítani a képletet, hogy valahonnan (mondjuk A1) veszi az alap értéket, amihez hozzá kell adni kettőt, és utána a képlet második fele megnézi, hogy a feltételt tartalmazó cellában (mondjuk B1) van-e X, és ha igen, akkor az értéke 2, ha nem, akkor 0.

  A1: 12
  B1: X
  C1: =A1+IF(B1="X",2,0)

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