Kod:
Set bul = ThisWorkbook.Sheets("Yedek").Range("C:C").Find(ListView1.ListItems(i), , , 1)
If Not bul Is Nothing Then ListView1.ListItems(i).SubItems(3) = bul.Offset(0, -2).Value
Set bul = Nothing
bu şekilde datayı 20.000 satırlık "Yedek" sayfasından çok kısa sürede buluyor.