Copy dates from one sheet to another in range if date is old than 11 months

[DanSMT]

I am having an issue pulling dates from one workbook.sheet to another workbook.sheet. I've been working through the code. not sure if this is close or not.

The due1st spreadsheet's name will change daily. Need the code to reflect that also.

Dim sh As Worksheet, lr As Long, rng As Range, sh2 As Worksheet, lr2 As Long, c As Range
Set sh = Workbooks("Training Matrix.xls").Worksheets("Current Emp") 'Edit sheet name - Source
Set sh2 = Workbooks("DUE1st" & "*" & ".xls").Worksheets("Sheet1") 'Edit Sheet name - Destination
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
Set rng = sh.Range("F6:BB400" & lr)
For Each c In rng
If DateValue(c.value) <= Workbooks("Training Matrix.xls").Worksheets("Current Emp Key").Cells("I2") Then
'DateValue(Date) Then
lr2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1
c.EntireRow.Copy sh2.Range("A" & lr2)
End If
Next

 

[GWteB]

You didn't mark your workbook for sharing so I'm not able to download it.

 

[DanSMT]

You didn't mark your workbook for sharing so I'm not able to download it.

Try this one.

 

[GWteB]

lLastRowSrc = oWsCurrEmp.Cells(Rows.Count, 6).End(xlUp).Row

Row count says 1048756. I believe its not finding the data.

I'm stumped. It should return the last occupied row in lLastRowSrc since there's data in column 6 (according to your GoogleDoc workbook). In case of no data at all, it should return 1, so this is a true mystery I'm not able to solve at present.

 

[DanSMT]

at glance it almost appears that it isnt detecting the sheet... but not sure... maybe has something to due with date's rather than numbers?

 

[GWteB]

You might consider to set up an (anonymized) workbook with all your code in it and make it downloadable (not just viewable). At distance I'm not able to check and without a representative workbook I cannot test.

 

[DanSMT]

got that part to move through i added this

owscurremp.activate

prior to

1lastrowsrc = owcurremp.cells(rows.count,1.end(xlup).row + 1

How now its hung up at

If DateValue(c.value) <= dtCompDate Then

 

[DanSMT]

You might consider to set up an (anonymized) workbook with all your code in it and make it downloadable (not just viewable). At distance I'm not able to check and without a representative workbook I cannot test.

I dont know how to do that

 

[GWteB]

Which part: replacing sensitive data with dummy data or sharing your workbook on GoogleDocs?

 

[DanSMT]

Which part: replacing sensitive data with dummy data or sharing your workbook on GoogleDocs?

sharing, or making it downloadable

 

[DanSMT]

The area i guess im struggling most in this code is below.

    Set rng = oWsCurrEmp.Range("F6:BB" & lLastRowSrc)
    For Each c In rng
        If DateValue(c.value) <= dtCompDate Then
            lLastRowDest = oWsDue.Cells(Rows.Count, 1).End(xlUp).Row + 1
            c.EntireRow.Copy oWsDue.Range("A" & lLastRowDest)
        End If
    Next

Not really understand what c is an how it relates to each individual cell. I see that it is grabing the correct start date though.