Assigning & Formatting via V/B. (Excel 2003)

[elliott740]

I am using the following code and it works just fine but is there a better way to do it? Can I do the assignment and the formatting in one step?

[For MthCtr = QtrStart To BwCol Step 4
Worksheets(WorksheetName).Cells(RowCounter, 12).Value = Worksheets(WorksheetName).Cells(RowCounter, 12).Value + Worksheets("Sales_Query1").Cells(LoopCounter, MthCtr).Value 'QTD Sales
Worksheets(WorksheetName).Cells(RowCounter, 13).Value = Worksheets(WorksheetName).Cells(RowCounter, 13).Value + Worksheets("Sales_Query1").Cells(LoopCounter, MthCtr + 1).Value 'QTD Budget
Worksheets(WorksheetName).Cells(RowCounter, 14).Value = Worksheets(WorksheetName).Cells(RowCounter, 14).Value + Worksheets("Sales_Query1").Cells(LoopCounter, MthCtr - 48).Value 'QTD LY Sales
Next MthCtr
With Worksheets(WorksheetName)
.Range("L7:N14").NumberFormat = "$#,##0_);($#,##0)"
End With

 

[Norie]

As far as I can see you are copying between non-contiguous ranges.

So I don't think you can do the copying and formatting at the same time, not without a fair bit more code.

Do you really need/want to do that anyway?

The formatting is being applied in one go at the end.

 

[elliott740]

If I did it on a one for one basis (as I am doing the assigning cell by cell) could it be done using one statement or would I have to assign it in one line and then format it in the next line?