Hirdetés
- iPhone topik
- Telekom mobilszolgáltatások
- Fotók, videók mobillal
- Bemutatkozott a Poco X7 és X7 Pro
- Xiaomi 15T Pro - a téma nincs lezárva
- Samsung Galaxy S22 Ultra - na, kinél van toll?
- Google Pixel topik
- iGO Primo
- Milyen hagyományos (nem okos-) telefont vegyek?
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
-
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
superecneB
#6916
üzenetére
Ha 2007-esnél régebbi verziód van, lefuttatod az alábbi kis makrót, ami a zöld hátterű cellák sorában a C oszlopba 1-et, a nem zöldek mellé 2-t ír. Ezután már tudod rendezni a C oszlop szerint, igény esetén a C-n belül más oszlopokat is bevehetsz a rendezésbe.
Sub szin()
Dim sor As Integer
sor = 1
Do While Cells(sor, 1) <> ""
If Cells(sor, 1).Interior.ColorIndex = 35 Then
Cells(sor, 3) = 1 'Itt írd át a 3-at, hogy ne a 3. (C) oszlopba írja a számot
Else
Cells(sor, 3) = 2 'és itt.
End If
sor = sor + 1
Loop
End SubA különböző zöldeknél a 35 helyére a megfelelő számot írd.

-
válasz
superecneB
#6916
üzenetére
Hali!
2007-esben ez megoldható, nézd meg, hogy működik-e 2003-ban is(teljesen elfelejtem a 2003-at lassan)

1. Alaphelyzet
2. Belekattintok az adott oszlopba, Rendezés és szűrés/Egyéni sorrend
3. Megjelenő ablakban meg lehet adni, hogy a Rendezés alapja, az a cella színe legyen, mindez KÉPBEN
4. Leokézod és ez lesz az eredményFire.
-
WildBoarTeam
senior tag
válasz
superecneB
#6916
üzenetére
Szia
Tudtommal az Excel "formázás" alapján nem tud rendezni (vagyis neked csak az kell, hogy ezek előre kerüljenek, a többi sorrendje mindegy, bár jelen esetben mindegy).
Szerintem ez nem ilyen egyszerű, de pl ha van a keresett értékeidben valami közös, akkor az alapján, már szűrhetnéd (Autószűrő vagy hasonló?).
Új hozzászólás Aktív témák
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Árváltozás + játék DVD: Watch Dogs Deadsec Edititon
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Xiaomi Mi 10T Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
- Eladó Honor X7a 4/128GB Kék / 12 hónap jótállással!
- Felújított Sony PlayStation 4 12.02 FW GoldHEN - BD-JB lemezzel és 9db előre telepített PS4 játékkal
- Új és újszerű 13-14 Gamer, ultrabook, üzleti, 2in1, X360, Touch készülékek kedvező áron Garanciával
- GYÖNYÖRŰ iPhone 14 Pro 256GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3959, 100% Akkumulátor
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest


Fferi50

