De datums in kolom A staan NIET in volgorde.!!!!
Met 3 ComboBoxen wordt naar een datum gezocht in kolom A.
Als je nu naar 1/februari/2019 zoekt (maandwaarde =2)
Scrolt de rode code-regel naar de eerste maand die de waarde 2 bevat (dus ook de maand dec).
In dit geval naar 1/12/2019
Idem voor januari, de rode coderegel scrolt naar de eerste maand die de waarde 1 bevat (dus ook okt. , nov. en dec.).
Ik meen te weten dat voor [LookIn:=] alleen [xlComments; xlFormulas; en xlValues] mogelijk zijn.
Is hier een oplossing voor?
Met 3 ComboBoxen wordt naar een datum gezocht in kolom A.
Code:
Private Sub ComboBox3_Change()
Dim tmp As Variant, FirstAddress As Variant
If ComboBox3.ListIndex > -1 Then
tmp = DateSerial(ComboBox1.Value, ComboBox2.ListIndex + 1, ComboBox3.Value)
With Worksheets(1).Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
[COLOR="#FF0000"] Set c = .Find(tmp, LookIn:=xlValues)[/COLOR]
If Not c Is Nothing Then
FirstAddress = c.Address
Application.Goto ActiveSheet.Range(FirstAddress), Scroll:=True
Else
MsgBox "Datum niet gevonden"
End If
End With
ComboBox1.ListIndex = -1
ComboBox2.ListIndex = -1
ComboBox3.Clear
End If
End Sub
Scrolt de rode code-regel naar de eerste maand die de waarde 2 bevat (dus ook de maand dec).
In dit geval naar 1/12/2019
Idem voor januari, de rode coderegel scrolt naar de eerste maand die de waarde 1 bevat (dus ook okt. , nov. en dec.).
Ik meen te weten dat voor [LookIn:=] alleen [xlComments; xlFormulas; en xlValues] mogelijk zijn.
Is hier een oplossing voor?