Macro - code for ranges urgent!!!

[rjc_29]

Hi

I have created a macro which will move columns and put them where i
want them in my final spreadsheet and in 2 particular columns b & d i
have a written in the macro to convert time into an integer.

However, i need the macro to work just on the cells containing info in
the particular columns, because after it runs i end up with loads of
zero's in the columns. There is not a typical range as this is
dependent upon the number of records in the work sheet.

I would appreciate any help.

this is the relevant part of the code:

range("AP2").Select
ActiveWindow.ScrollColumn = 1
range("A2").Select


range("B:B,D").Select
range("D1").Activate

Dim c As range
For Each c In Selection
If IsNumeric(c.Value) Then
c.Value = Int(c.Value * 24) * 100 + _
Int(60 * (c.Value * 24 - Int(c.Value * 24)))
c.NumberFormat = "0000"
End If
Next c
End Sub

 

[Frank Kabel]

Hi
replace the line
If IsNumeric(c.Value) Then
with
If IsNumeric(c.Value) and c.value<>"" Then

 

[Bob Phillips]

And removal of extraneous code

Dim c As Range
For Each c In Range("B:B,D")
If Not IsEmpty(c.Value) Then
If IsNumeric(c.Value) Then
c.Value = Int(c.Value * 24) * 100 + _
Int(60 * (c.Value * 24 - Int(c.Value * 24)))
c.NumberFormat = "0000"
End If
End If
Next c

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[rjc_29]

Frank

Thanks for your help - it worked!

regards

Rom