Autofill Macro Help

[lucifier27]

​

I inserted an image which looks like "+" and assigned it the following macro ->


Sub IncreaseByOne()
Range("B2") = Range("B2").Value + 1
End Sub


It increases the value of the "Quantity" by 1 each time it is clicked. Now i want to apply it on the rest of the cells. Autofill doesnt help. so what should i do?? I don't know much about excel. so plz help me out..

 

[lucifier27]

Someone please reply soon.

 

[lucifier27]

Someone please reply soon.

 

[lucifier27]

.

 

[Andrew Poulsom]

Assign this macro to each image:

Sub IncreaseByOne()
    With ActiveSheet.Pictures(Application.Caller).TopLeftCell.Offset(0, -1)
        .Value = .Value + 1
    End With
End Sub

 

[lucifier27]

Thanks Sir. It does the trick.