Using If Then Else within a Macro

[Guest]

I'm fairly new to Macros so this may seem very simple to you.

I basically want to run a nested statement
if A10="Yes" then type "Good" in cell A12, if A10="No" then type "Bad" in
A12 else a blank cell.

I know I can do it as a formula but I would prefer this to be incorporated
into an existing macro.

Thanks in anticipation

 

[Guest]

Here is some code. I have made it a bit more forgiving in terms of how yes or
no appear...

if trim(ucase(range("A10").Value)) = "YES" then
range("A12").Value = "Good"
elseif trim(ucase(range("A10").Value)) = "NO"
range("A12").Value = "Bad"
else
range("A12").Value = ""
end if

Another option would be as select case statement

Select Case Trim(ucase(range("A10").Value))
Case "YES"
Range("A12").Value = "Good"
Case "NO"
Range("A12").Value = "Bad"
Case else
Range("A12").Value = ""
End Select

 

[Guest]

If Range("A10").value = 10 then
Range("A12").value = "Good"
Else
Range("A12").value = "Bad"
End If

 

[Guest]

Wait I missed read the posting, use Jim's sub instead.

 

[PCLIVE]

One way:

IF RANGE("A10").VALUE="Yes" _
THEN
RANGE("A12").VALUE = "Good"
ELSE
IF RANGE("A10").VALUE="No" _
THEN
RANGE("A12").VALUE = "Bad"
ELSE
RANGE("A12").VALUE=""
END IF
END IF


HTH,
Paul

 

[Guest]

Thanks. Being a beginner this was nice and simple. Just had a slight problem
that I didnt realise the code was case sensitive

 

[Guest]

Thanks for the response. As a beginner, Pauls response was less intimidating
and solved the problem so I didnt actually get to try your solution out but i
appreciate your response