How to make a macro who will decrease number in a cell in column C
(Worksheet 1) for amount of cell in column C (Worksheet 2) depending on code
(column B Worksheet 2) and (column A Worksheet 1)

-----------------------
Befo

Worksheet 1:

A B C D
1 100 aaaaaaaaaaaa 5 GGG
2 101 BBBBBBBB 6 GGG
3 102 CCCCCCCC 10 GGG
4 103 DDDDDDDD 3 GGG
5 104 EEEEEEEEEE 2 GGG


Worksheet 2:

A B C D
1 1. 102 1 xxxxx
2 2. 103 2 xxxxx

----------------
After:

Worksheet 1:

A B C D
1 100 aaaaaaaaaaaa 5 GGG
2 101 BBBBBBBB 6 GGG
3 102 CCCCCCCC 9 GGG
4 103 DDDDDDDD 1 GGG
5 104 EEEEEEEEEE 2 GGG

Sub AdjustValues()
Dim rng1 as Range, rng2 as Range
Dim rng3 as Range
with worksheets("Worksheet 1")
set rng1 = .Range(.Cells(1,1),.Cells(rows.count,1).End(xlup))
End with
With Worksheets("Worksheet 2")
set rng2 = .Range(.Cells(1,2),.cells(rows.count,2).End(xlup))
End With
for each cell in rng1
set rng3 = rng2.Find(cell)
if not rng3 is nothing then
cell.offset(0,2).Value = cell.offset(0,2).Value = _
rng3.offset(0,1).Value
end if
Next
End Sub

--
Regards,
Tom Ogilvy


"WooK" wrote in message
...
How to make a macro who will decrease number in a cell in column C
(Worksheet 1) for amount of cell in column C (Worksheet 2) depending on
code
(column B Worksheet 2) and (column A Worksheet 1)

-----------------------
Befo

Worksheet 1:

A B C D
1 100 aaaaaaaaaaaa 5 GGG
2 101 BBBBBBBB 6 GGG
3 102 CCCCCCCC 10 GGG
4 103 DDDDDDDD 3 GGG
5 104 EEEEEEEEEE 2 GGG


Worksheet 2:

A B C D
1 1. 102 1 xxxxx
2 2. 103 2 xxxxx

----------------
After:

Worksheet 1:

A B C D
1 100 aaaaaaaaaaaa 5 GGG
2 101 BBBBBBBB 6 GGG
3 102 CCCCCCCC 9 GGG
4 103 DDDDDDDD 1 GGG
5 104 EEEEEEEEEE 2 GGG