Button to add data from 1st Sheet to 2nd Sheet based on criteria

[rizalyaakub]

I am rather new at VBA. Mostly learning it via youtube video.

I need a little guidance for VBA code that would allow me,

1. When I click the "UPDATE RECEIPT" button, it adds / updates value marked as A (in the RECEIPT sheet) to ROW C in the DATABASE sheet based on corresponding Invoice number marked as B

I found a previous posting online and tried using it as based but failed miserably.

Option Explicit

Dim x As Integer

Sub Button1_Click()

x = 1

'this will find the column that matches the date and stores that as the copy location.
While Sheets("Sheet2").Cells(1, x).Value <> Sheets("Sheet1").Range("L8")
    x = x + 1
Wend


'this portion copies the data to the designated coordinates found by the first portion and delete the information from L8 and L11.
Sheets("Sheet2").Cells(2, x).Value = Sheets("Sheet1").Range("L11").Value
Sheets("Sheet1").Range("L8").Value = ""


End Sub

Really need your help

 

[rizalyaakub]

Accidently left my VB code. >

Sub RecordReceipt()

x = 1

'this will find the column that matches the date and stores that as the copy location.
While Sheets("Sheet10").Cells(1, x).Value <> Sheets("Sheet9").Range("J15")
    x = x + 1
Wend


'this portion copies the data to the designated coordinates found by the first portion and delete the information from L8 and L11.
Sheets("Sheet10").Cells(2, x).Value = Sheets("Sheet9").Range("Receipt!H5").Value
Sheets("Sheet10").Range("").Value = ""


End Sub