Boolean racking my brain

[eighty2scrambler]

Ok guys i need someone that can think through this boolean logically. its been a long day at work and now I'm trying to walk through this boolean thing to make sure my data will post on the right pages.

I have an Excel Macro that will capture inputted customer/vehicle data from an input screen, at the end, based on questions answered, i need to place that data on 1 of 4 sheets in my excel document.

The questions are:
Is this a Nationwide claim? (Y.N) (boolean = nw)
Is the vehicle here? (Y/N) (boolean = vh)

So here's what i got
if NW = true and VH = True then place data on "sheet1"
if NW = true and VH = False then place data on "Sheet2"
if NW = False and VH = true then place data on "sheet 3"
if NW = false and VH = False then place data on "sheet4"

I can't think of how to write this IF statement for this to happen. can't get the logic going.

OR IS THERE A BETTER WAY?? i'm sure there is....

Thanks to those who took time to read all this post

[shg]

Welcome to the forum. Your way is fine, and there are several others possible. Here's one.

    Dim bNW As Boolean
    Dim bVH As Boolean
    
    ' other code
    If bNW Then
        If bVH Then
            Sheet1.Select
        Else
            Sheet2.Select
        End If
    Else
        If bVH Then
            Sheet3.Select
        Else
            Sheet4.Select
        End If
    End If

Please take a few minutes to read the Forum Rules about thread titles before starting your next thread.

[Bob Phillips]

Select Case True
    Case NW And VH:         Set sh = Worksheets("sheet1")
    Case NW And Not VH:     Set sh = Worksheets("sheet2")
    Case Not NW And VH:     Set sh = Worksheets("sheet3")
    Case Not NW And Not VH: Set sh = Worksheets("sheet4")
End Select

Place data on sh

[eighty2scrambler]

see guys all i needed was little boost!

Thanks to both of you, I like to know i wasnt' oo far out in left field, but the case seems like it will work

THANKS!!!!!

[shg]

Or

Set sh = IIf(bNW, IIf(bVH, Sheet1, Sheet2), IIf(bVH(Sheet3, Sheet4)))

[Leith Ross]

Hello eighty2scrambler,

Here is another way using an algorithm derived from the logic expression...

  Sheets((Abs(Not NW) * 2 + Abs(Not VH)) + 1).Select

Sincerely,
Leith Ross

[shg]

Or

Sheets(1 - bNW * 2 - bVH).Select