Sayfa2 nin kod bölümüne alttaki kodu ekleyin abey.C3 ve C5 değişince kod çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim bulSat As Range, bulSut As Range

    If Target.Address(0, 0) = "C3" Or Target.Address(0, 0) = "C5" Then

        With ThisWorkbook.Sheets("Sayfa1")

            Set bulSut = .Rows("2:2").Find([c3], , xlValues, 1)

            Set bulSat = .Range("B:B").Find([c5], , xlValues, 1)

            Range("C4,c6") = ""

            If Not bulSat Is Nothing And Not bulSut Is Nothing Then

                [C4] = .Cells(3, bulSut.Column).Value

                [C6].Value = .Cells(bulSat.Row, bulSut.Column)

            End If

        End With

    End If

    Set bulSat = Nothing: Set bulSut = Nothing

End Sub