Run-Time error 1004 when clearing cells

[irrefutable14]

I'm scanning ID & Username into "column A1" the vba then moves the cursor to the right to "column b" finally down to
"A2,B2,etc.... But if I make an error of some sort and click on the cell to delete the ID or Username this Run-time error
'1004': Application-defined or object-defined error pops up? What can I do to get rid of it?

code:
Private Sub Worksheet_Change(ByVal Target As Range)
    MoveRight = MoveRight + 1
    If MoveRight < 2 Then
        Target.Offset(0, 1).Select
    Else
        Target.Offset(1, -MoveRight + 1).Select
        MoveRight = 0
    End If
End Sub

 

[irrefutable14]

If a number is updated in column a of sheet 1 it will look for that value and update it on sheet 2 column a

Dim CurrentCellValue As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
  Sheets("ASUS CHECKIN").Columns("A").Replace CurrentCellValue, Target.Value, , xlWhole, , , False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count = 1 Then CurrentCellValue = Target.Value
End Sub

 

[Joe4]

Assuming that code works correctly, maybe something like this:

Dim CurrentCellValue As Variant


Private Sub Worksheet_Change(ByVal Target As Range)
  
'   Make sure it only runs when data is inserted in a single cell
    If Target.Count > 1 Then Exit Sub
    
'   If value updated in column A, run this line of code
    If Target.Column = 1 Then
        Sheets("ASUS CHECKIN").Columns("A").Replace CurrentCellValue, Target.Value, , xlWhole, , , False
    End If

'   Only run when columns A or B are updated with a value
    If Target.Column <= 2 And Target <> "" Then
'       If column A was updated, move to column B in same row
        If Target.Column = 1 Then Target.Offset(0, 1).Select
'       If column B was updated, move to column A in next row
        If Target.Column = 2 Then Target.Offset(1, -1).Select
    End If
  
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Count = 1 Then CurrentCellValue = Target.Value
End Sub

 

[irrefutable14]

That works. Only issue is that the first scanned number is mirrored in all cells on sheet2 no matter what number is scanned. So thats progress. However I only need it to find a number and update it. for example
I scan 123456 then in sheet 2 it enters 123456 in column A & Cells a1, a2,a3,etc.

I need to scan in the numbers in the master column a1-b1, a2-b2 etc... Then if the master is updated Find said number within sheet 2 and replace it with the updated value.

sheet one sheet2
123456 is now 321654 123456 found & updated 321654

Thanks soooo much for your help

 

[Joe4]

Unfortunately, I really cannot test any "scanning" part. But just so I have a full understanding of how this should all work, can you lay out an actual, simple example of what you "ASUS CHECKIN" sheets looks like, and what exactly should happen?

 

[irrefutable14]

Here's the entire sheet(s) name "Assign ASUS HERE" & "ASUS CHECKIN".
What I'm trying to get accomplished is on "Assign ASUS HERE" I want to scan numbers into columns A2-B2,then have it automatically
go down a row; A3-B3.. So on. And if a value in "Assign ASUS HERE" Column A is updated. On sheet "ASUS CHECKIN" I'd like it to auto update.

On "assign Tablets HERE" & "IPAD CHECKIN-IN" I'd like Column A in "assign tablets here" to do the same with with ONLY the auto update if there are changes made to column A in "ipad checkin-in"
I thought I just needed a code not, a code that was tailored. Here is the entire workbook.

https://www.dropbox.com/s/2qv3d4n2kt...t123.xlsm?dl=0