Private Sub userform_initialize()
derlig = Range("A65536").End(xlUp).Row
For i = 1 To derlig
If Left(Cells(i, 1), 4) = "Date" Then
'a = Cells(i, 1)
ComboBox1.AddItem Cells(i, 1)
End If
Next i
End Sub
Private Sub userform_initialize()
derlig = Range("A65536").End(xlUp).Row
For i = 1 To derlig
'If Left(Cells(i, 1), 4) = "Date" Then
Cells(i, 1).Select
If Selection.NumberFormat = "m/d/yyyy" Then
ComboBox1.AddItem Cells(i, 1)
End If
Next i
End Sub
Private Sub userform_initialize()
derlig = Range("A65536").End(xlUp).Row
For i = 1 To derlig
'If Left(Cells(i, 1), 4) = "Date" Then
Cells(i, 1).Select
If Selection.NumberFormat = "m/d/yyyy" Or Selection.NumberFormat = "[$-F800]dddd, mmmm dd, yyyy" Then
ComboBox1.AddItem Cells(i, 1)
End If
Next i
End Sub