- Kraz
- koxx: Bloons TD5 - Tower Defense játék
- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- bitpork: Phautós tali a Balcsinál 2025 Augusztus 2 napján (szombat)
- Real Racing 3 - Freemium csoda
- laskr99: Processzor és videokártya szilícium mag fotók újratöltve!
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- btz: Internet fejlesztés országosan!
Hirdetés
Köszönjük a sok biztatást, támogatást! Utolsó pillanat a féláras hirdetésfeladásra, előfizetésre!
-
LOGOUT
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
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Több mint 70.000 eladott szoftverlicenc
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- PC Game Pass előfizetés
- Beszámítás! Apple iPad Pro 11 2024 1TB WiFi + Cellular tablet garanciával hibátlan működéssel
- AKCIÓ! EZÜST! RITKASÁG! Surface Pro 11 Qualcomm Snapdragon X Elite 16GB 512GB OLED 120Hz Gar!
- BESZÁMÍTÁS! ASRock B450M R5 2600X 16GB DDR4 500GB SSD 1TB HDD GTX 1650 4GB Zalman N5 CM 450W
- Telefon felvásárlás!! Xiaomi Redmi Note 13, Xiaomi Redmi Note 13 Pro, Xiaomi Redmi Note 13 Pro+
- iKing.Hu - Motorola Razr 50 Ultra Midnight Blue Használt, karcmentes állapotban 12 GB RAM / 512 GB
Állásajánlatok
Cég: FOTC
Város: Budapest