Toggle button

[Bertha]

Is it possible to turn a cell into a toggle button?

Thank you for helping out,

Bertha

 

[Bertha]

This would be language independent

.Value = Not(CStr(.Value) = CStr(True))

The toggle column works fine. Question 1: the cells now show the word TRUE for the green cells and FALSE for the red cells. I assume it is not possible to have other words than TRUE and FALSE in the toggle cells?

Question 2: if it is not possible to have other words than TRUE and FALSE, is it possible to make it look like there is no text in these cells, for instance by giving the text characters of the words TRUE and FALSE the same colour as the background?

Thank you in advance,

Bertha

 

[mikerickson]

It is possible to have words other than True and False.
Actually, I would recommend that the cells get their color from Conditional Formatting rather than by the DoubleClick event.

 

[Bertha]

It is possible to have words other than True and False.
Actually, I would recommend that the cells get their color from Conditional Formatting rather than by the DoubleClick event.

Thank you, I will try to find out how to do that.

Bertha

 

[Bertha]

It is possible to have words other than True and False.
Actually, I would recommend that the cells get their color from Conditional Formatting rather than by the DoubleClick event.

What would be a good way to have only the letters Y en N displayed in respectively the Green and Red cells, instead of the words TRUE and FALSE?

Regards,
Bertha

 

[mikerickson]

To use Y/N rather than TRUE/FALSE change this line

.Value = IIF(CStr(.Value) = "Y", "n", "Y")

And later adjust the testing to set the colors.

 

[Rick Rothstein]

To use Y/N rather than TRUE/FALSE change this line

.Value = IIF(CStr(.Value) = "Y", "n", "Y")

Assuming the cell is never blank, this should also work...

.Value = Split("YNY", .Value)(1)

 

[mikerickson]

Assuming the cell is never blank, ...

IMO, assuming what users will put in a cell (inadvertently or otherwise) is a bold move.

 

[Rick Rothstein]

IMO, assuming what users will put in a cell (inadvertently or otherwise) is a bold move.

When I do that, it is to set the limitations for the formula or code I am posting... that way the OP knows right away whether he/she can use it or not.

 

[Bertha]

To use Y/N rather than TRUE/FALSE change this line

.Value = IIF(CStr(.Value) = "Y", "n", "Y")

And later adjust the testing to set the colors.

Thank you Mike, that worked fine when I removed the lines:

If .Value Then
.Interior.Color = RGB(0, 255, 0)
Else
.Interior.Color = RGB(255, 0, 0)
End If

I will lose the colours, as I do not know how to set them (green for Y and red for N), but that is OK, I am happy with the Y/N instead of True/False.

Bertha

 

[Bertha]

When I do that, it is to set the limitations for the formula or code I am posting... that way the OP knows right away whether he/she can use it or not.

Thank you for the alternative way, Rick,

Bertha