The following line gives me 1004 error and I cannot understand why: searchValue.Offset(p, -5).Resize(b, -16).Borders.LineStyle = xlContinuous
Full code:
Full code:
VBA Code:
Sub imageCompare()
Dim dashB As Worksheet
Dim imageB As Worksheet
Dim findValue As Range
Dim searchValue As Range
Dim addMe As Range
Dim formatMe As Range
Dim ordrList As Range
Dim myarray As Variant
Dim j As Integer
Dim i As Integer
Dim y As Integer
Dim p As Integer
Dim n As Integer
Dim x As Integer
Dim b As Integer
Dim u As Integer
Set dashB = Sheet1
Set imageB = Sheet4
Set ordrList = Sheet3.Range("outdata")
myarray = ordrList
i = Evaluate("=COUNTA(Image!X:X)")
x = 0
For j = 1 To i
'Setting ID# on updated values
Set findValue = imageB.Range("X:X").Find(What:=myarray(j, 1), _
LookIn:=xlValues, lookat:=xlWhole)
'Using to match values to original launched data
Set searchValue = dashB.Range("X:X").Find(What:=myarray(j, 1), _
LookIn:=xlValues, lookat:=xlWhole)
'Find Number of Lines
y = findValue.Offset(0, -3).value
p = searchValue.Offset(0, -3).value
If y > p Then
b = y - p
For u = 1 To b 'insert # of new lines in order
searchValue.Offset(p, 0).EntireRow.Insert
Next u
searchValue.Offset(p, -5).Resize(b, -16).Borders.LineStyle = xlContinuous
End If