Szia!
Ott keresd a problémát, hogy nézd meg, hogy működik a keresés, amikor kézzel keresel.
Amikor minden előforduláson átmentél a „Következő” gombbal, akkor elkezdi a keresést elölről, és újra az első találatra ugrik. Ezért a .find – .findnext ciklusoknál azt csinálják, hogy megjegyzik az első találat (.find) celláját, és a ciklus addig fut, amíg a .findnext újra az elsőnek megtalált cellára ugrik.
Itt van két link, tanulmányozd:
http://www.ozgrid.com/forum/showthread.php?t=168157
http://www.ozgrid.com/forum/showthread.php?t=37604
Még okozhat esetleg további problémát az, hoyg a találatok A oszlop végére írásánál SELECT-et használsz. meg kéne próbálni select nélkül, egyből beleírni.
Cells(ActiveCell.CurrentRegion.Cells(ActiveCell.CurrentRegion.Cells.Count).Offset(1, 0).Row, ActiveCell.Column).Value = keresett.Address
Imre
