Excel from VB, formatting cells 3

[petermeachem]

Can't see how to do this.
I have

Set vbExcel = CreateObject("Excel.Application&quot
With vbExcel
.WorkBooks.Add
With .ActiveWorkBook

.Sheets(1).Range("A1&quot = "Customer"

etc etc

End With
End With

I need to do two things
1) Format cells E1:E50 as Currency
I've been struugling away for a couple of hours with things like .Range("E1:E5&quot.NumberFormat = "currency" and only get error messages.
2) Put a few formula in. For instance set a cell to SUM("E1:E5&quot

I haven't a clue what I'm doing here as have not had to do this before.

Could someone enlighten me?

http://www.accuflight.com

http://www.lettersdirect.co.uk

http://www.ourhouseinportugal.co.uk/

 

[jsaliers]

Try this:

.Range("E1:E5&quot.NumberFormat = "$#,##0.00"

Hope this helps you!

Jon

 

[johnwm]

When I have a puzzle with Excel I usually record a macro, then hack the code. In this case, try:


Sub MakeCurr
Range("E1:E50&quot.Select
Selection.NumberFormat = "$#,##0.00"
End Sub


Sub SetFormula

Worksheets("Sheet1&quot.Range("A1&quot.Formula = "=SUM($A$4:$A$10)"
End Sub

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

 

[petermeachem]

Thanks to both of you. All sorted. Getting adventurous now and playing around with fonts and shading.

http://www.accuflight.com

http://www.lettersdirect.co.uk

http://www.ourhouseinportugal.co.uk/

 

[johnwm]

You're welcome & thanks!

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

 

[jgarry]

Thanks you helped me also. May 25,2005 thanks for your post. It was just what I was looking for.

Johnwm and jsaliers