IF THEN ELSE (vba)

[gtd526]

Hello,
If rng = playoff,div,champ,sb then dont perform anything
if rng = 1 thru 17 then perform bottom half
thank you.

Sub test()

Dim rng As Range

Set rng = Worksheets("Weekly Picks").Range("B1")
'MsgBox rng
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'works, is there a shorter code?
'update My ATS Avg using week #(B1), copy/paste
    If rng = "Playoff" Or _
       rng = "DIV" Or _
       rng = "Champ" Or _
       rng = "SB" Then
    Else
    End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'dosent work!
'    If rng = "Playoff" Or "DIV" Or "Champ" Or "SB" Then
'    MsgBox rng
'    Else
'    End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''bottom half
'dont want to perform if above is true, perform iif rng = 1 thru 17??
'PDate is a Week #
    PDate = Worksheets("Weekly Picks").Range("B1")
    Worksheets("My ATS Avg").Select
    Set foundRng = Rows(2).Find(PDate)
        foundRng.Select
        ActiveCell.Offset(1, 0).Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Copy
        Selection.PasteSpecial xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Application.CutCopyMode = False
  
End Sub

 

[Saurabhj]

Hi,

use below code:

Sub test()
    Dim rng As Range
    Set rng = Worksheets("Weekly Picks").Range("B1")
    If rng >= 1 And rng <= 17 Then
            MsgBox rng
    End If
End Sub

 

[Michael M]

Do you mean you want

If rng = "Playoff" Or rng = "DIV" Or rng = "Champ" Or rng = "SB" Then Exit Sub

 

[gtd526]

Hi,

use below code:

Sub test()
    Dim rng As Range
    Set rng = Worksheets("Weekly Picks").Range("B1")
    If rng >= 1 And rng <= 17 Then
            MsgBox rng
    End If
End Sub

Thank you for the reply.