S
Sofia Grave
Hej to all
I have a question, I am trying to make a goal seek using the followed the
code. And is working, but I want to add something else. The numbers for this
macro depend on values in another sheet and when I don't have the range full
I receive a debug error. And what I want is, if in the range [b23:m33] some
cells are null, the macro jumps to next (number2).
Because when the debug appears only runs the goal seek for number1. I want
to avoid to open all the time the debug and comment the extra lines that the
debug shows.
Could some one help me?
Best
Sofia
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, forside.Range("B6:B7")) Is Nothing Then
Exit Sub
Else
'number1
.Range("D45").GoalSeek goal:=0, changingcell:=.Range("D44")
.Range("f45").GoalSeek goal:=0, changingcell:=.Range("F44")
.Range("h45").GoalSeek goal:=0, changingcell:=.Range("H44")
.Range("J45").GoalSeek goal:=0, changingcell:=.Range("J44")
'number2
.Range("D45").GoalSeek goal:=0, changingcell:=.Range("D44")
.Range("f45").GoalSeek goal:=0, changingcell:=.Range("F44")
.Range("H45").GoalSeek goal:=0, changingcell:=.Range("H44")
.Range("J45").GoalSeek goal:=0, changingcell:=.Range("J44")
End If
End Sub
I have a question, I am trying to make a goal seek using the followed the
code. And is working, but I want to add something else. The numbers for this
macro depend on values in another sheet and when I don't have the range full
I receive a debug error. And what I want is, if in the range [b23:m33] some
cells are null, the macro jumps to next (number2).
Because when the debug appears only runs the goal seek for number1. I want
to avoid to open all the time the debug and comment the extra lines that the
debug shows.
Could some one help me?
Best
Sofia
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, forside.Range("B6:B7")) Is Nothing Then
Exit Sub
Else
'number1
.Range("D45").GoalSeek goal:=0, changingcell:=.Range("D44")
.Range("f45").GoalSeek goal:=0, changingcell:=.Range("F44")
.Range("h45").GoalSeek goal:=0, changingcell:=.Range("H44")
.Range("J45").GoalSeek goal:=0, changingcell:=.Range("J44")
'number2
.Range("D45").GoalSeek goal:=0, changingcell:=.Range("D44")
.Range("f45").GoalSeek goal:=0, changingcell:=.Range("F44")
.Range("H45").GoalSeek goal:=0, changingcell:=.Range("H44")
.Range("J45").GoalSeek goal:=0, changingcell:=.Range("J44")
End If
End Sub