Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default 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   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 11,272
Default 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   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Someone please Help!

Hi Bob:

How can I email you the workbook?

Alex


---
Message posted from http://www.ExcelForum.com/

  #4   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 11,272
Default 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   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default Someone please Help!

Thanks Bob. I will do it this morning.


Ale

--
Message posted from http://www.ExcelForum.com

Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT +1. The time now is 07:11 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"