VBA Select Case condition does not recognizw 1st character numeral

f_htn · Apr 27th 2016

I am trying to get the SECOND SELECT CASE to recognize the first numeric character invx2 = "305g" for further processing
it does not recognize it

If I convert it to an IF statement it processes fine, but it would be easier if it remains a Case statement as it is just one of several conditions

Can anyone tell me why it doesn't work and or how to fix it
Thanks

Code

Sub test305g()
Dim item As String
vx1 = "305"
vx2 = "305g"
item = "1 305g can paint"


Range("b1:b2").ClearContents


Select Case vx1
    Case IsNumeric(Left(vx1, 1))
    Range("b1").Value = item
End Select




Select Case vx2
    Case IsNumeric(Left(vx2, 1))
        Range("b2").Value = item
End Select


If IsNumeric(Left(vx2, 1)) Then  'no space metric
       Range("b3").Value = item
 End If






End Sub

Display More

OldFriend · Apr 27th 2016

Re: VBA Select Case condition does not recognizw 1st character numeral

I'm not sure what you're trying to do with the 'Select Case', but base on your If statement, you're trying to check if vx2 isNumeric. If it is then write Item to B3.

Code

Sub test305g()
    Dim item As String, vx1, vx2
    vx1 = "305"
    vx2 = "305g"
    item = "1 305g can paint"
    
    Range("B1:B2").ClearContents
    
    Select Case True
        Case IsNumeric(Left(vx1, 1))
        Range("b1").Value = item
    End Select
    
    
    Select Case True
        Case IsNumeric(Left(vx2, 1))
        Range("b2").Value = item
    End Select
    
    If IsNumeric(Left(vx2, 1)) Then 'no space metric
    Range("b3").Value = item
    End If
End Sub

Display More

f_htn · Apr 28th 2016

Re: VBA Select Case condition does not recognizw 1st character numeral

I know that vx2 is non numeric, what I want to determine is whether or not the first character of vx2 is numeric or not

Quote from OldFriend;769973

I'm not sure what you're trying to do with the 'Select Case', but base on your If statement, you're trying to check if vx2 isNumeric. If it is then write Item to B3.

Code

Sub test305g()
    Dim item As String, vx1, vx2
    vx1 = "305"
    vx2 = "305g"
    item = "1 305g can paint"
    
    Range("B1:B2").ClearContents
    
    Select Case True
        Case IsNumeric(Left(vx1, 1))
        Range("b1").Value = item
    End Select
    
    
    Select Case True
        Case IsNumeric(Left(vx2, 1))
        Range("b2").Value = item
    End Select
    
    If IsNumeric(Left(vx2, 1)) Then 'no space metric
    Range("b3").Value = item
    End If
End Sub

Display More

**pike** · Apr 28th 2016

Re: VBA Select Case condition does not recognizw 1st character numeral

Hi f_htn,
No need to quote messages back. You will have to explain what you are doing as your request is solved with

Code

Dim item As String, vx1, vx2
    vx1 = "305"
    vx2 = "305g"
    item = "1 305g can paint"
     
    Range("B1:B2").ClearContents
  for each xItem in array(vx1,vx2)   
    Select Case True
    Case IsNumeric(Left(vx1, 1))
        Range("b1").Value = item
   
    Case IsNumeric(Left(vx2, 1))
        Range("b2").Value = item
        Range("b3").Value = item
    End Select
next

Display More

what is the problem not your anticipated result

**pike** · Apr 28th 2016

Re: VBA Select Case condition does not recognizw 1st character numeral

ops should be

Code

Option Explicit


Sub test305g()
   Dim item As String, vx1 As String, vx2 As String, xitem
vx1 = "305"
vx2 = "305g"
item = "1 305g can paint"
 
Range("B1:B2").ClearContents


For Each xitem In Array(vx1, vx2)
    Select Case True
    Case IsNumeric(Left(xitem, 1))
        Range("b1").Value = item
         
    Case IsNumeric(Left(xitem, 1))
        Range("b2").Value = item
        Range("b3").Value = item
    End Select
Next


     


End Sub

Display More

VBA Select Case condition does not recognizw 1st character numeral

Participate now!

Share