CXomparing Job Numbers
 

The macro below is meant to go through a cell (Job Number) in A column,
compare it to B1:B17 and if the number doesn't exist, it will transfer the
number along with other details to Sheet 3, doesn't work- I'm clearly missing
something, I would greatly appreciate someone's help, thanks...


Sub mat()
For i = 1 To 10
If IsError(match(Cells(i, 1), "b1:b17", 0)) Then
Worksheets("Sheet1").Cells(i, 1).EntireRow.Copy
Destination:=Worksheets("Sheet3").Cells(i, 1)

End Sub

CXomparing Job Numbers
 

Hi Teresa,

Try the following adaptation:

Sub mat()
Dim i As Long
Dim j As Long

j = 1
With Sheets("Sheet1")
For i = 1 To 10
If IsError(Application.Match(.Cells(i, 1), _
.Range("b1:b17"),
0)) Then
.Cells(i, 1).EntireRow.Copy _
Destination:=Worksheets("Sheet3").Cells(j,
1)
j = j + 1
End If
Next
End With
End Sub


---
Regards,
Norman



"teresa" wrote in message
...
The macro below is meant to go through a cell (Job Number) in A column,
compare it to B1:B17 and if the number doesn't exist, it will transfer the
number along with other details to Sheet 3, doesn't work- I'm clearly
missing
something, I would greatly appreciate someone's help, thanks...


Sub mat()
For i = 1 To 10
If IsError(match(Cells(i, 1), "b1:b17", 0)) Then
Worksheets("Sheet1").Cells(i, 1).EntireRow.Copy
Destination:=Worksheets("Sheet3").Cells(i, 1)

End Sub

CXomparing Job Numbers
 

Hi Teresa,

Word has caused problems, so here is the code again:

Sub mat()
Dim i As Long
Dim j As Long

j = 1
With Sheets("Sheet1")
For i = 1 To 10
If IsError(Application.Match(.Cells(i, 1), _
.Range("b1:b17"), 0)) Then
.Cells(i, 1).EntireRow.Copy _
Destination:=Worksheets("Sheet3").Cells(j, 1)
j = j + 1
End If
Next
End With
End Sub


---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Teresa,

Try the following adaptation:

Sub mat()
Dim i As Long
Dim j As Long

j = 1
With Sheets("Sheet1")
For i = 1 To 10
If IsError(Application.Match(.Cells(i, 1), _

.Range("b1:b17"), 0)) Then
.Cells(i, 1).EntireRow.Copy _
Destination:=Worksheets("Sheet3").Cells(j,
1)
j = j + 1
End If
Next
End With
End Sub


---
Regards,
Norman



"teresa" wrote in message
...
The macro below is meant to go through a cell (Job Number) in A column,
compare it to B1:B17 and if the number doesn't exist, it will transfer
the
number along with other details to Sheet 3, doesn't work- I'm clearly
missing
something, I would greatly appreciate someone's help, thanks...


Sub mat()
For i = 1 To 10
If IsError(match(Cells(i, 1), "b1:b17", 0)) Then
Worksheets("Sheet1").Cells(i, 1).EntireRow.Copy
Destination:=Worksheets("Sheet3").Cells(i, 1)

End Sub