optimize if with range(vba for excel)

[sal21]

Actually have

Code: Select all

If Mid(TEST, 12, 19) = "OPERAZIONE ESEGUITA" And new condition Then

in new condition i want to set a series of values

how to?

note:
the series of avlue are in a column A of sheet1

similar:
aa
cc
vv
ff
gg
...
tt

[HansV]

Please explain what you mean by "i want to set a series of values".

[sal21]

Please explain what you mean by "i want to set a series of values".

Instead
If Mid(TEST, 12, 19) = "OPERAZIONE ESEGUITA" or cod="aa" or cod="cc" or cod="vv".... then

[HansV]

You could do it like this:

Code: Select all

If Mid(TEST, 12, 19) =  "OPERAZIONE ESEGUITA" Then
  Select Case cod
    Case "aa", "cc", "vv", "ff", "gg", ..., "tt"
      ' code here for when cod is one of the above values
    Case Else
      ' code here for when cod is NOT one of the above values
  End Select
End If

[sal21]

You could do it like this:

Code: Select all

If Mid(TEST, 12, 19) =  "OPERAZIONE ESEGUITA" Then
  Select Case cod
    Case "aa", "cc", "vv", "ff", "gg", ..., "tt"
      ' code here for when cod is one of the above values
    Case Else
      ' code here for when cod is NOT one of the above values
  End Select
End If

TKS!