| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
syntax for to upper case letters?
Hi I have a form coded involving the characters "P" and "Q". But I need
the form to still run without any runtime errors even though the user enters a lower case p or q. Whats the syntax for the to upper case letters. Here is my code. Keep in mind that this code works, I just need to add the to upper statement. r = Application.CountA(Range("A:A")) If Left(parttxt.Text, 1) = "P" And Left(qtytxt.Text, 1) = "Q" Then Range("A1").Offset(r + 1, 0) = Me.parttxt.Value Range("B1").Offset(r + 1, 0) = Me.qtytxt.Value Me.parttxt.Value = "" Me.qtytxt.Value = "" Me.parttxt.SetFocus Else: MsgBox "Wrong Part or Qty Scanned", vbCritical Me.parttxt.Value = "" Me.qtytxt.Value = "" Me.parttxt.SetFocus End If End Sub |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
syntax for to upper case letters?
try this
If UCase(Left(parttxt.Text, 1)) = "P" And UCase(Left(qtytxt.Text, 1)) = "Q" Then -- Gary "dex" wrote in message ups.com... Hi I have a form coded involving the characters "P" and "Q". But I need the form to still run without any runtime errors even though the user enters a lower case p or q. Whats the syntax for the to upper case letters. Here is my code. Keep in mind that this code works, I just need to add the to upper statement. r = Application.CountA(Range("A:A")) If Left(parttxt.Text, 1) = "P" And Left(qtytxt.Text, 1) = "Q" Then Range("A1").Offset(r + 1, 0) = Me.parttxt.Value Range("B1").Offset(r + 1, 0) = Me.qtytxt.Value Me.parttxt.Value = "" Me.qtytxt.Value = "" Me.parttxt.SetFocus Else: MsgBox "Wrong Part or Qty Scanned", vbCritical Me.parttxt.Value = "" Me.qtytxt.Value = "" Me.parttxt.SetFocus End If End Sub |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
syntax for to upper case letters?
Include 'Option Compare Text' at the top of the module and VBA will get it
right anyway. Alternatively, use the UCase$() function. "dex" wrote in message ups.com... Hi I have a form coded involving the characters "P" and "Q". But I need the form to still run without any runtime errors even though the user enters a lower case p or q. Whats the syntax for the to upper case letters. Here is my code. Keep in mind that this code works, I just need to add the to upper statement. r = Application.CountA(Range("A:A")) If Left(parttxt.Text, 1) = "P" And Left(qtytxt.Text, 1) = "Q" Then Range("A1").Offset(r + 1, 0) = Me.parttxt.Value Range("B1").Offset(r + 1, 0) = Me.qtytxt.Value Me.parttxt.Value = "" Me.qtytxt.Value = "" Me.parttxt.SetFocus Else: MsgBox "Wrong Part or Qty Scanned", vbCritical Me.parttxt.Value = "" Me.qtytxt.Value = "" Me.parttxt.SetFocus End If End Sub |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
syntax for to upper case letters?
Hi dex,
My guess is change the If line to: If (Left(parttxt.Text, 1) = "P" Or Left(parttxt.Text, 1) = "p") And (Left(qtytxt.Text, 1) = "Q" Or Left(qtytxt.Text, 1) = "q") Then But it's only a guess! Ken Johnson |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Upper Case Letters to First Letter Upper, Remaining Letters Lower | Excel Discussion (Misc queries) | |||
| find the upper case letters within a cell | Excel Discussion (Misc queries) | |||
| upper case letters | Excel Worksheet Functions | |||
| Upper Case Letters | Excel Discussion (Misc queries) | |||
| Formatting Upper Case letters | Excel Worksheet Functions | |||
Linear Mode
