Hi there,
Been a while since i have been here to bring up a quandry... but it had to happen at some point
Nutshell sum up, I'm trying to streamline some code where it will check a row of data on one page, and another page to see if it already has that data. If it doesn't, it's supposed to go through and copy the row to the respective workbook.
I have a feeling I am missing something incredibly simple, but again, extra eyes never hurts.
Thanks for the help in advance
Dim i As Integer
Dim k As Integer
Dim v As Integer
Dim qc As Integer
Dim Chk As Long
Dim eRow As Long
Dim sht2 As Worksheet
Application.ScreenUpdating = False
k = 2
With sht1
For v = 1 To .Cells(Rows.Count, "A").End(xlUp).Row Step 1
If .Cells(k, "H") = "Darla" Then Set sht2 = Worksheets("Darla")
If .Cells(k, "H") = "Chris" Then Set sht2 = Worksheets("Chris")
If .Cells(k, "H") = "Jim" Then Set sht2 = Worksheets("Jim")
If .Cells(k, "H") = "Kris" Then Set sht2 = Worksheets("Kris")
If .Cells(k, "H") = "Glenn" Then Set sht2 = Worksheets("Glenn")
If .Cells(k, "H") = "Jen" Then Set sht2 = Worksheets("Jen")
eRow = sht2.Cells(Rows.Count, "A").End(xlUp).Row
If sht1.Range("A" & k) <> sht2.Range("A" & v) Then
sht1.Rows(k).Copy Destination:=Worksheets(sht2).Rows(eRow)
End If
k = k + 1
Next
End With
Application.ScreenUpdating = True
Thanks again for everything and look forward to the response soon.