Multiple Comboboxes

[MrThor]

Hi,

I Have three comboboxes called "År", "Månad" And "Dag". I want "Dag" depend on the values from the other two comboboxes. The first code works for "Dag" depending on "År", then I added an And statement to include "Månad" but after that it doesnt work. Anyone knows what the error is?

Private Sub År_Change()


Dim j As Integer


Application.EnableEvents = False
Dag.Clear
Application.EnableEvents = True


For j = 0 To 100 Step 4


If År = 2016 + j Then
        Call Månad_skottår
End If




Next j




End Sub

Private Sub År_Change()


Dim j As Integer


Application.EnableEvents = False
Dag.Clear
Application.EnableEvents = True


For j = 0 To 100 Step 4


If År = 2016 + j Then And Me.År.Value = "Februari"
        Call Månad_skottår
End If




Next j


End Sub

Thanks for your help

 

[Yongle]

Then is in the wrong place

If År = 2016 + j [COLOR=#b22222]Then[/COLOR] And Me.År.Value = "Februari"
        Call Månad_skottår
End If

TRY

If År = 2016 + j And Me.År.Value = "Februari" [COLOR=#b22222]Then[/COLOR]
        Call Månad_skottår
End If

 

[MrThor]

Hi, actually, I just forgot to wrote in in the thread, but it odes not work in that way anyway...

 

[Yongle]

I want "Dag" to depend on the values from År & Månad

If [COLOR=#ff0000]År[/COLOR] = 2016 + j And Me.[COLOR=#ff0000]År[/COLOR].Value = "Februari" Then

Where is Månad in the code?

 

[MrThor]

Hi, again an error from me, but it still doesnt work.

Private Sub År_Change()


Dim j As Integer


Application.EnableEvents = False
Dag.Clear
Application.EnableEvents = True


For j = 0 To 100 Step 4


If År = 2016 + j Then And Me.Månad.Value = "Februari" Then
        Call Månad_skottår
End If


Next j


End Sub

 

[Yongle]

Are the 3 comboboxes on a userform?

 

[MrThor]

Yes, that is correct!

 

[Yongle]

Be very careful with VBA. VBA is cruel and very picky! It punishes every mistake -check everything. Be PRECISE

3 errors in a short thread

1

Hi, actually, I just forgot to wrote in in the thread, but it odes not work in that way anyway...

2

Hi, again an error from me, but it still doesnt work.

3
I said try:

If År = 2016 + j [COLOR=#ff0000]And[/COLOR] Me.År.Value = "Februari" Then

and this is what you put in your code:

If År = 2016 + j [COLOR=#ff0000]Then And[/COLOR] Me.Månad.Value = "Februari" Then

This method works for me

Private Sub År_Change()
    Dim j As Integer
    Application.EnableEvents = False
        Dag.Clear
    Application.EnableEvents = True
    For j = 0 To 100 Step 4
        If År = (2016 + j) And Månad = "Februari" Then
            Call Månad_skottår
        End If
    Next j
End Sub