what is wrong with this macro code?

[yichuansancun]

What I try to achieve is that when the cell named housing_choice = "specified amount", excel should wipe out all the contents in the range with name "housing_m", and if the cell named housing_choice = "m data" then the cell named "housing" should be empty

If Range("housing_choice").Value = "specified amount" Then
Range("housing_m").Select
Selection.Value = ""
ElseIf Range("housing_choice").Value = "m data" Then
Range("housing").Select
Selection.Value = ""
End If

but it won't work... any ideas?

Thanks

 

[VoG]

Per your PM look here regarding missing references http://www.cpearson.com/excel/MissingReferences.aspx

 

[yichuansancun]

Thanks Peter, the reference setting of mine and my colleague's are exactly the same, yet the error only happens on her end, not mine.

I removed LCase in the code, and it seems to work properly now. LCase is to make the case insensitive for the value in the range "education_selection", correct?


Sub Goalseek123()

Application.EnableEvents = False

If LCase(Range("education_selection").Value) Like "*mercer data*" Then
Range("education").ClearContents
End If

If LCase(Range("choice").Value) Like "*specified amount*" Then
Range("housing_selection").ClearContents
ElseIf LCase(Range("choice").Value) Like "*mercer data*" Then
Range("housing").ClearContents
End If

Range("net_income").Select
Range("net_income").Goalseek Goal:=Range("net_income_value").Value, ChangingCell:=Range("gross_income")

Application.EnableEvents = True

End Sub

 

[yichuansancun]

Hi Peter,

I figured out what was the problem.

Thanks for all your help!

Perri