Need help with Visual Script Code

[sharad kumar]

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.

 

[Bob Phillips]

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)