Find cells with today's date and copy asscoiated range

Hello,

I have a spreadsheet where various dates are in column T.

I require a vba code or macro that will do the following:

Select all the rows in the range ("T:BP") where the date in T is today's date. Then copy the selection

This must be simple but for some reason i am just not getting it!

Would appreciate any help

Maybe:

Sub paulary30()

Dim lr As Long
Dim rcell As Range

lr = Cells(Rows.Count, 20).End(xlUp).Row

For Each rcell In Range("T2:T" & lr)

    If rcell = Date Then
    
        Range(rcell, rcell.Offset(, 48)).Copy Sheets("Sheet2").Range("T" & Rows.Count).End(3)(2)
        
    End If
    
Next rcell

End Sub

Untested, try on a copy first.

Originally Posted by JOHN H. DAVIS

Maybe:

Sub paulary30()

Dim lr As Long
Dim rcell As Range

lr = Cells(Rows.Count, 20).End(xlUp).Row

For Each rcell In Range("T2:T" & lr)

    If rcell = Date Then
    
        Range(rcell, rcell.Offset(, 48)).Copy Sheets("Sheet2").Range("T" & Rows.Count).End(3)(2)
        
    End If
    
Next rcell

End Sub

Untested, try on a copy first.

Hi,

Thanks for your response

I tried the code with my sheet but nothing is copying

What does the 20 refer to in

lr = Cells(Rows.Count, 20).End(xlUp).Row

When I get home, I will upload an example as i cannot do it from work

Thanks

I just tested it and it worked on the sample I created. I used Sheet 2 for a destination sheet since you didn't mention a destination in your thread. Is there data filled in in Column T from the top row to the last row? It can be amended to another row if needed.

Hi,

Column T has dates in it. I want to select all the cells in T which have today's date in them and all the cells along those rows up to column BP

I don't need a paste function as I already have a paste macro which does some specific things.

Much appreciated

I think I need something which does something like

Look down column T
Find all the cells with today's date
select those cells and all the cells to the right of them up to column BP
Copy all the selected cells

The 20 refers to the Column Number (T). I didn't test it can you provide a sample?

When I get home, I will upload an example as i cannot do it from work

Thanks