Macro to paste today's date on last column of specific rows?

[karthick019]

Hello Experts,

I have a situation where there are few rows for which I should paste date from Workings column to the last column of that Row.

Refer below example for clear understanding,

[TABLE="width: 1000"]
[TR]
[TD]ID
[/TD]
[TD]1st Case
[/TD]
[TD]2nd Case
[/TD]
[TD]3rd Case
[/TD]
[TD]4th Case
[/TD]
[TD]5th Case
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]
[/TD]
[TD]Working
[/TD]
[/TR]
[TR]
[TD]A1
[/TD]
[TD]01/05/2016
[/TD]
[TD]15/06/2016
[/TD]
[TD]27/09/2016
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]27/09/2016
[/TD]
[/TR]
[TR]
[TD]A2
[/TD]
[TD]04/03/2016
[/TD]
[TD]17/07/2016
[/TD]
[TD]23/07/2016
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]A3
[/TD]
[TD]08/05/2016[/TD]
[TD]16/06/2016
[/TD]
[TD]29/07/2016
[/TD]
[TD]11/08/2016
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]A4
[/TD]
[TD]03/02/2016
[/TD]
[TD]27/09/2016
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]27/09/2016
[/TD]
[/TR]
[TR]
[TD]A5
[/TD]
[TD]07/03/2016
[/TD]
[TD]06/04/2016
[/TD]
[TD]03/08/2016
[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[/TABLE]


As you could see in the above example, I need a macro that will paste the dates from Working Column to the respective last column of the row.

Please do let me know if you are still not clear on the question and I will try to explain better.

Would be very helpful if I could find a macro for this.

Thank you in advance.


Regards,
Karthick. S

 

[Joe4]

What column is your "Working" column?
Is it column G or something else?
Does that ever change?

What row does your data start on?
Is the ID column always column A?

 

[Joe4]

EDIT:

Oh wow, I misread that and went totally backwards on this, trying to populate the working column from the last column with data, if the last date is today.
I think I need to get some morning caffeine!

 

[Peter_SSs]

It appears to me that your "working" column is well to the right of your "Case" columns. If that is so, then perhaps this would do what you want.
Adjust the "J" values in my code to match your "working" column.

Sub CopyDate()  
  Dim c As Range
  
  For Each c In Range("J2", Range("J" & Rows.Count).End(xlUp))
    If IsDate(c.Value) Then c.End(xlToLeft).Offset(, 1).Value = c.Value
  Next c
End Sub

 

[karthick019]

What column is your "Working" column?
Is it column G or something else?
Does that ever change?

What row does your data start on?
Is the ID column always column A?

Lets assume that my "working" Column is "Z"

I want the data's in Column Z to be pasted in their corresponding last column on the row (CTRL+LEFT from "Z") respectively.

Kindly let me know if I am clear enough.

I'm sorry but I am finding it difficult to explain the scenario.

 

[Joe4]

Take a look at Peter's solutions and see if it works for you.

 

[karthick019]

I tried using both macro's and didn't work

 

[karthick019]

Can the above screenshot give you more clear view of the scenario?

 

[Joe4]

Note that I mentioned my original code was backwards, and have since removed it. Peter's original code got a little messed up. I am not sure why, but when posting code, sometimes it blends the first two lines of code together. I went back to his code and fixed it.

If your working column is Column Z, just edit Peter's code like this:

Sub CopyDate()

    Dim c As Range
  
    For Each c In Range("Z2", Range("Z" & Rows.Count).End(xlUp))
        If IsDate(c.Value) Then c.End(xlToLeft).Offset(, 1).Value = c.Value
    Next c
    
End Sub

If that doesn't work, please let us know exactly what is happening, and confirm that your date column are really blank, and not formulas returning nothing.

 

[Peter_SSs]

Peter's original code got a little messed up. I am not sure why, but when posting code, sometimes it blends the first two lines of code together. I went back to his code and fixed it.

Thanks Joe. I often see that issue with other people's code but if mine was like that I think it is the first time ever it has happened to me. Quite surprised! Anyway, thanks again for the repair.