T4471_Using Application Match In Worksheet Change Template

https://excel-egy.com/forum/t4471
---------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub

    If Target.Row > 9 Then
        If Target.Column = 11 Or Target.Column = 13 Then
            Dim x, y, sh As Worksheet
            Set sh = ThisWorkbook.Worksheets("CusPay")
            x = Application.Match(Cells(Target.Row, 13).Value2, sh.Columns(1), 0)
            If Not IsError(x) Then
                y = Application.Match(Cells(Target.Row, 11).Value2, sh.Rows(1), 0)
                If Not IsError(y) Then
                    sh.Cells(x, y).Value = Cells(Target.Row, 9).Value
                End If
            End If
        End If
    End If
End Sub