Hirdetés
- Telekom mobilszolgáltatások
- Fotók, videók mobillal
- Samsung Galaxy S23 Ultra - non plus ultra
- Vivo X300 Ultra - tárcsázz, ha van rá keret!
- Íme az új Android Auto!
- Mától Huawei okosórákkal is lehet érintésmentesen fizetni
- Poco X8 Pro Max - nem kell ide sem bank, sem akkubank
- Google Pixel 9 Pro XL - hét szűk esztendő
- Karnyújtásnyira az Android 17
- Mobil flották
-
Mobilarena
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
botond187
#22788
üzenetére
Egyszerűbben, és kicsit gyorsabban is meg lehet csinálni.
Kell egy segédtábla (nálam a K:M tartomány), ahol a K oszlop tartalmazza azt a szöveges formában tárolt adatot, amihez rendeljük a többit, az L és M szintén szövegesen a csatolandó min és max értékeket.Nem írtad, az Excelnek melyik verzióját használod, ezért 2003-ban írtam, azt a magasabb verziójú Excelek elfogadják, csak makróbarátként kell menteni.
A füzetet feltettem ide.
Módosítandó sorok, ha a segédtáblát máshova teszed:
1.Set sorS = Columns(11).Find(ehhez, LookIn:=xlValues)
A Columns(11) most a K oszlopra mutat, mert a K a 11. oszlop.
2.
If Mid(Cells(sorK, "A"), 3) >= Cells(sorS, "L") And _
Mid(Cells(sorK, "A"), 3) <= Cells(sorS, "M") ThenEzeknél az "L" és "M" helyett írd a saját oszlopaid betűjelét
Új hozzászólás Aktív témák
- Milyen RAM-ot vegyek?
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- A fociról könnyedén, egy baráti társaságban
- Telekom mobilszolgáltatások
- Tesla topik
- Fotók, videók mobillal
- Bluetooth hangszórók
- Samsung Galaxy S23 Ultra - non plus ultra
- Debrecen és környéke adok-veszek-beszélgetek
- Áprilisi hardverpasziánsz
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Ableton Live 12 Suite Education
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- M5! KÉSZLETKISÖPRÉSI ULTRAAKCIÓ!!! SPACE BLACK MacBook Pro 14" M5!!! 10C/10G 16GB 1 TB Gar!
- Frissen pasztázva! Playstation 4 Pro 1 TB + kontroller 6 hó garancia, számlával!
- Lenovo Thinkpad P15 Gen 2 - 82 akkuciklus - 27% ÁFA- Garancia - 0373BE
- Honor Magic 8 Lite 256GB Midnight Black Újszerű állapot 2029.02.11. garancia
- MiniITX GAMING PC! Ryzen 7700 / RTX 5070 / B850I / 32GB DDR5 / 2TB NVMe / 750w Gold! BeszámítOK
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
