ADD ITEM Button Vba Code

Hi,

I would like to have a button named "ADD ITEM". The button will be copy the value to another cell which named "Item Code" column. This column one of other column which represent details item purchase in invoice. The original value come from another search "code for item'. My question - how to copy to "item code" column with automatically when new value added there will be at new row in the same column.

Thanks.

Hi

Attached my invoice project for your reference. You can see button ADD ITEM is function to copy value M15 to B15. But I dont know to add more item that suppose to go to next row same column.

Thanks.

Hi.
Thanks for the reply , i think there is some misunderstanding here, what i am looking here is a vb macro code for ADD ITEM. As sample you have provided,item name is input by drop down list which I have problem using this feature due to drop down is not a searchable tools. I am using pivot filter for search item. Without any VB code, this pivot filter is powerful search that easily can search my item database which almost 100 item. That search will response to the Code box. All the item which tags with code number can add/input into Code no column and automatically show item description, price and others. The ADD ITEM button i have created as you can try, will copy the value from the Code box to Code num column. My Code is simple code to copy from Code box to Code num.

Set myrange1 = Range("B21")
Set myrange2 = Range("M15")


myrange1.Value = myrange2.Value


End Sub

But to add more item is not working caused the code is only will overwrite the 1st row not to go second row.

hope my explanation will help you understand

Thanks anyway

Thanks a lot..its really help...really appreciate it.

Hi..i have tried to lock the formula, but got error 1004,

debug line

For f = 41 To 21 Step -1
If Sheet1.Cells(f, 2) = vbNullString Then
rrow = f
End If
Next f
Sheet1.Cells(rrow, 2) = [M15] ->error

Range("C21:C41").WrapText = True
Range("C21:C41").EntireRow.AutoFit

Range("C12:C13").WrapText = True
Range("C12:C13").EntireRow.AutoFit

How can protect my formula and make this code working?
TQ

I think can ignore this...for now i just untick locked protection cell. and Its working, sorry for the post.i

Hi ,
Now i really stuck with my protected worksheet.I have made refresh button to refresh my pivot data. Its works, but its clash with Autofit code which enable in ADD ITEM to autofit all list row. I have tried to put some Allowcolumn and row code but it doesnt work.

With ActiveSheet
.Unprotect Password:="password"
.PivotTables(1).RefreshTable

.Protect Password:="password", _
AllowUsingPivotTables:=True
AllowFormatrow = True
AllowFormatcolumn = True


End With

End Sub

Attached my project excel for your reference. Protect pass:password.