Hirdetés
- CES 2026: Egyik füleden be, a másikon ki
- CES 2026: Nem folyt ki a szemünk a TCL papírképernyőit bámulva
- CES 2026: A Hohem kompakt SSD-je telefonos USB-elosztó is
- Helio Core néven újabb kijelző nélküli Amazfit kiegészítő jött
- Headset, ami hangszóró is, AI nyaklánc, rúddal izélgethető porszívó... - CES
- One mobilszolgáltatások
- CES 2026: Színre lép a Motorola Razr Fold
- iPhone topik
- Garmin topik
- Amazfit T-Rex 3 Pro – világítós dínó
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Honor Magic V5 - méret a kamera mögött
- OnePlus 15 - van plusz energia
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Apple iPhone 17 Pro Max – fennsí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
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- AMD vs. INTEL vs. NVIDIA
- Subaru topik
- HiFi műszaki szemmel - sztereó hangrendszerek
- Hogy is néznek ki a gépeink?
- Tarr Kft. kábeltv, internet, telefon
- Parfüm topik
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Autós topik látogatók beszélgetős, offolós topikja
- Székesfehérvár és környéke adok-veszek-beszélgetek
- További aktív témák...
- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Újévi áron! :)
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Antivírus szoftverek, VPN
- Apple iPhone 13 Pro Max Graphite ProMotion 120 Hz, Pro kamerák 256 GB-100%-3 hó gari!
- GYÖNYÖRŰ iPhone 13 Pro 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3963
- iPhone 13 Pro Max 128GB 100% (1év Garancia)
- BESZÁMÍTÁS! GIGABYTE A520M R5 5500 16GB DDR4 512GB SSD GTX 1660 Super 6GB Zalman T3 Plus 400W
- LG 49WQ95X-W - 49" NANO IPS - 5120x1440 Dual QHD - 144Hz - USB Type-C - HDR 400 - G-Sync - FreeSync
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest
Fferi50

