Need help with a macro to look up today's date in a file in a specific sheet & return back values in specific cells within that row

[ujjavaldave]

Hi

I have several files which I need to run a report for, I'm looking for a macro which can look up the date in Column "V", in workbook xyz worksheet1 & return back values in column A,B,D of the same row.

Thanks in advance

 

[TheCman81]

Is the values you're looking up on the same "Sheet" as the date you are looking for? I assume if this is true you want the values from ABD to show in WXY?

Can you show a copy of your workbook or an example of what it looks like/

 

[ujjavaldave]

Hi I'm sorry I don't have a copy of the workbook available as it's on my works shared drive.

I'll try & explain what I'm trying to achieve to give some more clarity.

I have 4 workbooks which have 2 main sheets where data get's input in daily, workbook A, B, C, D

All of workbooks have a column where the current date is input most likely in different columns.

I've created a 5th workbook to run a report for the work which was done for the current day, so in the 5th workbook I have 4 sheets titled A,B,C,D after my 4 workbooks

What the macro needs to do is Identify the current date in workbook A, sheet1 & return back values from the same row in column A, B, D to my 5th workbook in the respective sheet.

& it has to repeat the same steps in all for of the workbooks

I'll try & get a copy of the file from work so that it's a bit easier to explain

Thanks

 

[ujjavaldave]

Hi

Below is a screen shot of the headings in my excel file

 

[mrmmickle1]

Sub TodaysRows()
'Move Rows in Sheet1 to worksheet called New
Dim totalrows As Long, row As Long
Cells.Sort key1:=Range("A2")
totalrows = ActiveSheet.UsedRange.Rows.Count

For row = totalrows To 1 Step -1
If (Cells(row, 22).Value = Date) Then
Rows(row).Copy Sheets("NEW").Range("A65536").End(xlUp).Offset(1)
End If
Next row
End Sub

I'm not sure what you are asking. This code should identify today's date in column V as you said and then copy each row with that date in column V to a workbook called New or whatever you want depending on the value. Does this help at all?

 

[ujjavaldave]

Dear Mr MMickle

I tried your code & I get the error as mentioned below

Run-time error '1004':
This operation requires the merged cells to be identically sized

What I'm after is that I have Column "V" where the current date is inputted in my workbook, so for eg:- if the macro finds today's date in cell "V3" I want the data which is in Cells "A3, C3 & T3" to be populated in my report file which is a separate file all together

Also if someone can assist me on how to display an image of my file onto this blog it would be great.

Regards

 

[ujjavaldave]

Please Help!!!!!!!