Case statement code please

attach please a sample file ad explain better your goal

Hi, jayce_sos,

you could add the line to each Case-statement or use

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngNumber As Long
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
  Select Case UCase(Target.Value)
    Case "AA"
      lngNumber = 5
    Case "BB"
      lngNumber = 7
    Case "CC", "DD", "EE"
      lngNumber = 15
    Case "FF", "GG"
      lngNumber = 30
    Case Else
      lngNumber = 0
  End Select
End If

If lngNumber > 0 Then
  Application.EnableEvents = False
  Target.Offset(0, 1).Value = lngNumber
  Application.EnableEvents = True
End If

End Sub

This will not check for any present value in the next column but write the number into that cell.

BTW: you should give this thread a more meaningful title according to Forum Rule #1.

CIao,
Holger

Hi, jayce_sos,

you would need to tell us what should be done with the value you get back by checking.

Code goes behind Sheet, right-click on the worksheet tab and paste code into code-window:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngNumber As Long
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
  Select Case UCase(Target.Value)
    Case "AA"
      lngNumber = 5
    Case "BB"
      lngNumber = 7
    Case "CC", "DD", "EE"
      lngNumber = 15
    Case "FF", "GG"
      lngNumber = 30
    Case Else
      lngNumber = 0
  End Select
End If
If lngNumber > 0 Then MsgBox "Corresponding Number is: " & lngNumber
End Sub

Ciao,
Holger