Sub Clearout()
Dim LastRow As Long
Dim i As Long

LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
Cells(i, "B").Value = Int(Cells(i, "A").Value * 48) / 48
Next i
Columns(2).NumberFormat = "hh:mm"
End Sub


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"sharad kumar" wrote in message
...
Hi, someone please provide me the code for following column in excel.
Like I have a column a and column b. In column a, I have time and in
column b, I have time in 0:30 minutes interval. So consolidating column
a into column b with half an hour difference. I want a macro or script
where data in colum B automatically comes with time distances and in the
same parameter with same slot (30 minutes)



a b
0:07 0:00
0:08 0:00
0:10 0:00
0:13 0:00
0:14 0:00
0:18 0:00
0:21 0:00
0:25 0:00
0:27 0:00
0:29 0:00
0:41 0:30
0:42 0:30
0:50 0:30
1:14 1:00
1:16 1:00
1:22 1:00
1:28 1:00
1:29 1:00
1:58 1:30
2:01 2:00


Please help me.

*** Sent via Developersdex http://www.developersdex.com ***