I was able to do a work around: instead of using the ROW number i used the SKU number (unique to each entry)
Private Sub CommandButton3_Click()
Dim strFind As String 'what to find
Dim firstAddress As String
Dim rSearch As Range 'range to search
Set rSearch = Sheet1.Range("D:D")
Dim f As Integer
strFind = Me.SKU.Value 'what to look for
With rSearch
Set C = .Find(strFind, LookIn:=xlValues)
If Not C Is Nothing Then 'found it
C.Offset(0, 1).Value = Me.VIP.Value
End If
End With
MsgBox "Customer details updated"
End Sub
I would still very much like to know how to work this out via just the rows address.
Bookmarks