Tarihleri sayma

[Ahmet Sami]

Arkadaşlar sizden istediğim yardım, B sütununda bulunan tarihlerden hangi Yıl bazından tarihin kaç tane olduğunu bulmak, yani Örnek olarak E2 hücresine E1 hücresinde ki tarih kaç adet ise B sütunda bulup sayısını E2 hücresine yazsın diğerleri de aynı umarım anlatabilmişimdir. İşlem Formül veya makro ile olabilir makro olması benim için daha güzel olur. Teşekkür ederim.

 

[EmrExcel16]

Merhaba Dosyanız ektedir deneyin.

 

[Ahmet Sami]

Emr bey teşekkür ederim. Birde aynı verileri Sayfa2 ye sütun olarak aktarabilir miyiz. O şekilde de yardımcı olursanız sevinirim

 

[Ziynettin]

Sub kod()
Set d = CreateObject("scripting.dictionary")
With Sheets("Sayfa1")
    son = .Cells(Rows.Count, 2).End(3).Row
    a = .Range("B1:B" & son).Value
End With
For i = 1 To UBound(a)
    krt = Year(a(i, 1))
    d(krt) = d(krt) + 1
Next i

Sheets("Sayfa2").[A2].Resize(, d.Count) = d.keys
Sheets("Sayfa2").[A3].Resize(, d.Count) = d.items

'Sheets("Sayfa2").[A2].Resize(d.Count) = Application.Transpose(d.keys)
'Sheets("Sayfa2").[B2].Resize(d.Count) = Application.Transpose(d.items)
End Sub

 

[EmrExcel16]

Emr bey teşekkür ederim. Birde aynı verileri Sayfa2 ye sütun olarak aktarabilir miyiz. O şekilde de yardımcı olursanız sevinirim

Merhaba 2. mesajımdaki dosyayı güncelledim.

Sub Emr()
Dim i As Integer, x As Integer
Sheets("Sayfa2").Range("B4:B14").ClearContents
For x = 4 To 14
    For i = 1 To Sheets("Sayfa1").Cells(Rows.Count, 2).End(xlUp).Row
        If CStr(Format(Sheets("Sayfa1").Cells(i, 2), "yyyy")) = CStr(Sheets("Sayfa2").Cells(x, 1)) Then
             Sheets("Sayfa2").Cells(x, 2) = Sheets("Sayfa2").Cells(x, 2) + 1
        End If
    Next
Next
End Sub