Új hozzászólás Aktív témák

• #36718 ThoLy csendes tag oke #36717

  Új Válasz 2017-12-07 15:06:06 #36718

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ThoLy

  csendes tag

  válasz oke #36717 üzenetére

  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 i

  A 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