VBA to find values and reduce cell X by cell Y

[MichaelRSnow]

Hi All

I'm sure there is a simple piece of VBA to do this but can't work out how.

For example, If column A has a list of letters, Column B a number, and C a greater number i.e.

Column A Column B Column C
A 2 10
B 4 8
C 6 14
D 8 20
E 10 18
A 1 19
B 3 7
C 5 11
D 7 13
E 9 9

Is it possible to locate the letter B, reduce the value in column C by the value in column B and then delete the value from column B. Actual data is 30 thousand rows long hence the need to automate it via VBA.

 

[nuked]

Sub ReduceStock()

Dim rng as Range
Dim cel as Range

Set rng = Activesheet.Range("A1:A" & ActiveSheet.Range("A" & Activesheet.Rows.Count).End(xlUp).Row)

For each cel in rng

If trim(cel) = "B" then

cel.Offset(,2) = cel.offset(,2)-cel.offset(,1)
cel.offset(,1) = ""

end if

next cel

end sub

 

[MichaelRSnow]

Sub ReduceStock()

Dim rng as Range
Dim cel as Range

Set rng = Activesheet.Range("A1:A" & ActiveSheet.Range("A" & Activesheet.Rows.Count).End(xlUp).Row)

For each cel in rng

If trim(cel) = "B" then

cel.Offset(,2) = cel.offset(,2)-cel.offset(,1)
cel.offset(,1) = ""

end if

next cel

end sub

Perfect, thank you so much