IF statement in sub procedure (syntax ?)

If this is based on a button click then the code will go under the ButtonName_Click event on the sheet the button is placed on.

In the Sub listed, you are using Excel Formulas instead of VBA syntax.

Please Login or Register  to view this content.

I cannot comment on the logic or correctness of the statements unless I can see what you are trying to do. A sample workbook depicting what your trying to accomplish would assist in providing assistance.

With out context on where the code is being run from I cannot say.

Send a sample workbook.... I don't have the time to recreate a test case based upon your description.

I do not know where this code is running from. The sub appears to be marked private ... the range syntax give assumes access to currently active worksheet. The sub being private may not have access. Again I do not have time to recreate all your textboxes and such to develop a test for your code.

Sorry this took awhile.... got busy at work. I have attached a copy of the workbook you sent me.

I noticed that you were using Form Controls instead of ActiveX Controls. ActiveX controls are much easier to work with while programming and are directly accessible through code. Form controls must be accessed through the Shapes collection. The drawback to ActiveX controls is that they have limited formatting possibilities unlike form controls.

Your error was do to a misplaced "." ....

I do not really work Form Controls if I am programming due to the difficulty in reaching their properties. I add some code to loop through all the Shapes to give me their names to verify the names in your code were correct. I also modified the code to work against the Shapes instead of ActiveX as your sample was written.

Everything seems to work .... I added an activex Button to reset all the TextBox Visibility to the original state.....

FormTextBoxSample.xlsm

Hi tkowal,

Very sorry for the delayed response. I know what it's like to get busy at work

That's so much for doing that. For some reason I was still having difficult and it was probably cascading from my poor programming elsewhere when I tried to copy paste that into the complete spreadsheet. I know what I want to do, and end up figuring it out, albeit sloppy but it as long as it gets the task at hand done, I suppose ok. Doesn't help folks like you. Definately saving your code for the future. Anyway, I hunted a VB person at work, he came up with this for me and it did the trick:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim First As String
Dim Second As String
First = Range("K32").Value
Second = Range("K34").Value
If First = "" Or Second = "" Then
ActiveSheet.Shapes("SFInstructionsTxt").Visible = True
ActiveSheet.Shapes("EligInstructionsTxt").Visible = True
ActiveSheet.Shapes("TextBox5").Visible = False
ActiveSheet.Shapes("TextBox6").Visible = False
ElseIf First = "PROCEED" And Second= "PROCEED" Then
ActiveSheet.Shapes("SFInstructionsTxt").Visible = False
ActiveSheet.Shapes("EligInstructionsTxt").Visible = True
ActiveSheet.Shapes("TextBox5").Visible = True
ActiveSheet.Shapes("TextBox6").Visible = False

ElseIf First = "INELIGIBLE" Or Second = "INELIGIBLE" Then
ActiveSheet.Shapes("SFInstructionsTxt").Visible = True
ActiveSheet.Shapes("EligInstructionsTxt").Visible = False
ActiveSheet.Shapes("TextBox5").Visible = False
ActiveSheet.Shapes("TextBox6").Visible = True
Else
ActiveSheet.Shapes("SFInstructionsTxt").Visible = True
ActiveSheet.Shapes("EligInstructionsTxt").Visible = True
ActiveSheet.Shapes("TextBox5").Visible = False
ActiveSheet.Shapes("TextBox6").Visible = False
End If
End Sub

Thanks again!

Hello MaddyG,

When posting code, please use code tags.