Hirdetés
- MIUI / HyperOS topik
- CES 2026: Kezemben a Razr Fold
- Google Pixel 9 Pro XL - hét szűk esztendő
- Xiaomi 15T Pro - a téma nincs lezárva
- A piac legerősebb kameráját ígéri a Xiaomi 17 Ultra
- Áprilisban már szaggathatja a kínai aszfaltot a Xiaomi SU7 új verziója
- CES 2026: Olcsó, kompakt, többportos GaN töltőt kínál a Lenovo
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Google Pixel topik
- Hat év támogatást csomagolt fém házba a OnePlus Nord 4
-
Mobilarena
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
-
m.zmrzlina
senior tag
válasz
pirit28
#29300
üzenetére
Nem derült ki a kérdésből, hogy melyik cella tartalmát kell módosítania a képletnek ezért én a D11-es cellára írtam meg a makrót.
Próbáld ki jól fejtettem-e vissza a képletet!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("C11").Value = "" Then
Range("D11").Value = ""
ElseIf Range("C11").Value = "*hatroff*" Or Range("C11").Value = "*Győr*" Or Range("C11").Value = "*(OE)*" Then
Range("D11").Value = "OE"
ElseIf Range("C11").Value = "*WH*" Or Range("C11").Value = "*W/H*" Then
Range("D11").Value = "W/H"
Else
Range("D11").Value = "DFC"
End If
End SubA második ág ahogy látod nem teljes, ha így azt csinálja amit szeretnél akkor ki lehet egészíteni.
Új hozzászólás Aktív témák
- Amlogic S905, S912 processzoros készülékek
- MIUI / HyperOS topik
- A fociról könnyedén, egy baráti társaságban
- Filmvilág
- World of Tanks - OFF topic
- Battlefield 6
- Okos Otthon / Smart Home
- CES 2026: Kezemben a Razr Fold
- Budapest és környéke adok-veszek-beszélgetek
- Anime filmek és sorozatok
- További aktív témák...
- Azonnali készpénzes INTEL CPU AMD VGA számítógép felvásárlás személyesen / postával korrekt áron
- Telefon felvásárlás!! Apple Watch Series 6/Apple Watch Series 7/Apple Watch Series 8
- GYÖNYÖRŰ iPhone 12 mini 128GB Blue -1 ÉV GARANCIA - Kártyafüggetlen, MS3853
- Honor X6a 128GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! Asus H370 i7 8700 16GB DDR4 512GB SSD RTX 2060 Super 8GB Zalman S2 TG Cooler Master 650W
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest
Fferi50

