checking value of named range

[mark kubicki]

even though the value for [ReformatingCompleted] seems to have been set to
"True", I'm not able to test for it correctly;
could someone proof this short code for me? (it's prob an obvious mistake...
u know how that goes...)

--------------------
ActiveWorkbook.ActiveSheet.Names.Add Name:="ReformatingCompleted",
RefersToR1C1:="=""True"""


If ActiveWorkbook.ActiveSheet.Names("ReformatingCompleted").Value = "True"
Then
Exit Sub
End If

 

[bobbo]

After "RefesToR1C1:= " you need something that refers to a range in
R1C1 format.
Then to set it to true
Activeworkbok.Names("ReformatingCompleted").RefersToRange.Value =
"True"

 

[Dave Peterson]

This did work ok for me:

ActiveWorkbook.ActiveSheet.Names.Add _
Name:="ReformatingCompleted", RefersToR1C1:=True

If ActiveWorkbook.ActiveSheet.Names("ReformatingCompleted").Value = "=TRUE" Then
MsgBox "hi"
Else
MsgBox "bye"
End If

even though the value for [ReformatingCompleted] seems to have been set to
"True", I'm not able to test for it correctly;
could someone proof this short code for me? (it's prob an obvious mistake...
u know how that goes...)

--------------------
ActiveWorkbook.ActiveSheet.Names.Add Name:="ReformatingCompleted",
RefersToR1C1:="=""True"""

If ActiveWorkbook.ActiveSheet.Names("ReformatingCompleted").Value = "True"
Then
Exit Sub
End If

 

[mark kubicki]

o.k.

I kind of get it... (I immediately get lost in R1C1 world) but...
I'm not sure,

am I editing the code where is the value to true
or,
editing the code where I check if the value is true?

and, in either case (excuse my dumbness), could you spell out what the exact
code ought to be

-mark

-------------------------------------------------------------------------------------------------

After "RefesToR1C1:= " you need something that refers to a range in
R1C1 format.
Then to set it to true
Activeworkbok.Names("ReformatingCompleted").RefersToRange.Value =
"True"

even though the value for [ReformatingCompleted] seems to have been set
to
"True", I'm not able to test for it correctly;
could someone proof this short code for me? (it's prob an obvious
mistake...
u know how that goes...)

--------------------
ActiveWorkbook.ActiveSheet.Names.Add Name:="ReformatingCompleted",
RefersToR1C1:="=""True"""


If ActiveWorkbook.ActiveSheet.Names("ReformatingCompleted").Value =
"True"
Then
Exit Sub
End If
--------------------


thanks in advance,
mark

 

[bobbo]

Dave has more expertise than I do. He helped me write my first UDF. You
might want to try his code if it accomplishes your task. As R1C1
notation it is just a different way of writing ranges where both the
row and column have a number. Here is the code that I wrote to test
it.

Sub Tst()
ActiveWorkbook.ActiveSheet.Names.Add _
name:="ReformatingCompleted", RefersToR1C1:="=Sheet1!R4C2:R9C2"
' this is Sheet1 range B4:B9 named ReformatingCompleted

ActiveWorkbook.Names("ReformatingCompleted").RefersToRange.Value = 4
' this gives range B4:B9 a value of 4

End Sub

To use Dave's code I think just copy and paste this

ActiveWorkbook.ActiveSheet.Names.Add _
Name:="ReformatingCompleted", RefersToR1C1:=True


If ActiveWorkbook.ActiveSheet.Names("ReformatingCompleted").Value =
"=TRUE" Then
exit sub
end if

My code creates a workbook level name that denotes a range. Dave's
creates a worksheet level name. I can not really eloborate on the finer
differences because honestly I do not know. Figure out which one works
the best for your purpose and use that. My code will actually make a
range that has a value of True displayed in it.

o.k.

I kind of get it... (I immediately get lost in R1C1 world) but...
I'm not sure,

am I editing the code where is the value to true
or,
editing the code where I check if the value is true?

and, in either case (excuse my dumbness), could you spell out what the exact
code ought to be

-mark

-------------------------------------------------------------------------------------------------

After "RefesToR1C1:= " you need something that refers to a range in
R1C1 format.
Then to set it to true
Activeworkbok.Names("ReformatingCompleted").RefersToRange.Value =
"True"

even though the value for [ReformatingCompleted] seems to have been set
to
"True", I'm not able to test for it correctly;
could someone proof this short code for me? (it's prob an obvious
mistake...
u know how that goes...)

--------------------
ActiveWorkbook.ActiveSheet.Names.Add Name:="ReformatingCompleted",
RefersToR1C1:="=""True"""


If ActiveWorkbook.ActiveSheet.Names("ReformatingCompleted").Value =
"True"
Then
Exit Sub
End If
--------------------


thanks in advance,
mark