Select date from cell with m/d/yyyy h:mm format

mona_upm84 · August 7th, 2008, 08:39 PM

Hi all,

I need some help about my new task... I need to transfer whole column A of Sheet 1 into column A of Sheet 2. The problem is all data in Column A Sheet 1 is formatted as "m/d/yyyy h:mm".

For example for A1(Sheet1) = 07/06/2008 5:30:00 AM.
And I need this information (only time which is 5:30:00 AM) to be print at A1(Sheet 2). Somebody help me.....

Regards,
Mona

Shasur · August 8th, 2008, 01:20 AM

Hi Mona

Can you try the following?

Sub DFormat()

Sheets(2).Range("A1").Value = Format(Sheets(1).Range("A1").Value, "h:mm AM/PM")

End Sub

Cheers
Shasur

http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

mona_upm84 · August 10th, 2008, 05:58 PM

Thanks Shasur,

It work!!! it helps lots.... thank you :D