Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modify code to Add ComboBoxes instaed of Textbox values on Userform ?
Was:
Sub AddTxBxs() ' This Code Worked great for Textboxes Dim TxBx As Control Const T As String = "TextBox" Dim sng122Total As Single For Each TxBx In UserForm11.Controls Select Case TxBx.Name Case T & 62, T & 63, T & 66, T & 64, T & 65, T & 66, T & 67, T & 68, T & 69, T & 70, T & 71 If IsNumeric(TxBx.Text) Then sng122Total = sng122Total + TxBx.Text End If End Select Next TxBx UserForm11.TextBox122.Text = sng122Total end sub I have changed the Textboxes not to Comboboxes, So i change the above to : Sub AddCmbs() " This Code Does Not Add the Comboboxes Dim ComboBox As Control Const cmb As String = "ComboBox" Dim sng122Total As Single For Each cmb In UserForm11.Controls Select Case cmb.Name Case cmb & 23, cmb & 24, cmb & 25, cmb & 26, cmb & 27, cmb & 28, cmb & 29, cmb & 30, cmb & 31, cmb & 32 If IsNumeric(cmb.Text) Then sng122Total = sng122Total + cmb.Text End If End Select Next cmb UserForm11.TextBox122.Text = sng122Total end sub Can someone let me know why and/or how to get it to work ? Corey.... |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modify code to Add ComboBoxes instaed of Textbox values on Userform ?
Change cmb to ComboBox in at least these lines:
For Each cmb In UserForm11.Controls Select Case cmb.Name If IsNumeric(cmb.Text) Then sng122Total = sng122Total + cmb.Text Also, you shouldn't use existing keywords ("ComboBox") as variable names. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "Tushar Mehta" wrote in message om... Look at the original code and how it has two different variables T and TxBx. Now, contrast that with your code and how even though you declare two different variables you use only one. At a minimum you have to fix that. Of course, fixing the above may not solve your problem since you haven't even stated what you want the code to do. ;-) -- Regards, Tushar Mehta www.tushar-mehta.com Excel, PowerPoint, and VBA add-ins, tutorials Custom MS Office productivity solutions In article , says... Was: Sub AddTxBxs() ' This Code Worked great for Textboxes Dim TxBx As Control Const T As String = "TextBox" Dim sng122Total As Single For Each TxBx In UserForm11.Controls Select Case TxBx.Name Case T & 62, T & 63, T & 66, T & 64, T & 65, T & 66, T & 67, T & 68, T & 69, T & 70, T & 71 If IsNumeric(TxBx.Text) Then sng122Total = sng122Total + TxBx.Text End If End Select Next TxBx UserForm11.TextBox122.Text = sng122Total end sub I have changed the Textboxes not to Comboboxes, So i change the above to : Sub AddCmbs() " This Code Does Not Add the Comboboxes Dim ComboBox As Control Const cmb As String = "ComboBox" Dim sng122Total As Single For Each cmb In UserForm11.Controls Select Case cmb.Name Case cmb & 23, cmb & 24, cmb & 25, cmb & 26, cmb & 27, cmb & 28, cmb & 29, cmb & 30, cmb & 31, cmb & 32 If IsNumeric(cmb.Text) Then sng122Total = sng122Total + cmb.Text End If End Select Next cmb UserForm11.TextBox122.Text = sng122Total end sub Can someone let me know why and/or how to get it to work ? Corey.... |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Printing text from a textbox in a userform using vba code | Excel Programming | |||
Help with UserForm textbox code | Excel Programming | |||
Help with UserForm textbox code | Excel Programming | |||
Adding TextBox to UserForm via code | Excel Programming | |||
Adding up values of textbox in Userform | Excel Programming |