(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.