(24/10/2020, 23:13)kanakan52 yazdı:

(24/10/2020, 23:06)feraz yazdı:

 If kacinci > 1 Then

        MsgBox "ilgili veri bulundu", vbInformation, "mükerrer"

        Application.EnableEvents = False

        Cells(satir, 1).Value = Sayfa2.Cells(kacinci, 1).Value

        Cells(satir, 6).Value = Sayfa2.Cells(kacinci, 9).Value

        Application.EnableEvents = True

    End If

Allah razı olsun hocam, yine büyük bir  dertten kurtardın beni. Eğer kasmaz ise çok güzel olacak. Tekrar tekrar teşekkür ederim.

Sendende abey.Kasma felan yapmaz çünkü döngü yok

---

Yarın unutmazsam birde dictionary ve dizi ile yaparım örnek olması açısından.Tabii kodlar biraz uzar