Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Someone please Help!
Hi everyone:
I have a question about coding and need someone's hlep. I have a UserForm with 7 sets (#17, 18, 19, 20, 22, 24, & 25) of ˇ§Yesˇ¨, ˇ§Noˇ¨, ˇ§N/Aˇ¨ Option Buttons and a Text Box with an ˇ§Enterˇ¨ Button for users to answer 3 (#21, 23, & 26) questions. How can I code the "Enterˇ¨ button that each of the typed answers get transferred to G159, G163, and B170 respectively? The Text Box appears for question #21 when user clicks ˇ§YESˇ¨ on #20; the box appears again for #23 when user clicks either ˇ§YESˇ¨ or ˇ§NOˇ¨ on #22. The Text Box appears once again for #26 when user clicks either ˇ§YESˇ¨ or ˇ§NOˇ¨ on #25. I coded the following and for some reason, the text for #23 sent to G159 instead of G163. Also, the Option Buttons for #24 didnˇ¦t appear. Please help. Private Sub cmdEnterQ2_Click() 'Hide the frame Frame212326.Visible = False 'Check for completeness If txtQ2.Text = "" Then MsgBox "Please enter information!" Frame212326.Visible = True Exit Sub End If ' Procedure for #21: If optYes20.Value = True Then Sheets("Report").Range("G159") = txtQ2.Text Frame22.Visible = True txtQ2 = "" Exit Sub End If ' Procedure for #23: If optYes22.Value = True Or optNo22.Value = True Then Sheets("Report").Range("G163") = txtQ2.Text Frame24.Visible = True txtQ2 = "" Exit Sub End If ' Procedure for #26: If optYes25.Value = True Or optNo25.Value = True Then Sheets("Report").Range("B170") = txtQ2.Text Call cmdExitVisible txtQ2 = "" Exit Sub End If End Sub Thanks in advance. Alex --- Message posted from http://www.ExcelForum.com/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Someone please Help!
Alex,
Might take some time to setup a test. Why don't you mail me a workbook and I will take a look, -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Someone please Help!
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Someone please Help!
bob . phillips @ tiscali . co . uk
remove the spaces -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) "inbound03 " wrote in message ... Hi Bob: How can I email you the workbook? Alex --- Message posted from http://www.ExcelForum.com/ |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Someone please Help!
|
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|