If statement not pulling values

[timwilks13]

I have 3 sheets in my excel document, one sheet is a pre-defined set of dates, on is a control page with selectable drop downs and buttons, and the third sheet shows the output of what im trying to do. On the control sheet you can select a month from a cell with a validate list, depending on what month you choose depends on which cell is selected on my date sheet. When i debug the script i get that my CurrentMonth string is returning as 0, rather than the string defined as below. Have i missed something blatantly obvious? I hope this makes some sort of sence!

Dim Month As String
Month = Sheets("Home").Range("B3").Value

Dim CurrentMonth As String

If Month = January Then
CurrentMonth = "B2"

ElseIf Month = February Then
CurrentMonth = "C2"

ElseIf Month = March Then
CurrentMonth = "D2"

ElseIf Month = April Then
CurrentMonth = "E2"

End If

[ragulduy]

Hi, if you do not put the string in a quote it will be consider it a variable. As you have not defined January/February etc the variable values will be 0.

Try:

Dim Month As String
Month = Sheets("Home").Range("B3").Value

Dim CurrentMonth As String

If Month = "January" Then
CurrentMonth = "B2"

ElseIf Month = "February" Then
CurrentMonth = "C2"

ElseIf Month = "March" Then
CurrentMonth = "D2"

ElseIf Month = "April" Then
CurrentMonth = "E2"

End If

Note - I would recommend writing code with "Option Explicit" -this will pick up on issues like this.

[timwilks13]

Hi, if you do not put the string in a quote it will be consider it a variable. As you have not defined January/February etc the variable values will be 0.

Try:

Dim Month As String
Month = Sheets("Home").Range("B3").Value

Dim CurrentMonth As String

If Month = "January" Then
CurrentMonth = "B2"

ElseIf Month = "February" Then
CurrentMonth = "C2"

ElseIf Month = "March" Then
CurrentMonth = "D2"

ElseIf Month = "April" Then
CurrentMonth = "E2"

End If

Note - I would recommend writing code with "Option Explicit" -this will pick up on issues like this.

Cheers man, still in a steep learning curve with VBA! Great help though so thanks!

[JOHN H. DAVIS]

Maybe?

Sub timwilks13()
Dim Month As String
Month = Sheets("Home").Range("B3").Value

Dim CurrentMonth As String

If Month = "January" Then
CurrentMonth = Range("B2").Value

ElseIf Month = "February" Then
CurrentMonth = Range("C2").Value

ElseIf Month = "March" Then
CurrentMonth = Range("D2").Value

ElseIf Month = "April" Then
CurrentMonth = Range("E2").Value

End If
End Sub