auto adjust cell formula

[redspanna]

Hi all

In cell A1 I have a simple formual that at certain times I want it to be changed to add a value of 7

So the formula at the moment is

=$B384

when my macro is run I want that formula to be then increased by 7 so on this example A1 would now be

=$B391

any ideas how to incorportae this into my code?

thanks

 

[Joe4]

Here is a small snippet code that should do that. Modifed to suit your needs.

Sub MyIncrementFormula()
'   Change formula in cell A1 to increase it by seven rows every time this macro is run
    Range("A1").Formula = "=$B" & Right(Range("A1").Formula, 3) + 7
   
End Sub

 

[redspanna]

Hey Joe4

thats just perfect..thanks so much for taking the time to help with my post

regards