-
Fototrend
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
- sziku69: Fűzzük össze a szavakat :)
- Portfolio Performance - befektetések nyomonkövetése
- Építő/felújító topik
- Marathon (2025)
- Amazfit Active 2 NFC - jó kör
- Reklámok kikapcsolása Xiaomi, Redmi és Poco telefonokon
- Jogász topik
- Ingyen és modern rendszerekre szánva tér vissza az Unreal Tournament 2004
- Xbox Series X|S
- OnePlus 9 Pro - gyorsulási futam
- További aktív témák...
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- MS SQL Server 2016, 2017, 2019
- Újszerű Dell XPS 13 9310 - 13.4" FHD+ i7-1185G7 - 16GB - 1TB - Win11 PRO
- Új Asus Vivobook S16 Flip 2in1 WUXGA X360 Touch i9-13900H 14mag 16GB 1TB SSD Intel Iris XE Garancia
- Apple iPhone 15 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- iMac 16,2 i5-5675R 8GB RAM 1TB SSD NEM FUSION DRIVE!!!
- BESZÁMÍTÁS! ASUS X670E R7 9800X3D 32GB DDR5 1TB SSD RTX 4080 16GB Lian Li O11 Dynamic EVO RGB 850W
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: Laptopműhely Bt.
Város: Budapest
Fferi50
