Select a specific column till it identifies blank cell and to format

[k1234y]

Hi Guys,
Am new to this forum.

Its my first post. Kindly help me out.

I need to select the column with complete or partial name known and to format it to 'text' or 'currency'.. How can i write a macro for this ?

Below code works to some extent.. but need not select and format complete column, need it only to do till null cells are identified..
Also mentioned the details of formatting i need in the attachment.. Thanks a lot guys !!

Sub Macro3()
Dim i As Integer, cfindmacro As Range
Set cfindmacro = ActiveSheet.UsedRange.Cells.Find(what:="name", lookat:=xlWhole)
i = cfindmacro.Column
Columns(i).NumberFormat = "000-000-000"
Set cfindmacro = ActiveSheet.UsedRange.Cells.Find(what:="salary", lookat:=xlWhole)
i = cfindmacro.Column
Columns(i).NumberFormat = "$000,000,00#.00"
End Sub

[dangelor]

Possibly something along the lines of...

Please Login or Register  to view this content.

[k1234y]

Hi Dande, thanx for the answer.. but I need to iterate this to complete work sheet, not the first occurence alone.. pls check the attached sheet, scroll it n see plz..

[k1234y]

With Cells.SpecialCells(xlCellTypeConstants, 23)
Set Cell = .Find("emp_name")
Range(Cell.Offset(1, 0), Cell.End(xlDown)).NumberFormat = "@"
End With

I need to iterate the above process / need this process to being from the cell i select !

[dangelor]

Try...

Please Login or Register  to view this content.