format column as text, and replace all 1's as 0001

Qroozn · May 2nd, 2002, 10:56 PM

how can i on opening a macro replace all the 1's in column k with reformatting as text and then 0001. The number of 1's can very from 25 lines to 2000 lines. Its a csv file and currently on opening its changing the cells from text to general.

URGENT assistance is required. thankyou all

Qroozn · May 2nd, 2002, 11:32 PM

i've done it using the following elcheapo formula, thanks anyways.

Sub quickreplace()
Dim c As Range
With ActiveSheet
Columns("k:k").Select
Selection.NumberFormat = "@"
For Each c In .Columns(11).Cells
If c.Value = "1" Then 'If the cell above is not the same
c.Value = "0001"
Else
End If
Next c
End With
End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 2nd, 2002, 10:56 PM	#1
Qroozn Board Regular Join Date: Mar 2002 Location: Sydney/Brisbane , Australia Posts: 539	how can i on opening a macro replace all the 1's in column k with reformatting as text and then 0001. The number of 1's can very from 25 lines to 2000 lines. Its a csv file and currently on opening its changing the cells from text to general. URGENT assistance is required. thankyou all

May 2nd, 2002, 11:32 PM	#2
Qroozn Board Regular Join Date: Mar 2002 Location: Sydney/Brisbane , Australia Posts: 539	i've done it using the following elcheapo formula, thanks anyways. Sub quickreplace() Dim c As Range With ActiveSheet Columns("k:k").Select Selection.NumberFormat = "@" For Each c In .Columns(11).Cells If c.Value = "1" Then 'If the cell above is not the same c.Value = "0001" Else End If Next c End With End Sub