ActiveX Text boxes to autofill "N/A" based on value selected on a ComboBox

[quanweitkd]

I created a form using activeX tools. I want it in a way that when the form user selects "1" for question 4 (ComboBox), then on question 5, besides the first textbox is kept blank, the other 9 textboxes will autofill with "N/A".
Then if user selects "2" for question 4, then on question 5, besides the first and second textboxes are kept blank, the other 8 textboxes will autofill with "N/A", and so on.
I am new to VBA, please advise how can I achieve this? Thanks a million!

I

 

[diddi]

Hi and welcome to MrExcel
What are the names of your textboxes and combobox. is this a userform or a worksheet

 

[quanweitkd]

The name of my combobox is "SLAnum".
The names of my 10 textboxes are "P1TextBox", "P2TextBox", "P3TextBox", "P4TextBox", "P5TextBox", "P6TextBox", "P7TextBox", "P8TextBox", "P9TextBox", "P10TextBox".
It is a worksheet.

 

[diddi]

Sub SLAnum_change()
    If SLAnum.Value<>0 then
        For row= SLAnum.Value +1 to 10
            Sheets(" enter your sheet name ").Shapes("P" & SLAnum.Value & "TextBox").Text = "N/A"
        Next Row
    End If
End Sub

 

[quanweitkd]

Hi and welcome to MrExcel
What are the names of your textboxes and combobox. is this a userform or a worksheet

Sub SLAnum_change()
    If SLAnum.Value<>0 then
        For row= SLAnum.Value +1 to 10
            Sheets(" enter your sheet name ").Shapes("P" & SLAnum.Value & "TextBox").Text = "N/A"
        Next Row
    End If
End Sub

On my VBA editor, I double clicked on the worksheet "FORM" (the sheet that contains the textboxes and combobox) then pasted your code.
then according to your instructions, I enter the sheet name into the code this way:

Sub SLAnum_change()
If SLAnum.Value <> 0 Then
For Row = SLAnum.Value + 1 To 10
Sheets(Form).Shapes("P" & SLAnum.Value & "TextBox").Text = "N/A"
Next Row
End If
End Sub

But this error pops up:
Did I perform some steps wrongly?

 

[diddi]

Sheets("Form")

 

[quanweitkd]

Sheets("Form")

Another value I select from the question 4 Combox returns this same error:

 

[quanweitkd]

*Any

 

[diddi]

see if this works. i am not able to test it

Sheets("Form").Shapes("P" & SLAnum.Value & "TextBox").Value = "N/A"

 

[quanweitkd]

see if this works. i am not able to test it

Sheets("Form").Shapes("P" & SLAnum.Value & "TextBox").Value = "N/A"

It returns the same error as before.