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,

ID	1st Case	2nd Case	3rd Case	4th Case	5th Case				Working
A1	01/05/2016	15/06/2016	27/09/2016						27/09/2016
A2	04/03/2016	17/07/2016	23/07/2016
A3	08/05/2016	16/06/2016	29/07/2016	11/08/2016
A4	03/02/2016	27/09/2016							27/09/2016
A5	07/03/2016	06/04/2016	03/08/2016

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.