From sheet 1 copy selected row then search sheet 2 For same, And if the first range matched then update Sheet 2. if no match then paste on next empty row
sht1
row A16 THRU K16
SHT2
Find Match from sheet 1 in sheet 2
If A16 thru K16 match update these only, Leave L16 Alone,
If no Match copy in next empty Row
i have this now..
'THIS INPUTS TOOLS
Sub Move_INPUT_INVENTORY()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Dim UserRange As Range
Set copySheet = Worksheets("INPUT")
Set pasteSheet = Worksheets("INVENTORY")
On Error GoTo Canceled
Set UserRange = Application.InputBox _
(Prompt:="Range to cut:", _
Title:="Range cut", _
Default:=Selection.Address, _
Type:=8)
UserRange.Copy
UserRange.Select
Canceled:
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Selection.EntireRow.Delete
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Reply
