-
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
-
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.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Horgász topik
- Ősszel jönnek az új Intel chipek
- Gyúrósok ide!
- YouTube
- A fociról könnyedén, egy baráti társaságban
- Okosóra és okoskiegészítő topik
- Kerékpárosok, bringások ide!
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Mazda topik
- Samsung Galaxy A53 5G - kevesebbet többért
- További aktív témák...
- 10 Darab PC Játék (Bontatlanul!) Egyben 5990Ft.-ért Foxal!!!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Védje meg számítógépét a vírusoktól!
- COLLECTOR! - World of Warcraft + 5 kiégészítője (Burning Crusade, Cataclysm, Mists of Pandaria...)
- Spotify 1 év gift kartya
- Megmaradt steam, gog és origin játékkulcsaim fris.:2024.06.17
- BIG BOX! - Aladdin (1994, CD)
- Microsoft termékek akciós áron Azonnali szállítással Windows 11,10,8,8.1,Office 21,19,16 pro plus