- Amazon Kindle
- Milyen billentyűzetet vegyek?
- Borsos árú alumíniumfelni? Nem, egy asztali PC!
- VR topik (Oculus Rift, stb.)
- AMD Navi Radeon™ RX 9xxx sorozat
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- ThinkPad (NEM IdeaPad)
- Milyen belső merevlemezt vegyek?
- Kezdő fotósok digitális fényképei
- HiFi műszaki szemmel - sztereó hangrendszerek
-
PROHARDVER!
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
-
ThoLy
csendes tag
Szia!
Én úgy csinálnám, hogy létrehoznék egy "segédtáblát" egy másik munkalapon ahol összefűzném az "E" és az "N" oszlop tartalmát, majd kivenném belőle a duplikálásokat (Data fül ismétlődések eltávolítása), majd darabtelivel megnézném, hogy melyikből van több mint 1.
Azután ráeresztenék egy makrót, ami ha a darabteli függvény értéke >1 akkor megkeresi a "duplikált" sorokat, és átszinezi a cella tartalmát.A makrós formázás kódja szerintem valami ilyesmi lenne:
for i=1 to segédtábla vége
if darabtelifüggvényértéke > 1 then
keresési érték = összefűzott érték
for j=1 to adatok_vége
if worksheets("adatok").cells(j,összefűzött adat oszlopszáma)=keresési érték then
worksheets("adatok").range("A"&j&":"#"N"&j).font.color=vbRed
worksheets("adatok").range("A"&j&":"#"N"&j).interior.color=RGB(255,0,0)
end if
next j
end if
next iA range kijelölésben nem vagyok biztos, hogy így jó, de ha szükséges este utána tudok nézni (és nem mond valaki okosat addig)
Ui.: A kód valoszínűleg elég hosszan futna, de hirtelen ez jutott eszembe.
Uui.: A segédtáblát is meg lehetne csinálni makróval. (esetleg próbáld a makró rögzítése funkciót a Fejlesztői fülön)Kérdés esetén állok rendelkezésedre.
Üdv,
ThoLy
Új hozzászólás Aktív témák
- Battlefield 6
- Borderlands 4
- Amazon Kindle
- Milyen billentyűzetet vegyek?
- Borsos árú alumíniumfelni? Nem, egy asztali PC!
- Fortnite - Battle Royale & Save the World (PC, XO, PS4, Switch, Mobil)
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- sziku69: Fűzzük össze a szavakat :)
- Windows XP
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- További aktív témák...
- LG 48C4 - 48" OLED evo - 4K 144Hz - 0.1ms - NVIDIA G-Sync - FreeSync - HDMI 2.1 - A9 Gen7 CPU
- Surface Laptop 5 Touch 13.5 Retina i7-1265U 10mag 4.8Ghz 16GB 512GB Intel Iris XE Win11 Pro Garancia
- Külföldi csomagszállítás Packeta csomagpontokon keresztül!
- BESZÁMÍTÁS! Apple Macbook Pro 13 2020 M1 16GB 1TB SSD macbook garanciával hibátlan működéssel
- HIBÁTLAN iPhone 13 mini 256GB Pink -1 ÉV GARANCIA - Kártyafüggetlen, MS3440, 90% Akkumulátor
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest