View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
ndm berry[_2_] ndm berry[_2_] is offline
external usenet poster
 
Posts: 13
Default Copying cells from one workbook to another.

I am currently using this code to copy from one workbook to another.

Set buswkbSource = Workbooks.Open("J:\business.csv")
Set buswksSource = buswkbSource.Sheets("business")
Set busrngSource = buswksSource.Cells
Set buswkbDestination = ThisWorkbook
Set buswksDestination = buswkbDestination.Sheets("business")
Set busrngDestination = buswksDestination.cells
busrngSource.Copy busrngDestination
Workbooks("business.csv").Close

The problem is that in column "M" of the source workbook is a list of dates.
I am using the UK date format, ie. 5th April 2005 as 5/4/05, unfortunately
the cells are copied using the US date format ie. 4/5/05 or as text if the
date is say 30th April 2005. PLease help!