Still not working here, get exactly the same result...

I truly dont understand this.

Why only a couple cells are affected??

On Jul 12, 3:27*pm, Dave Peterson wrote:
This is just assigning the values. *It doesn't touch the format.

Since you don't want to do copy|paste in your code, you could try this:

Dim SourceRng As Range
Dim DestCell As Range

With Sheets("Settings")
* *Set SourceRng = .Cells(10, TempWeekRange).Resize(6, 1)
* *Set DestCell = .Cells(3, TempWeekRange)
End With

With SourceRng
* *DestCell.Resize(.Rows.Count, .Columns.Count).NumberFormat = .NumberFormat
* *DestCell.Resize(.Rows.Count, .Columns.Count).Value = .Value
End With

==========
But I think you're in for a disappointment. *Most macros that do anything will
kill the clipboard. *This did for me.





" wrote:

Hi,

I know about the copy and paste, but why

Sheets("Settings").Range(TempWeekRange + "3" + ":" + TempWeekRange +
"8").Value = *Sheets("Settings").Range(TempWeekRange + "10" + ":" +
TempWeekRange + "15").Value

doesnt work when both ranges have the same format??

On Jul 12, 1:47 pm, Dave Peterson wrote:
You can.

But this isn't doing any copy or paste.

Record a macro when you do it manually and you'll have the code you need.

" wrote:

On Jun 29, 3:14 pm, " wrote:
Sorry I meant:

*Sheets("Settings").Range(TempWeekRange + "3").Value = _
*FORMAT(Sheets("Settings").Range(TempWeekRange + "10").Value,"dd/mmm/
yyyy")

Why cant I copy between the range and keep the date format without
excel messing it up?

--

Dave Peterson

--

Dave Peterson