Следующая ячейка при нажатии кнопки

Question

ниже кода. В настоящее время он просто выдает первую ячейку, и я не знаю, почему она не go переходит к следующей ячейке при нажатии на кнопку.

Private Sub CommandButton3_Click()

 Dim notFirst As Boolean
 Dim rng As Range

 If notFirst Then
    If rng.Row = 104 Then
        Exit Sub
    Else
        Set rng = rng.Offset(1)
    End If
 Else
    Set rng = Range("A102")
    notFirst = True
 End If

 Range("C8").Value = rng.Value

End Sub

Как это выглядит:

https://www.bilder-upload.eu/bild-73e0c4-1584092523.png.html

https://www.bilder-upload.eu/bild-5cfb6a-1584092581.png.html

Answer 1

Это может сработать для вас:

Public notFirst As Boolean
Public rng As Range

Private Sub CommandButton3_Click()

 If notFirst Then
    If rng.Row = 104 Then
        Exit Sub
    Else
        Set rng = rng.Offset(1)
    End If
 Else
    Set rng = Range("A102")
    notFirst = True
 End If

 Range("C8").Value = rng.Value

End Sub

Эти переменные Public гарантируют, что при повторном нажатии кнопки последнее присвоенное значение все еще присутствует. Обратите внимание, что я бы не рекомендовал вышеупомянутый код делать то, что вы делаете.