- Xbox Series X|S
- SGF24 - Megjelenési dátumot kapott a Dragon Ball: Sparking! Zero
- Summer Game Fest 2024 - Az összes bejelentés egy helyen!
- SGF24 - Érkezik a No More Room In Hell 2
- PlayStation 5
- Valorant
- EAFC 24
- The First Descendant (PC, PS4, PS5, XO, XSX)
- Forza sorozat (Horizon/Motorsport)
- Hogwarts Legacy teszt
-
GAMEPOD.hu
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
-
MaciLaci68
csendes tag
Szervusztok,
Az alábbi makró szerepe hogy ha az aktív cellának van neve, akkor azt A1 cellába beírja.
Kicsit bonyolult lett, az összes nevet átnézi a program és ha az aktív cella címe egyezik valamelyik név címével akkor megvan a tettes.
Szóval nekem csak az aktív cella neve kellene egy egyszerűbb módszerrel. Kínomban találtam ki ezt a bonyolultat.Sub NEVEKRE_hivatkozás()
aktívcella = ActiveCell.Address
Lap = ActiveSheet.Name
aktívcellacím = "=" & Lap & "!" & aktívcella
névszám = ActiveWorkbook.Names.Count
For i = 1 To névszám
On Error Resume Next
nevekcímei = ActiveWorkbook.Names(i).RefersToLocal
If nevekcímei = aktívcellacím Then
név = ActiveWorkbook.Names(i).Name
Range("A1") = név
Else
End If
Next
End Sub
Új hozzászólás Aktív témák
- Motorola Edge 40 - jó bőr
- Xbox Series X|S
- SGF24 - Megjelenési dátumot kapott a Dragon Ball: Sparking! Zero
- Milyen légkondit a lakásba?
- Kínai, és egyéb olcsó órák topikja
- Summer Game Fest 2024 - Az összes bejelentés egy helyen!
- Autós topik
- Bakancslista Route 66 Chicagótól Los Angelesig 3.
- Az iPhone 15 frissítésgaranciát, a 16 szép rendereket kapott
- SGF24 - Érkezik a No More Room In Hell 2
- További aktív témák...
- GameStar / PC Guru játékmellékletek tokkal és borítóval 500Ft/db
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 05. 01.)
- Eladó PC Játékok Bontott és Bontatlan csomagolásban.
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs