-
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!
- 27% - Corsair Hydro X XD7 RGB black (CX-9040005-WW)Pumpa/Tartály kombó
- MacSzerez.com - iPad Pro 12.9" / M2 / Asztro / Wifi + Cellular / 256GB / Garancia
- Apple Watch Ultra3 2028.09.19.-ig garanciás
- Asus TUF Dash F15 FX516PE 15.6" FHD IPS i7-11370H RTX 3050Ti 16GB 512GB NVMe magyar vbill gar
- Dell Latitude 5580,15.6",FHD,i5-6300U,8GB DDR4,256GB SSD,WIN11
- AZONNALI SZÁLLÍTÁS Eredeti Microsoft Office 2019 Professional Plus
- Apple iPhone 12 Mini / 64GB / Kártyafüggetlen / 12HÓ Garancia / Akku: 100%
- Akció!!! Sosemhasznált! HP OmniBook 5 Ultra 7 255U 5.2GHz 16GB 1000GB 16" FHD+ Gar.: 1 év
- 203 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 7 7745HX, RTX 4070
- iKing.hu Nothing Phone 2 Pro 8/128GB White használt karcmentes 6 hónap garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

