I think the problem is that your first Pivot table (at A4) doesn't contain "Dates", it contains a string of characters that RESEMBLE a date.
If you try to change the date format to... say... Long Date... nothing happens. After you copy the table to cells, when you copy this string DOWN, Excel looks at the string, decides that it really must be a date, then changes the value to a date NUMBER. But the values you're using in the new table are all Date NUMBERS. So, the problem isn't that it's copying wrong. The problem is that the original string isn't the same as what you're looking for! I think you can fix it by changing the macro to be: If IsEmpty(Cells(i, 5)) Then Cells(i, 5).Value = Cells(i - 1, 5).Value Else Cells(i, 5).Value = Cells(i, 5).Value End If This will cause Excel to convert EACH value to a date number. Paul ----------------------------------------- “Do all the good you can, By all the means you can, In all the ways you can, In all the places you can, At all the times you can, To all the people you can, As long as ever you can.” - John Wesley ----------------------------------------- ________________________________ From: Darwin Chan <darwin.chankaw...@gmail.com> To: excel-macros@googlegroups.com Sent: Thu, January 5, 2012 4:42:57 AM Subject: $$Excel-Macros$$ VBA code for pasting date, not plain text Dear group, I have written a macro for recording data for customer transaction every hour within a day. First I refresh the pivot table and copy the data to another area for ease to lookup. However, I found the VBA code i use just paste the date with wrong format. This makes me cannot lookup the desire value. Could anyone help to improve my code? *Remarks: Procedure name is "sp" -- Darwin Chan darwin.chankaw...@gmail.com kw42c...@yahoo.com.hk -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com
