Else If Confusion in VBA

**SAsplin** · 06-27-2011, 09:56 AM

Hi folks

Yet again I show my ignorance. I've got a combo box with the months of the year linked to cell A30.

Why, in the code below does the code work perfectly for August, but nothing happens for May:


Private Sub ComboBox1_Change()

    If Range("A30") = "August" Then
       
    
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight
    Range("I4").Select
    ActiveCell.FormulaR1C1 = "August"
    
    Else
    
    If Range("A30") = May Then
    
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight
    Range("I4").Select
    ActiveCell.FormulaR1C1 = "May"
        
    End If
    End If
    
        
End Sub

Thanks

Steve

**SAsplin** · 06-27-2011, 10:02 AM

Don't worry! I've noticed the blunder!

**TMS** · 06-27-2011, 10:04 AM

Probably because you're missing quotes around May and it is being seen as an undefined variable with null content.

Maybe:

Private Sub ComboBox1_Change()
    If Range("A30") = "August" Then
        Columns("I:I").Insert Shift:=xlToRight
        Range("I4").FormulaR1C1 = "August"
    End If
    If Range("A30") = "May" Then
        Columns("I:I").Insert Shift:=xlToRight
        Range("I4").FormulaR1C1 = "May"
    End If
End Sub

Regards

**MarvinP** · 06-27-2011, 10:06 AM

Hi,
Try this

Private Sub ComboBox1_Change()

    If Range("A30") = "August" Then
        Columns("I:I").Select
        Selection.Insert Shift:=xlToRight
        Range("I4").Select
        ActiveCell.FormulaR1C1 = "August"
    End If
   
    If Range("A30") = "May" Then
        Columns("I:I").Select
        Selection.Insert Shift:=xlToRight
        Range("I4").Select
        ActiveCell.FormulaR1C1 = "May"
    End If
        
End Sub