Find cells with today's date and copy asscoiated columns

[manos]

Hello,


I have a spreadsheet where various dates are in row
I require a vba code or macro that will do the following:
where the date in 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

[Bob Phillips]

Sub CopyData()Dim lastcol As Long
Dim nextcol As Long
Dim i As Long


    With ActiveSheet
    
        lastcol = .Cells(3, .Columns.Count).End(xlToLeft).Column
        For i = 1 To lastcol
        
            If .Cells(3, i).Value = Date Then
            
                nextcol = nextcol + 1
                .Range(.Cells(3, i), .Cells(3, i).End(xlDown)).Copy Worksheets("Sheet2").Cells(1, nextcol)
            End If
        Next i
    End With
End Sub

[manos]

problem in the first line

[Ken Puls]

Missed a hard return. Try this:

Sub CopyData()
Dim lastcol As Long
Dim nextcol As Long
Dim i As Long


    With ActiveSheet
    
        lastcol = .Cells(3, .Columns.Count).End(xlToLeft).Column
        For i = 1 To lastcol
        
            If .Cells(3, i).Value = Date Then
            
                nextcol = nextcol + 1
                .Range(.Cells(3, i), .Cells(3, i).End(xlDown)).Copy Worksheets("Sheet2").Cells(1, nextcol)
            End If
        Next i
    End With
End Sub

[manos]

Please can you send me a excel, PLEASE

[manos]

Missed a hard return. Try this:

Sub CopyData()
Dim lastcol As Long
Dim nextcol As Long
Dim i As Long


    With ActiveSheet
    
        lastcol = .Cells(3, .Columns.Count).End(xlToLeft).Column
        For i = 1 To lastcol
        
            If .Cells(3, i).Value = Date Then
            
                nextcol = nextcol + 1
                .Range(.Cells(3, i), .Cells(3, i).End(xlDown)).Copy Worksheets("Sheet2").Cells(1, nextcol)
            End If
        Next i
    End With
End Sub

ok. I found it. THANKS