I receive a 'type mismatch' when trying to use the following line of code to
check the contents of cells and then assign a constant to the variable 'item'.


If Range("n1").Value < "" And Range("n2:n50").Value = "" Then item = 1

On Sat, 21 Jan 2006 19:17:02 -0800, "Mike"
wrote:

I receive a 'type mismatch' when trying to use the following line of code to
check the contents of cells and then assign a constant to the variable 'item'.


If Range("n1").Value < "" And Range("n2:n50").Value = "" Then item = 1

I think the problem has to do with trying to get the Value property of a
multicell Range object. I think you have to loop through the range to do what
you are trying to do.


--ron

In this case, you don't need to loop if you only want all the cells (n2:n50)
to be empty as the second condition
If Range("n1").Value < "" And Application.CountA(Range("n2:n50")) = 0 Then
item = 1






--
Regards,
Tom Ogilvy


"Ron Rosenfeld" wrote in message
...
On Sat, 21 Jan 2006 19:17:02 -0800, "Mike"

wrote:

I receive a 'type mismatch' when trying to use the following line of code
to
check the contents of cells and then assign a constant to the variable
'item'.


If Range("n1").Value < "" And Range("n2:n50").Value = "" Then item = 1

I think the problem has to do with trying to get the Value property of a
multicell Range object. I think you have to loop through the range to do
what
you are trying to do.


--ron

On Sat, 21 Jan 2006 23:00:10 -0500, "Tom Ogilvy" wrote:

In this case, you don't need to loop if you only want all the cells (n2:n50)
to be empty as the second condition
If Range("n1").Value < "" And Application.CountA(Range("n2:n50")) = 0 Then
item = 1

That's true.

I was being more general.


--ron

On Sat, 21 Jan 2006 23:00:10 -0500, "Tom Ogilvy" wrote:

In this case, you don't need to loop if you only want all the cells (n2:n50)
to be empty as the second condition
If Range("n1").Value < "" And Application.CountA(Range("n2:n50")) = 0 Then
item = 1

That's true.

I was being more general and neglected to focus on the OP's issue.
--ron

Hi Mike,

Try;

'=============
Public Sub Tester003()
Dim myItem As Long

If Range("n1").Value < "" And _
Application.CountA(Range("n2:n50")) = 0 Then myItem = 1
MsgBox myItem

End Sub
'<<============

BTW, I changed Item to myItem because Item ia a reserved word.


---
Regards,
Norman



"Mike" wrote in message
...
I receive a 'type mismatch' when trying to use the following line of code
to
check the contents of cells and then assign a constant to the variable
'item'.


If Range("n1").Value < "" And Range("n2:n50").Value = "" Then item = 1

Worked great, thanks Norman

"Norman Jones" wrote:

Hi Mike,

Try;

'=============
Public Sub Tester003()
Dim myItem As Long

If Range("n1").Value < "" And _
Application.CountA(Range("n2:n50")) = 0 Then myItem = 1
MsgBox myItem

End Sub
'<<============

BTW, I changed Item to myItem because Item ia a reserved word.


---
Regards,
Norman



"Mike" wrote in message
...
I receive a 'type mismatch' when trying to use the following line of code
to
check the contents of cells and then assign a constant to the variable
'item'.


If Range("n1").Value < "" And Range("n2:n50").Value = "" Then item = 1