automatically data from one worksheet to another worksheet

[z-eighty2]

Hi,

I need a formula OR VBA Code

I am working on two different worksheets. In both worksheets I have 5 columns " Date" , " Customer Name" , "Invoice number", "payment Received", "Amount Receivable".

I want when in my main worksheet #1 when any Payment is received for a particular invoice . The data of only column "Payment Received" should be automatically update to second sheet row by looking/searching that particular " invoice number " .

Any formula or VBA please

Plz Help..

Thanks

[xladept]

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then

Dim w2 As Worksheet, INo As String, Pay As Single, F As Range
Set w2 = Worksheets("Sheet2"): INo = Target.Offset(0, -1)
        Set F = w2.Range("C:C").Find(INo)
        If IsNumeric(F.Offset(0, 1)) Then
        Pay = F.Offset(0, 1): Pay = Pay + Target
        Else
        Pay = Target: End If
        F.Offset(0, 1) = Pay

End If: End Sub