A simple droplist to change text atributes

[Theo6772]

The title says the most. I want to make a form to be printed or send by e-mail. It's digital succession of a paper form. The user must strike out three out of four words. This to be achieved bij choosing the correct word shown in a ListBox.
I'm a first time user on VBA and so I get very confused of the masses of samples I have found on so many places.
I would really appreciate the help.
Thanks in advance!

 

[PeteWright]

Do you need a real form or VBA?
One very simple solution is Excels Data Validation.

Doing the math: If three out of four words should be stroke out, then there is only one word left. Is this the case?
Then you could make a simple drop-down with four words and the user selects one of them.

 

[Theo6772]

Thanks for the reply.
I did think of that. But. It would alter the form. It's an army form that has been around for decades and has an official form number.

 

[PeteWright]

I found out how to toggle strike out text, but the code has to be modified to be reusable.
RIght now only Cell B5 changes upon selection.

Here is the code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("B5").Address Then
        Call str
    End If
End Sub

 
Sub str()
        If Range("B5").Font.Strikethrough = True Then
            Range("B5").Font.Strikethrough = False
        Else
            Range("B5").Font.Strikethrough = True
        End If
End Sub

Just paste the code into a worksheet object and click on cell B5.
Then click out of cell B5 and into the cell again.
Each time you click or select cell B5 it will toggle the strikeout

But it's too late now, I'm gonna go to bed.
I'll have a closer look at the code tommorow

 

[Theo6772]

I'm happy with all the help I get. There's no rush or deadline to meet. I like to sort things out myself like dealing with a secured worksheet etc.
I just lost it on this one.

I'm going to try out your code to toggle. This is how I created the toggle using a button:

Private Sub Ocht_Click()
Call VRA_scripts.Unprotect

If Ocht.Value = True Then
    Call VRA_scripts.Ochtend_streep

Else

    Call VRA_scripts.Ochtend_actief

End If
Call VRA_scripts.Protect

End Sub

Sub Ochtend_streep()
    Range("H6:I6").Select
    With Selection.Font
        .FontStyle = "Standaard"
        .Size = 8
        .Strikethrough = True
        .ThemeFont = xlThemeFontNone
    End With
End Sub
Sub Ochtend_actief()
    Range("H6:I6").Select
    With Selection.Font
        .FontStyle = "Standaard"
        .Size = 8
        .Strikethrough = False
        .ThemeFont = xlThemeFontNone
    End With
End Sub

 

[PeteWright]

This is how I created the toggle using a button:

Private Sub Ocht_Click()
Call VRA_scripts.Unprotect

If Ocht.Value = True Then
    Call VRA_scripts.Ochtend_streep

Else

    Call VRA_scripts.Ochtend_actief

End If
Call VRA_scripts.Protect

End Sub

I have copied your code and set everything up to meet your variables, but nothing happens.

Could you explain two things:

1. what is VRA_scripts ?
2. what is Ocht.Value ?

 

[Theo6772]

I have copied your code and set everything up to meet your variables, but nothing happens.

Could you explain two things:

1. what is VRA_scripts ?
2. what is Ocht.Value ?

VRA-scripts is a different Module where the scripts I call are stored. Ocht.value is the status of the toggle switch from the ActiveX board. The switch is named Ocht.

 

[PeteWright]

hmmm, that makes things a little bit complicated...

I'll try to start from scratch.
Right now I'm having my first cup of coffee and doing some code improvements...

Hang on a moment and I'll provide you some code for testing.

 

[Theo6772]

If you provide me your e-mail address, I can send you the file.

 

[PeteWright]

There we go! Check out the Excel file on my OneDrive:

MrExcel_Theo6772_form.xlsm