Problem with removing qoutes from string

S

suekay

Hi, Can anyone help me with this problem?

I have 6 textboxes that I want to make visible on the excel page by
using a For loop. However I am having a problem with the quotes

Code:

For ModuleNo = 1 To 6
StrTxtCalcElevHeightorDepth = ("Txt_Calc_Elev_HeightorDepth_" &
ModuleNo & "")
StrTxtCalcElevHeightorDepth.Visible = True
Next ModuleNo

Txt_Calc_Elev_HeightorDepth_1 is a textbox

The code above means that StrTxtCalcElevHeightorDepth =
"Txt_Calc_Elev_HeightorDepth_1". The quotes are causing a problem -
anyone know how to remove them?


thank you
 
T

Tom Ogilvy

Sub Tester1()
Dim obj As OLEObject
Dim tbox As msforms.TextBox
For Each obj In ActiveSheet.OLEObjects
If TypeOf obj.Object Is msforms.TextBox Then
Set tbox = obj.Object
If tbox.Name Like "Txt_Calc_Elev_HeightorDepth_#" Then
obj.Visible = True
End If
End If
Next
End Sub

This assumes the name property of the control toolbox toolbar textboxes
(activeX) are actually Txt_Calc_Elev_HeightorDepth_1 through 6

worked for me.
 
S

suekay

Hi tom,

Thanks for the reply. I see where you are coming from. I have been
trying to use your code to cover my problem but couldn't come up with
the answer


Here is part of my original code:

If Txt_Height_A_1.Visible = True Then
Txt_Calc_Elev_HeightorDepth_1.Visible = True
Txt_Calc_Elev_Width_1.Visible = True
Txt_Calc_Mod_Qty_1.Visible = True
Worksheets("Solarfin").Range("f16").Value = "Calc Module Sizes &
Qty"
Selection.Font.Bold = True
Cmd_Calc_1.Visible = True
Else
Txt_Calc_Elev_HeightorDepth_1.Visible = False
Txt_Calc_Elev_Width_1.Visible = False
Txt_Calc_Mod_Qty_1.Visible = False
Worksheets("Solarfin").Range("f16").Value = ""
Cmd_Calc_1.Visible = False
End If

This repeats 6 times. The 6 textboxes only need to be visible if
Txt_Height_A_1.Visible = True or Txt_Height_A_2.Visible = True etc.
"Txt_Height_A_#".visible = true does not work. any ideas?
 
S

suekay

Hi tom,

Thanks for the reply. I see where you are coming from. I have bee
trying to use your code to cover my problem but couldn't come up wit
the answer


Here is part of my original code:

If Txt_Height_A_1.Visible = True Then
Txt_Calc_Elev_HeightorDepth_1.Visible = True
Txt_Calc_Elev_Width_1.Visible = True
Txt_Calc_Mod_Qty_1.Visible = True
Worksheets("Solarfin").Range("f16").Value = "Calc Module Sizes
Qty"
Selection.Font.Bold = True
Cmd_Calc_1.Visible = True
Else
Txt_Calc_Elev_HeightorDepth_1.Visible = False
Txt_Calc_Elev_Width_1.Visible = False
Txt_Calc_Mod_Qty_1.Visible = False
Worksheets("Solarfin").Range("f16").Value = ""
Cmd_Calc_1.Visible = False
End If

This repeats 6 times. The 6 textboxes only need to be visible if
Txt_Height_A_1.Visible = True or Txt_Height_A_2.Visible = True etc.
"Txt_Height_A_#".visible = true does not work. any ideas
 
S

suekay

Hi tom,

Thanks for the reply. I see where you are coming from. I have bee
trying to use your code to cover my problem but couldn't come up wit
the answer


Here is part of my original code:

If Txt_Height_A_1.Visible = True Then
Txt_Calc_Elev_HeightorDepth_1.Visible = True
Txt_Calc_Elev_Width_1.Visible = True
Txt_Calc_Mod_Qty_1.Visible = True
Worksheets("Solarfin").Range("f16").Value = "Calc Module Sizes
Qty"
Selection.Font.Bold = True
Cmd_Calc_1.Visible = True
Else
Txt_Calc_Elev_HeightorDepth_1.Visible = False
Txt_Calc_Elev_Width_1.Visible = False
Txt_Calc_Mod_Qty_1.Visible = False
Worksheets("Solarfin").Range("f16").Value = ""
Cmd_Calc_1.Visible = False
End If

This repeats 6 times. The 6 textboxes only need to be visible if
Txt_Height_A_1.Visible = True or Txt_Height_A_2.Visible = True etc.
"Txt_Height_A_#".visible = true does not work. any ideas
 
Top