+1 to Cell in Next Row

[arcaidius]

Good Afternoon, this should be easy. I just need to take the cell value in column 14 of active cell row and add 1 in the cell below. I've scoured the internet and cant't find anything similar enough for me to figure it out. It will happen with a button click that will have other functions.

 

[Fluff]

How about

   With Range("N" & ActiveCell.Row + 1)
      .Value = .Value + 1
   End With

 

[arcaidius]

Thank you Fluff, it was close, I had 100 and the next cell would just be 1. But it was enough for me to figure out, made the below change and it works.

With Range("N" & ActiveCell.Row + 1)
.Value = Range("N" & ActiveCell.Row).Value + 1
End With

 

[Fluff]

You're welcome & thanks for the feedback.