Добрый день, подскажите пожалуйста, уже весь мозг сломал, как можно переделать этот код чтобы срабатывал только по нажатию кнопки на листе, а то у самого только ошибок пачку отлично получается генерировать)))) Заранее спасибо)
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range If Not Target Is Nothing Then If Not Intersect(Target, Range("B12")) Is Nothing Then Application.EnableEvents = False Set Rng = Rows(2).Find(what:=Target, LookIn:=xlValues, lookAt:=xlWhole) If Not Rng Is Nothing Then Rng.Offset(1, 0) = Rng.Offset(1, 0) - Target.Offset(10, 0) Set Target = Nothing End If Application.EnableEvents = True End If End If
[/vba]
Добрый день, подскажите пожалуйста, уже весь мозг сломал, как можно переделать этот код чтобы срабатывал только по нажатию кнопки на листе, а то у самого только ошибок пачку отлично получается генерировать)))) Заранее спасибо)
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range If Not Target Is Nothing Then If Not Intersect(Target, Range("B12")) Is Nothing Then Application.EnableEvents = False Set Rng = Rows(2).Find(what:=Target, LookIn:=xlValues, lookAt:=xlWhole) If Not Rng Is Nothing Then Rng.Offset(1, 0) = Rng.Offset(1, 0) - Target.Offset(10, 0) Set Target = Nothing End If Application.EnableEvents = True End If End If
Sub macro() Dim Rng As Range Set Rng = Rows(2).Find(what:=Range("B12"), LookIn:=xlValues, lookAt:=xlWhole) If Not Rng Is Nothing Then Rng.Offset(1, 0) = Rng.Offset(1, 0) - Range("B12").Offset(10, 0) End If End Sub
[/vba]
Cooper, здравствуйте, так хотите? [vba]
Код
Sub macro() Dim Rng As Range Set Rng = Rows(2).Find(what:=Range("B12"), LookIn:=xlValues, lookAt:=xlWhole) If Not Rng Is Nothing Then Rng.Offset(1, 0) = Rng.Offset(1, 0) - Range("B12").Offset(10, 0) End If End Sub