FALSE instead of null in cell

[jarhead58]

Hello gang!

Quick question hopefully with a simple answer. Why would I get a FALSE in a cell that I set = to ""? This is in a Select Case statement. TIA

 

[jarhead58]

It replaces all of your code.

I tend to overthink things lol!!

 

[Fluff]

Only as long as it works, I could easily have missed something.

 

[jarhead58]

It works great for 12 episodes. What would I use to allow it to increment E6 if other seasons have say 14 after season 8?

 

[Fluff]

How about

Sub jarhead58()
    With Sheets("Sheet1")
        Select Case Range("E3").Value
            Case Is < 9
                If .Range("E6") = 12 Then
                    .Range("E6").Value = ""
                    .Range("E3").Value = .Range("E3").Value + 1
                Else
                    .Range("E6").Value = .Range("E6").Value + 1
                    If IsEmpty(.Range("$E3")) = True Then
                        .Range("$E3").Value = .Range("$E3").Value + 1
                    End If
                End If
            Case Is > 8
                If .Range("E6") = 14 Then
                    .Range("E6").Value = ""
                    .Range("E3").Value = .Range("E3").Value + 1
                Else
                    .Range("E6").Value = .Range("E6").Value + 1
                    If IsEmpty(.Range("$E3")) = True Then
                        .Range("$E3").Value = .Range("$E3").Value + 1
                    End If
                End If
        End Select
    End With
End Sub

 

[jarhead58]

How about

Sub jarhead58()
    With Sheets("Sheet1")
        Select Case Range("E3").Value
            Case Is < 9
                If .Range("E6") = 12 Then
                    .Range("E6").Value = ""
                    .Range("E3").Value = .Range("E3").Value + 1
                Else
                    .Range("E6").Value = .Range("E6").Value + 1
                    If IsEmpty(.Range("$E3")) = True Then
                        .Range("$E3").Value = .Range("$E3").Value + 1
                    End If
                End If
            Case Is > 8
                If .Range("E6") = 14 Then
                    .Range("E6").Value = ""
                    .Range("E3").Value = .Range("E3").Value + 1
                Else
                    .Range("E6").Value = .Range("E6").Value + 1
                    If IsEmpty(.Range("$E3")) = True Then
                        .Range("$E3").Value = .Range("$E3").Value + 1
                    End If
                End If
        End Select
    End With
End Sub

Thats awesome, thank you!! I would just add a case for any other season that differs correct?

 

[Fluff]

That's right, also if seasons 1-8, 11 & 15 were 12 episodes & seasons 9-10,12-4 & 16 were 14 episodes you can use it like

    With Sheets("Sheet1")
        Select Case Range("E3").Value
            Case 1 To 8, 11, 15
                If .Range("E6") = 12 Then
                    .Range("E6").Value = ""
                    .Range("E3").Value = .Range("E3").Value + 1
                Else
                    .Range("E6").Value = .Range("E6").Value + 1
                    If IsEmpty(.Range("$E3")) = True Then
                        .Range("$E3").Value = .Range("$E3").Value + 1
                    End If
                End If
            Case 9, 10, 12 To 14, 16
                If .Range("E6") = 14 Then
                    .Range("E6").Value = ""
                    .Range("E3").Value = .Range("E3").Value + 1
                Else
                    .Range("E6").Value = .Range("E6").Value + 1
                    If IsEmpty(.Range("$E3")) = True Then
                        .Range("$E3").Value = .Range("$E3").Value + 1
                    End If
                End If
        End Select
    End With

 

[jarhead58]

That's right, also if seasons 1-8, 11 & 15 were 12 episodes & seasons 9-10,12-4 & 16 were 14 episodes you can use it like

    With Sheets("Sheet1")
        Select Case Range("E3").Value
            Case 1 To 8, 11, 15
                If .Range("E6") = 12 Then
                    .Range("E6").Value = ""
                    .Range("E3").Value = .Range("E3").Value + 1
                Else
                    .Range("E6").Value = .Range("E6").Value + 1
                    If IsEmpty(.Range("$E3")) = True Then
                        .Range("$E3").Value = .Range("$E3").Value + 1
                    End If
                End If
            Case 9, 10, 12 To 14, 16
                If .Range("E6") = 14 Then
                    .Range("E6").Value = ""
                    .Range("E3").Value = .Range("E3").Value + 1
                Else
                    .Range("E6").Value = .Range("E6").Value + 1
                    If IsEmpty(.Range("$E3")) = True Then
                        .Range("$E3").Value = .Range("$E3").Value + 1
                    End If
                End If
        End Select
    End With

You know I had an elder moment! I completely forgot about using the multiple items in Case!!!
I guess in the beginning, I was somewhat on the right track lol!!

Thank you again Fluff!!

 

[Fluff]

You're welcome & thanks for the feedback