== How to test if a range var contains nothing
I need to check if a certain range var is nothing.
Suppose you have the following code Dim R As Range If R = Nothing then End If When I try to compile this I receive and object error in the If line. Then how can I test if R has something. Finally IsNull and IsEmpty don´t work too. Regards |
== How to test if a range var contains nothing
Hi
one way: If application.count(r)=0 then 'nothing end if -- Regards Frank Kabel Frankfurt, Germany hcova wrote: I need to check if a certain range var is nothing. Suppose you have the following code Dim R As Range If R = Nothing then End If When I try to compile this I receive and object error in the If line. Then how can I test if R has something. Finally IsNull and IsEmpty don´t work too. Regards |
== How to test if a range var contains nothing
if R is Nothing
not if R = Nothing "Frank Kabel" wrote: Hi one way: If application.count(r)=0 then 'nothing end if -- Regards Frank Kabel Frankfurt, Germany hcova wrote: I need to check if a certain range var is nothing. Suppose you have the following code Dim R As Range If R = Nothing then End If When I try to compile this I receive and object error in the If line. Then how can I test if R has something. Finally IsNull and IsEmpty don´t work too. Regards |
== How to test if a range var contains nothing
Is Nothing has a specific meaning in VBA, namely that the object variable has
never been set. Is that what you are after? If so, the syntax is If R Is Nothing Then OTOH, if you HAVE set R to point to a range, and you want to know whether that range is empty, Set R = Range("A1:A250") If Application.COUNTA(R) = 0 Then On Mon, 25 Oct 2004 13:03:07 -0700, "hcova" wrote: I need to check if a certain range var is nothing. Suppose you have the following code Dim R As Range If R = Nothing then End If When I try to compile this I receive and object error in the If line. Then how can I test if R has something. Finally IsNull and IsEmpty don´t work too. Regards |
All times are GMT +1. The time now is 04:35 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com