Tarih sırala

[nadirornek]

Merhaba

B sutunundaki birden fazla aynı tarih var açılır kutuya aldığım zaman aynı tarihten bir adet olabilirmi


http://www.upload.gen.tr/d.php/s6/6150y9aw/Tarih_s__rala.xls.html

 

[Orion1]

Dosyanız ekte.

Sub liste()
Dim i As Long, myarr, a As Long
ReDim myarr(1 To 1, 1 To 1)
With Sheets("Sayfa1")
    .ComboBox1.Clear
    For i = 5 To .Cells(65536, "B").End(xlUp).Row
        If WorksheetFunction.CountIf(.Range("B5:B" & i), .Cells(i, "B").Value) = 1 Then
            a = a + 1
            ReDim Preserve myarr(1 To 1, 1 To a)
            myarr(1, a) = Format(.Cells(i, "B").Value, "dd.mm.yyyy")
        End If
    Next i
    If a > 0 Then
    .ComboBox1.Column = myarr
    .ComboBox1.ListIndex = 0
End If
End With
End Sub

 

[nadirornek]

Teşekkürler sıralama tamam .combobox tan seçtiğim tarihten B sutununda kaç tane olduğunu bir hücrede gösterebilirmiyiz.Veri doğrulama ile yaptım ama onda birden fazla tarih var.

 

[Orion1]

Teşekkürler sıralama tamam .combobox tan seçtiğim tarihten B sutununda kaç tane olduğunu bir hücrede gösterebilirmiyiz.Veri doğrulama ile yaptım ama onda birden fazla tarih var.

Dosyanız ekte.

Private Sub ComboBox1_Change()
Range("M5").Value = 0
On Error Resume Next
If ComboBox1.Value = "" Then Exit Sub
Range("M5").Value = WorksheetFunction.CountIf(Range("B5:B" & Cells(65536, "B").End(xlUp).Row), CDate(ComboBox1.Value))
End Sub

 

[nadirornek]

Teşekkürler
Emeğe saygı ve sevgiler hayırlı geceler

 

[Orion1]

Teşekkürler
Emeğe saygı ve sevgiler hayırlı geceler

İyi geceler.