VBA add 1 to cell without select

[bluefeather8989]

I need a code to find blank cell in a specific range with the offset and add 1 to the value in that cell but do it without selecting the cell or sheets.

 Sheets("Data2").Range("J4,J4,J6,K4,K6,L4,L6,M4,M6,N4,N6,O4,O6,P4,P6,Q4,Q6").Find("").Offset(1, 0).Select
 ActiveCell.Value = ActiveCell.Value + 1

 

[Joe4]

Try this:

    Dim rng As Range
    Set rng = Sheets("Data2").Range("J4,J6,K4,K6,L4,L6,M4,M6,N4,N6,O4,O6,P4,P6,Q4,Q6").Find("").Offset(1, 0)
    rng.Value = rng.Value + 1

 

[bluefeather8989]

Try this:

    Dim rng As Range
    Set rng = Sheets("Data2").Range("J4,J6,K4,K6,L4,L6,M4,M6,N4,N6,O4,O6,P4,P6,Q4,Q6").Find("").Offset(1, 0)
    rng.Value = rng.Value + 1

This works great

 

[Joe4]

You are welcome.
Glad I was able to help.