Hi all,
I am trying to change a variable depending on a character in a string (it should be different if the character is a V, W or L). Right now the code doesn't seem to get into the second If statement and I am not sure why, because it should go to the ElseIf statement to check that condition. None of the conditions are being met.
Is there a problem with my method of checking if the variable is a certain character?
Please let me know if there is method to do this, or a fix to my code to get it working.
Sub IfANDElseStuff()
Dim J As String, LetterV As String, LetterW As String, LetterL As String
SeedWaferName = "SPW010232C"
SeedWaferNumber = Mid(SeedWaferName, 4, 4) & Mid(SeedWaferName, 9, 2)
J = Mid(SeedWaferName, 3, 1)
LetterV = Chr(86)
LetterW = Chr(87)
LetterL = Chr(76)
Debug.Print "J " & J
If IsNumeric(J) Then
Debug.Print "J is " & J
'Wafer is SPV
ElseIf J = LetterV Then
SeedWaferXRDFile = SeedWaferNumber
'Wafer is SPW
If J = LetterW Then
SeedWaferXRDFile = "W" & Mid(SeedWaferName, 4, 4) & Mid(SeedWaferName, 6, 2)
SeedWaferNumber = "W" & SeedWaferNumber
'Wafer is SPL
ElseIf J = LetterL Then
SeedWaferXRDFile = "L" & Mid(SeedWaferName, 4, 4) & Mid(SeedWaferName, 6, 2)
SeedWaferNumber = "L" & SeedWaferNumber
End If
End If
Debug.Print "SeedWaferXRDFile is " & SeedWaferXRDFile
End Sub
I tried
and
also, but neither seems to work.
Bookmarks