Hirdetés
- lezso6: Miért is jó, ha dohányzol?! Megéri rászokni!
- eBay-es kütyük kis pénzért
- sziku69: Fűzzük össze a szavakat :)
- gban: Ingyen kellene, de tegnapra
- Fire/SOUL/CD: INGYENES Clone és Backup-Restore alkalmazások tesztje [2024]
- Luck Dragon: Asszociációs játék. :)
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Brogyi: CTEK akkumulátor töltő és másolatai
- Kalandor: Fred
- Geri Bátyó: Agglegénykonyha 8 – Ami félresikerül, még nem biztos, hogy rossz is
-
LOGOUT
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
-
Delila_1
veterán
válasz
m.zmrzlina #10065 üzenetére
Le a kalappal!
Van egy baj: a lehetséges betűk száma 14, HA függvényből viszont csak hetet lehet egymásba ágyazni. Ez az az eset, mikor makrót kell írni.
Sub Leiras()
Dim sor%, oszlop%, betu%, nev$
Range("K57:K75,M57:M75,P57:P75").ClearContents
For sor% = 57 To 75
oszlop% = 10: GoSub Beir
oszlop% = 12: GoSub Beir
oszlop% = 15: GoSub Beir
Next
Exit Sub
Beir:
nev$ = Cells(sor%, oszlop%)
For betu% = 1 To Len(nev$)
Cells(sor%, oszlop% + 1) = Cells(sor%, oszlop% + 1) & Application.VLookup(Mid(nev, betu%, 1), Range("R57:S70"), 2, 0) & " "
Next
Cells(sor%, oszlop% + 1) = Left(Cells(sor%, oszlop% + 1), Len(Cells(sor%, oszlop% + 1)) - 1)
Return
End Sub
Új hozzászólás Aktív témák
- Milyen routert?
- Konzolokról KULTURÁLT módon
- OpenMediaVault
- Mr. Beast retteg, elveszi az AI a munkát
- Kenyérsütés otthon kenyérsütőgéppel
- Okos Otthon / Smart Home
- A fociról könnyedén, egy baráti társaságban
- Kormányok / autós szimulátorok topikja
- Futás, futópályák
- SD memóriakártyák (SD, SDHC, SDXC, micro SD)
- További aktív témák...
- HIBÁTLAN iPhone 13 Pro 128GB Silver -1 ÉV GARANCIA - Kártyafüggetlen, MS3666 100% Akkumulátor
- Bomba ár! Dell Latitude E5470 - i5-6GEN I 8GB I 256GB SSD I 14" HD I HDMI I Cam I W10 I Gari!
- Apple iPhone 15 128GB,Dobozával,12 hónap garanciával
- 8 GB-os GeForce RTX 2060 SUPER (OEM HP) - garanciával
- BESZÁMÍTÁS! Lenovo Legion 5 Pro 16 Gamer notebook - i7 13700HX 16GB DDR5 512GB SSD RTX 4060 8GB W11
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest