-
Fototrend

Új hozzászólás Aktív témák
-
fl1973
csendes tag
Sziasztok,
Excel makró kérdésem lenne, és bízok abban, hogy tud valaki segíteni.
Weben találtam azt a "fül" átnevező makrót, amit egy létrehozott "gomb" segítségével tudok is futtatni.
Sub Gomb3_Click()
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
xRngAddress = Application.ActiveCell.Address
For Each xWs In Application.ActiveWorkbook.Sheets
xName = xWs.Range("A2").Value
If xName <> "" Then
xWs.Name = xName
End If
Next
End SubAzt viszont nem tudom megcsinálni, hogy ne csak az "A2" adat jelenjen meg mint munkafüzet fül név, hanem xyz_ghj "A2".uhb ( ahol az "A2"-kívül a többi karakter állandó lenne persze)
erre valami ötlet valakitől?
természetesen az A2 cellába nem szeretném beírni ezt: xyz_ghj xx.uhbköszönöm előre is.
Új hozzászólás Aktív témák
● olvasd el a téma összefoglalót!
- Autós topik
- Xiaomi 17 Ultra - jó az optikája
- Mesterséges intelligencia topik
- Sokkal jobb ajánlat lett elődjénél az iPhone 17e
- Windows 10
- Genshin Impact (PC, PS4, Android, iOS)
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Milyen légkondit a lakásba?
- XPEnology
- További aktív témák...
- Lenovo ThinkPad T480s,14",FHD,i5-7300U,8GB DDR4,256GB SSD,WIN11,TOUCH
- GARANCIÁLIS ASUS TUF F16 // Intel Core 5 210H // 16GB RAM // 1TB SSD // RTX 4050
- 10genes kishibàs pc(i3-10105f/8gb/gt1030/win11/SSD/hdd)
- PANASONIC Toughbook CF-53,i5-3340M,4GB RAM,500GB HDD,DVD,WIN10
- Lenovo LOQ Gamer laptop , R7 7435HS , 24GB DDR5 , RTX 4050
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 32/64GB RAM RX 9060 XT 16GB GAMER PC termékbeszámítással
- Microsoft Surface Laptop 3 13.5" fekete i5-1035G7 16GB 512GB 1 év garancia
- MacOS 26! UTOLSÓ GEN iMac 27" 5K i7-10700K 64GB RAM 512GB NVMe Radeon Pro 5700 XT 16GB gar
- ÚJ 5G LTE! Microsoft Surface Pro 8 i7-1185G7 16GB 512GB 1 év garancia (Microsoft + MalakCare)
- Dell Vostro 3425 6magos Ryzen 5 5625U 8GB RAM 256GB SSD
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

