CODEWITHSUNDEEP
excelvba
Piccinin1992
Piccinin1992

Reputation: 249

Macro stops prematurely

Macro to keep on going to the next cell till the value doesn't match and for all the similar values, subtract the values from the bottom most row

Essentially my data is like this (There is only one buy for each name and it is the bottom most cell)

Name |   Transaction.Type |  Amount | Remaining (what macro needs to do)       

Name1 |      Sell  |         5    |     15 (20-5)

Name1  |    Sell    |       10     |      10 (20-10)

Name1   |   Sell     |      15     |     5  (20-15)

Name1   |   Buy    |        20       |

Name2  |    Sell    |       25      |      5

Name2   |   Buy     |       30        |

So far my macro looks like 

Dim sline As Integer
Dim eline As Integer
Dim rng As Range
Dim lastrow(1 To 3) As Long
Application.DisplayAlerts = False

With Worksheets("Testing Data 2")
lastrow(1) = .Cells(Rows.Count, "A").End(xlUp).Row
End With


 For i = 2 To 4151
   If Worksheets("Testing Data 2").Range("A" & i) <> Worksheets("Testing Data 2").Range("A" & i).Offset(1, 0) Then
    eline = i

    Worksheets("Testing Data 2").Range(":C" & eline)        

    'struggling to go from here

    End If
 Next i
 Application.DisplayAlerts = True

Upvotes: 0

Views: 68

Answers (1)

urdearboy
urdearboy

Reputation: 14580

You can do this without VBA with the understanding that each Name only has one instnace of Buy

=SUMIFS(C:C,A:A,A3,B:B,"Buy")-C2      'Drag down as needed

enter image description here

Upvotes: 1

Related Questions