View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Peter Atherton[_4_] Peter Atherton[_4_] is offline
external usenet poster
 
Posts: 6
Default VBA question involving numerous additions

Hello Mason

You should copy your data into another sheet before trying
this. It adds the New materials to the oringinal totals
where applicable.

Option Explicit
Sub addNewMat()
Dim tot As Range, newDat As Range
Dim r As Long, r2 As Long
Dim c, m
r = Application.WorksheetFunction.CountA(Range("A:A"))
r2 = Application.WorksheetFunction.CountA(Range("H:H"))
Set tot = Range(Cells(2, 1), Cells(r, 1))
Set newDat = Range(Cells(2, 8), Cells(r2, 8))
For Each m In newDat
For Each c In tot
c.Select
If c = m Then
c.Offset(0, 2) = c.Offset(0, 2) + m.Offset(0, 1)
End If
Next c
Next m

End Sub

It has only been tested on the limited data given.

Regards
Peter
-----Original Message-----
Hello

My job as an accountant involves producing a

monthly gross
margin report for jobs . The cost of these jobs change

from month to
month as costs come in . I need a macro that frees me up

from adding
all these changes each month in an excel report . I am

able to export
into excel a report from the accounting software that

lists each job
that has costs for the month , some jobs may not have

costs for a
given month . My gross margin report looks something like

this .

COLUMN A COLUMN B COLUMN C

JOB NUMBER SALES PRICE MATERIAL COST ROW 1
ROW 2
98-1002 50,000.00 45,000.00 ROW 3
98-1003 25,000.00 7,500.00 ROW 4
98-1004 75,000.00 52,250.00 ROW 5

The formula for material cost for 98-1002 as an example

is made up of
several months of activity

(=+20000.00+15000.00+10000.00) . I need to
add the current month's changes to this formula .

The exported report from the accounting software is

exported into the
gross margin report and looks like this .

COLUMN H COLUMN I ROW 1
ROW 2
98-1002 5,250.00 ROW 3
98-1004 1,250.00 ROW 4

Again this represents the current month's changes in

costs I need to
add 5,250.00 to the formula that totals 45,000.00 and

1,250.00 to the
formula that totals 52,250.00 . Obviously if we were

talking only a
few jobs this would not be a big deal but the number of

jobs is
actually very large .

Once again any help is deeply appreciated .

Sinncerely Mason
.