-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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 -
jerry311
nagyúr
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) -
jerry311
nagyúr
Ha jól értem, akkor számolja meg, hogy egy cellában vagy tartományban van-e X és utána a darabszám dupláját írja be számként.
Mondjuk az A1 cellába beírod X, a B1 és B2 cellába meg berakod hogy=countif(A1,"X")*2Ha mondjuk az A oszlopban kell számolni, akkor:
=countif(A:A,"X")*2
Új hozzászólás Aktív témák
- Facebook és Messenger
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- EA Sports WRC '23
- Azonnali informatikai kérdések órája
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- OLED monitor topic
- Apple MacBook
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Szeged és környéke adok-veszek-beszélgetek
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- További aktív témák...
- HIBÁTLAN iPhone 13 Pro Max 256GB Sierra Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS4302
- Lenovo ThinkPad L460,HD+, 14",i5-6200U,8GB RAM,256GB SSD,WIN11
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- AKCIÓ! LENOVO ThinkPad P15 Gen2 munkaállomás - i7 11800H 16GB DDR4 1TB SSD RTX A2000 4GB W
- Lenovo ThinkPad T590 15,6" - i5 8265U, 8-16GB RAM, SSD, jó akku, számla, 6 hó gar
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50