Writing an IF/Then Statement in VB based on entry in a cell

[Guest]

I have defined the following value for a cell within my macro

Range("K" & i).Select
ActiveCell.FormulaR1C1 = _
"=((YEAR(RC[-1])-YEAR(RC[-2]))*12)+(MONTH(RC[-1])-MONTH(RC[-2]))"

If the value of this range is > 0, I want to do other things. I'm not sure
how to write an "IF" statement to capture this information. How do I do
that?

Thanks in advance,
Barb Reinhardt

 

[Guest]

Something like this perhaps:-

If ActiveCell.Value > 0 Then
' put here what you want to happen i.e.
MsgBox "it's working!!"
End If

 

[Guest]

Range("K" & i).Activate
ActiveCell.FormulaR1C1 = _
"=((YEAR(RC[-1])-YEAR(RC[-2]))*12)+(MONTH(RC[-1])-MONTH(RC[-2]))"
ActiveCell.Value > 0 Then
'do something
Else
'do something else
End If


Hutch

 

[Guest]

Thanks. The ActiveCell.Value part was what I needed.

Now I have another question. How do I check to see If ActiveCell.Value =
#N/A. I can't seem to figure this one out.

Something like this perhaps:-

If ActiveCell.Value > 0 Then
' put here what you want to happen i.e.
MsgBox "it's working!!"
End If

I have defined the following value for a cell within my macro

Range("K" & i).Select
ActiveCell.FormulaR1C1 = _
"=((YEAR(RC[-1])-YEAR(RC[-2]))*12)+(MONTH(RC[-1])-MONTH(RC[-2]))"

If the value of this range is > 0, I want to do other things. I'm not sure
how to write an "IF" statement to capture this information. How do I do
that?

Thanks in advance,
Barb Reinhardt

 

[Chip Pearson]

Barb,

Now I have another question. How do I check to see If
ActiveCell.Value =
#N/A. I can't seem to figure this one out.

Try

If Application.WorksheetFunction.IsNA(ActiveCell.Value) Then
Debug.Print "is n/a"
Else
Debug.Print "not n/a"
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



in message

Thanks. The ActiveCell.Value part was what I needed.

Now I have another question. How do I check to see If
ActiveCell.Value =
#N/A. I can't seem to figure this one out.

Something like this perhaps:-

If ActiveCell.Value > 0 Then
' put here what you want to happen i.e.
MsgBox "it's working!!"
End If

I have defined the following value for a cell within my
macro

Range("K" & i).Select
ActiveCell.FormulaR1C1 = _

"=((YEAR(RC[-1])-YEAR(RC[-2]))*12)+(MONTH(RC[-1])-MONTH(RC[-2]))"

If the value of this range is > 0, I want to do other
things. I'm not sure
how to write an "IF" statement to capture this information.
How do I do
that?

Thanks in advance,
Barb Reinhardt

 

[Dave Peterson]

One more way:

if activecell.text = "#N/A" then

Thanks. The ActiveCell.Value part was what I needed.

Now I have another question. How do I check to see If ActiveCell.Value =
#N/A. I can't seem to figure this one out.

Something like this perhaps:-

If ActiveCell.Value > 0 Then
' put here what you want to happen i.e.
MsgBox "it's working!!"
End If

I have defined the following value for a cell within my macro

Range("K" & i).Select
ActiveCell.FormulaR1C1 = _
"=((YEAR(RC[-1])-YEAR(RC[-2]))*12)+(MONTH(RC[-1])-MONTH(RC[-2]))"

If the value of this range is > 0, I want to do other things. I'm not sure
how to write an "IF" statement to capture this information. How do I do
that?

Thanks in advance,
Barb Reinhardt

 

[Guest]

How about if the cell value is #Value! ???

One more way:

if activecell.text = "#N/A" then

Thanks. The ActiveCell.Value part was what I needed.

Now I have another question. How do I check to see If ActiveCell.Value =
#N/A. I can't seem to figure this one out.

Something like this perhaps:-

If ActiveCell.Value > 0 Then
' put here what you want to happen i.e.
MsgBox "it's working!!"
End If

:

I have defined the following value for a cell within my macro

Range("K" & i).Select
ActiveCell.FormulaR1C1 = _
"=((YEAR(RC[-1])-YEAR(RC[-2]))*12)+(MONTH(RC[-1])-MONTH(RC[-2]))"

If the value of this range is > 0, I want to do other things. I'm not sure
how to write an "IF" statement to capture this information. How do I do
that?

Thanks in advance,
Barb Reinhardt

 

[Dave Peterson]

if activecell.text = "#Value!" then

or

if iserror(activecell.value) then
to catch all kinds of errors

How about if the cell value is #Value! ???

One more way:

if activecell.text = "#N/A" then

Thanks. The ActiveCell.Value part was what I needed.

Now I have another question. How do I check to see If ActiveCell.Value =
#N/A. I can't seem to figure this one out.

:

Something like this perhaps:-

If ActiveCell.Value > 0 Then
' put here what you want to happen i.e.
MsgBox "it's working!!"
End If

:

I have defined the following value for a cell within my macro

Range("K" & i).Select
ActiveCell.FormulaR1C1 = _
"=((YEAR(RC[-1])-YEAR(RC[-2]))*12)+(MONTH(RC[-1])-MONTH(RC[-2]))"

If the value of this range is > 0, I want to do other things. I'm not sure
how to write an "IF" statement to capture this information. How do I do
that?

Thanks in advance,
Barb Reinhardt

 

[Guest]

For some reason, it didn't work as I expected ... and then I realized I'd
goofed something else up. Thanks.

if activecell.text = "#Value!" then

or

if iserror(activecell.value) then
to catch all kinds of errors

How about if the cell value is #Value! ???

One more way:

if activecell.text = "#N/A" then



Barb Reinhardt wrote:

Thanks. The ActiveCell.Value part was what I needed.

Now I have another question. How do I check to see If ActiveCell.Value =
#N/A. I can't seem to figure this one out.

:

Something like this perhaps:-

If ActiveCell.Value > 0 Then
' put here what you want to happen i.e.
MsgBox "it's working!!"
End If

:

I have defined the following value for a cell within my macro

Range("K" & i).Select
ActiveCell.FormulaR1C1 = _
"=((YEAR(RC[-1])-YEAR(RC[-2]))*12)+(MONTH(RC[-1])-MONTH(RC[-2]))"

If the value of this range is > 0, I want to do other things. I'm not sure
how to write an "IF" statement to capture this information. How do I do
that?

Thanks in advance,
Barb Reinhardt