Hi
I have the following code which first of all gets the column number, e.g. 5 and then I want to say loop through column 5 and affect numeric cells in column 5 only?
any ideas much appreciated
Richey
Dim Bits As Double
Dim col As Integer
'Sheets("May-July").Select
col = ActiveCell.Column
MsgBox col
For Each cell_in_loop In ?????
'For Each cell_in_loop In Range("E8:E100")
If Not IsNull(cell_in_loop.Value) And IsNumeric(cell_in_loop.Value) And Not IsEmpty(cell_in_loop.Value) And cell_in_loop.Value <> "" Then
With cell_in_loop
Bits = cell_in_loop.Value
Bits = Bits / 1024
cell_in_loop.Value = Bits
End With
Else
End If
Next
I have the following code which first of all gets the column number, e.g. 5 and then I want to say loop through column 5 and affect numeric cells in column 5 only?
any ideas much appreciated
Richey
Dim Bits As Double
Dim col As Integer
'Sheets("May-July").Select
col = ActiveCell.Column
MsgBox col
For Each cell_in_loop In ?????
'For Each cell_in_loop In Range("E8:E100")
If Not IsNull(cell_in_loop.Value) And IsNumeric(cell_in_loop.Value) And Not IsEmpty(cell_in_loop.Value) And cell_in_loop.Value <> "" Then
With cell_in_loop
Bits = cell_in_loop.Value
Bits = Bits / 1024
cell_in_loop.Value = Bits
End With
Else
End If
Next