VBA Click Button enters alternating True False text in cell

[drefiek2]

Hi,
I would like a macro button which when clicked will enter "True" in a cell in a different sheet. If you press it again it will enter "False" in that cell, and will just alternate between "True" and "False" when clicked. I found the below but it does not work properly, any ideas would be greatly appreciated.

Sub Button24_Click()
If Worksheets("Mechanics").Cell("B16").Value = "True" Then
Replace Worksheets("Mechanics").Cell("B16").Value, "True", "False"
End If
End Sub

 

[dmt32]

Hi try

Sub Button24_Click()
    Dim rng As Range
    Set rng = ThisWorkbook.Worksheets("Mechanics").Range("B16")
    rng.Value = IIf(rng.Value = False, True, False)
End Sub

providing the range already has a boolean value entered you can just do this

rng.Value = Not rng.Value

Dave

 

[drefiek2]

Fabulous, it worked, thanks so much!

 

[dmt32]

Fabulous, it worked, thanks so much!

most welcome & appreciate your feedback

Dave

 

[drefiek2]

most welcome & appreciate your feedback

Dave

No problem. You may be able to help a little more on this actually.
I have another macro button that when pressed, it saves the sheet as a PDF. I would like the above TRUE/FALSE referenced cell to tie in with my PDFsave macro button, if possible.
I would like it so that when the PDFsave section of code runs, it will ONLY run when the referenced cell above says 'TRUE'. This means that the code needs to temporarily change the 'FALSE' to 'TRUE'.
For example if the above referenced cell says FALSE, I want the PDFsave code to change it to TRUE, run the PDFsave code then change it back to FALSE, all in one click of a button.
If the above referenced cell says TRUE already, the PDFsave code should just run as normal without changing anything. I hope this makes sense.
I think this will need some IF's and Else's but I'm not 100% sure on VBA coding, it's a bit of a headache to me.