format column in exel spreadsheet 1

[butchkmd]

I need to change the format of a column to "number" from "general" and have not been able to get it so far. Here is the code any suggestions?

sht.Range("d:d&quot.ColumnWidth = 15
sht.Range("D3&quot.Value = "CLAIM #"
sht.Range("D3&quot.Font.Bold = True
sht.Range("D3&quot.Font.Size = 11
sht.Range("D&quot.FormatConditions.NumberFormat = "Number"

Thanks,
Matt

 

[DaleWatson123321]

Hi Matt,

Try this...

Sub Format_Sheet()
sht = ActiveSheet.Name
Worksheets(sht).Range("d:d&quot.ColumnWidth = 15
Worksheets(sht).Range("D3&quot.Value = "CLAIM #"
Worksheets(sht).Range("D3&quot.Font.Bold = True
Worksheets(sht).Range("D3&quot.Font.Size = 11
Worksheets(sht).Columns("D&quot.Select
Selection.NumberFormat = "0_);(0)"
End Sub

Hope it helps. Please advise as to how you make out.

Regards, ...Dale Watson dwatson@bsi.gov.mb.ca

 

[butchkmd]

the formatnumberline did the trick but the select line got an error. I made it read this and it worked...


Sub Format_Sheet()
sht = ActiveSheet.Name
Worksheets(sht).Range("d:d&quot.ColumnWidth = 15
Worksheets(sht).Range("D3&quot.Value = "CLAIM #"
Worksheets(sht).Range("D3&quot.Font.Bold = True
Worksheets(sht).Range("D3&quot.Font.Size = 11
Worksheets(sht).Columns("D&quot.NumberFormat = "0_);(0)"
End Sub