If statement in Vba

[FROGGER24]

in cell d2 need to look at the value in g2 if value is alphanumeric return value of B , otherwise value is S. Will need to run to last row determined column g. Thanks

 

[Joe4]

Can you show us what possible values you may have in cell G2?

 

[Yongle]

Try:

Place in Standard module

Sub IsAlphaNumeric()
    Dim rng As Range, cel As Range
    Set rng = Range("G2", Range("G" & Rows.Count).End(xlUp))
    
    For Each cel In rng
        If ContainsNumber(cel.Value) And Not WorksheetFunction.IsNumber(cel) Then
            cel.Offset(, -3) = "B"
        Else
            cel.Offset(, -3) = "S"
        End If
    Next
End Sub

Private Function ContainsNumber(celValue As String) As Boolean
    Dim a As Integer
     
    For a = 1 To Len(celValue)
        If IsNumeric(Mid(celValue, a, 1)) Then
            ContainsNumber = True
            Exit Function
        End If
    Next a
End Function

AlphaNumeric
- cell contains a number BUT cell value is not a number