Using If Then Else within a Macro
 

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

Using If Then Else within a Macro
 

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
--
HTH...

Jim Thomlinson


"dave caizley" wrote:

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

Using If Then Else within a Macro
 

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

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"dave caizley" wrote:

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

Using If Then Else within a Macro
 

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

--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"dave caizley" wrote:

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

Using If Then Else within a Macro
 

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



--

"dave caizley" <dave wrote in message
...
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

Using If Then Else within a Macro
 

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

"PCLIVE" wrote:

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



--

"dave caizley" <dave wrote in message
...
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

Using If Then Else within a Macro
 

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

"Jim Thomlinson" wrote:

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
--
HTH...

Jim Thomlinson


"dave caizley" wrote:

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