Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
focus?
hi, i have a 6 text boxes which i only allow number to be entered. Bu
how can i make it so that when the user clicks accept, and a textbo has a value higher than 16 or lower than 0, that box is selected; ha focus? here is what i have: If Val(Sheet3.txtU1) 16 Or Val(Sheet3.txtU1) < 0 Then MsgBox "Please enter a number between 0 and 16 for Unit 1." vbOKOnly, "Invalid Value" Sheet3.txtU2.SetFocus End If but set focus dosn't work. thanks for any help -- Message posted from http://www.ExcelForum.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
focus?
Use Activate not SetFocu
Sheet3.txtU2.Activate ----- Chrome wrote: ---- hi, i have a 6 text boxes which i only allow number to be entered. Bu how can i make it so that when the user clicks accept, and a textbo has a value higher than 16 or lower than 0, that box is selected; ha focus here is what i have If Val(Sheet3.txtU1) 16 Or Val(Sheet3.txtU1) < 0 The MsgBox "Please enter a number between 0 and 16 for Unit 1." vbOKOnly, "Invalid Value Sheet3.txtU2.SetFocu End I but set focus dosn't work. thanks for any help -- Message posted from http://www.ExcelForum.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
focus?
ok thanks i now have this code:
If Val(Sheet3.txtU1) 16 Or Val(Sheet3.txtU1) < 0 Then MsgBox "Please enter a number between 0 and 16 for Unit 1.", vbOKOnly, "Invalid Value" Sheet3.txtU1.Activate Sheet3.txtU1.SelStart = 0 Sheet3.txtU1.SelLength = Len(Sheet3.txtU2) End If but it highlights sheet3.txtu1.activate with the error shown in the attatchment. Attachment filename: error.jpg Download attachment: http://www.excelforum.com/attachment.php?postid=543854 --- Message posted from http://www.ExcelForum.com/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
focus?
Works fine for me! Don't know what to tell you! Are you sure thats the valid name for the TextBox If Val(Sheet3.txtU1) 16 Or Val(Sheet3.txtU1) < 0 The MsgBox "Please enter a number between 0 and 16 for Unit 1." vbOKOnly, "Invalid Value Sheet3.txtU1.Activat Sheet3.txtU1.SelStart = Sheet3.txtU1.SelLength = Len(Sheet3.txtU2 End I but it highlights sheet3.txtu1.activate with the error shown in th attatchment Attachment filename: error.jpg Download attachment: http://www.excelforum.com/attachment.php?postid=54385 -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
focus | Excel Discussion (Misc queries) | |||
set focus | Excel Discussion (Misc queries) | |||
Set Focus | Excel Programming | |||
How do I set focus | Excel Programming | |||
set focus | Excel Programming |