-
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
- Kertészet, mezőgazdaság topik
- Autós kamerák
- Doky586: SecureBoot kulcsok frissítése (2026 nyara)
- Fejhallgató erősítő és DAC topik
- Házimozi haladó szinten
- Micro Four Thirds
- EAFC 26
- Sütés, főzés és konyhai praktikák
- GoodSpeed: Daikin FTXF35E / RXF35F Sensira 3,3 kW Inverteres klíma - a Sztori
- Eredeti játékok OFF topik
- További aktív témák...
- MEGA AKCIÓ! - Jogtiszta Windows - Office & Autodesk & CorelDRAW - Azonnal - Számlával - Garanciával
- Microsoft és egyéb dobozos retro szoftverek
- Xbox / Microsoft Store feltöltőkártya kód (digitális, HU) több címlet, több db, azonnal, olcsón
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- ÚJ MacBook Pro 14" M4 PRO 24GB 512GB Space Black
- Asus ROG 17 WQHD 240Hz G-Sync Ryzen9 7945HX 32GB 1TB SSD Nvidia RTX 4090 16GB 175W Win11 Garancia
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 9070 16GB GAMER PC termékbeszámítással
- MEGA Akció! Számla + garancia! Apple Macbook Pro 14 - Apple M3 Pro Chip!
- Keresünk iPhone 16/16e/16 Plus/16 Pro/16 Pro Max
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50