Назначить кнопке, переход

[valerij]

Обычно кнопке назначают выполнение макроса, а как назначить переход на выполнение определнной строки макроса?
Например:
Нажатие кнопки - GoTo метка

[IgorGO]

задача не из простых (по крайней мере для меня). И самое сложное в этом деле ЗАЧЕМ??? Почему именно на метку? Почему просто не запустить процедуру?
Возможно у меня даже ответ есть - "потому что так написано..."

[motorway]

А если прописать в коде макроса это самое GoTo? Если кнопка одна и используется только для этого перехода, то это можно написать в коде. А если не только для этого, можно сделать вторую кнопку

[valerij]

Сообщение от IgorGO

Почему просто не запустить процедуру?

Потому, что [A22] = 0 в процедуре, а мне надо, при нажатии кнопки выпонялось, так(устраивать цикл в модуле не подходит):

[A22].Offset(dat * 44) = 0

А если прописать в коде макроса это самое GoTo?

А как?

[motorway]

Ну в VBA есть GoTo и соответственно метка, ставите после Goto Label1 Label1:
и все. Но если код должен выполняться только с какого-то места, почему нельзя просто остальное убрать, или сделать отдельную функцию или попробовать определять, что код вызван именно после нажатия кнопки и сделать условие?

[valerij]

Сообщение от motorway

Ну в VBA есть GoTo и соответственно метка, ставите после Goto Label1 Label1:
и все. Но если код должен выполняться только с какого-то места, почему нельзя просто остальное убрать, или сделать отдельную функцию или попробовать определять, что код вызван именно после нажатия кнопки и сделать условие?

Я, не понял, напишите код:

IF Нажатие_Кнопки Then [A22].Offset(dat * 44) = 0

[doober]

Может я чегото не понял,но сделал бы так

Public flag As Boolean

 Sub Macro()
Select Case flag
 
Case True
   
GoTo 10

End Select
    

MsgBox "Макрос выполняется с начала"


    
10
[A22].Offset(dat * 44) = 0

MsgBox " Макрос выполняется с [A22].Offset(dat * 44) = 0"

End Sub

Private Sub CommandButton1_Click()
flag = True  ' Выполнить с  10 метки

Macro

End Sub

Private Sub CommandButton2_Click()

flag = False

Macro

End Sub

[valerij]

Сообщение от doober

сделал бы так

Все равно не понял, вот фрагмент рабочий, все лишнее убрал, куда мне вставить?

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Excel.Range)
For dat = 0 To 30
[A22].Offset(dat * 44) = [F34].Offset(dat * 44) - Evaluate("ИТОГО_ПРЕДЫДУЩ.")
IF Нажатие_Кнопки Then [A22].Offset(dat * 44) = 0
Next
End Sub

[doober]

В модуле

Public Нажатие_Кнопки As Boolean

Два варианта Либо одна кнопка

Private Sub CommandButton1_Click()
Нажатие_Кнопки  = True
End Sub

Либо две
Вкл и Выкл

Private Sub CommandButton2_Click()
Нажатие_Кнопки  = False
End Sub

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Excel.Range)
For dat = 0 To 30
[A22].Offset(dat * 44) = [F34].Offset(dat * 44) - Evaluate("ИТОГО_ПРЕДЫДУЩ.")
IF Нажатие_Кнопки Then [A22].Offset(dat * 44) = 0
Next
 Нажатие_Кнопки  = False  'Если две эту строку убрать
End Sub

[valerij]

Сообщение от doober

В модуле

Сделал так, не работает, кнопка, только одна.
В модуле:

Public Нажатие_Кнопки As Boolean
Private Sub CommandButton1_Click()
Нажатие_Кнопки = True: MsgBox 5555 'Для проверки, Работает
End Sub

В книге, опустим условие IF, зачем оно:

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Excel.Range)
For dat = 0 To 30
[A22].Offset(dat * 44) = [F34].Offset(dat * 44) - Evaluate("ИТОГО_ПРЕДЫДУЩ.")
Нажатие_Кнопки: [A22].Offset(dat * 44) = 0: MsgBox 7777 'Не Работает
Next
 Нажатие_Кнопки  = False  'Так и без нее, не работает
End Sub