Tarihi saydırma

[cems]

Değerli arkadaşlar ;

2 yıl gibi bir zamanı içeren bir listede " tekerrur eden tarihi" saydırmak gerekiyor.

Toplam 15000 satırlık ve her gun için ( yapılan iş farklı olduğundan ait olan tarih ) farklı sayıda ( tekerrur olarak ) tarih giriliyor. Eğersay formülü ile her tarih satırı için formülü düzeltmek gerektiğinden , bilgisi daha yoğun olan arkadaşlardan , sayfa1'deki 15000 satırı inceleyecek ve sayfa2'de tarihi bir kere yazıp yanına tekerrür sayısını çıkarabilecek şekilde bir kod ya da fonksiyon yardımı rica ediyorum.

Baktığım örneklerde iki tarih arasında belli bir şeyi saydırma var ama tarihin kendisini saydırıp ikinci sayfaya yazdırmaya yakın bir çalışma bulamadım.

Örnek ektedir

 

[Orion1]

Dosyanız ektedir.

Option Base 1
Sub mukerrer_59()
Dim liste(), i As Long, sat As Long, z As Object
Sheets("Sayfa2").Range("C7:E65536").ClearContents
sat = Sheets("Sayfa1").Cells(65536, "B").End(xlUp).Row
If sat < 6 Then Exit Sub
liste = Sheets("Sayfa1").Range("B6:B" & sat).Value
Set z = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(liste)
    If Not z.exists(liste(i, 1)) Then
        z.Add liste(i, 1), 1
        Else
        z.Item(liste(i, 1)) = z.Item(liste(i, 1)) + 1
    End If
Next i
Application.ScreenUpdating = False
Sheets("Sayfa2").Select
Range("C7").Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
Set z = Nothing
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[tukayf]

tskler evren bey.

 

[Orion1]

tskler evren bey.

Rica ederim.

 

[musculus]

Bilginize sağlık kodlar şiir gibi...

 

[Orion1]

Bilginize sağlık kodlar şiir gibi...

Rica ederim.
İyi çalışmalar.
Asıl onu siz hız testine sokunda görün.
Neler oluyor.
Şöyle 40 bin 50 bin satırlık bir yarışa sokun bakalım.
ADO'ya kafa tutar sanırım.

 

[cems]

Sayın Gizlen ,

Üstadlığınız önünde saygı ile eğiliyorum ... Kodu yazmaya kalksam 1 hafta , tarih saysam 1 hafta sürerdi herhalde .. Sizin kodlarınızla tam 2 saniye ve biraz küsur salise sürdü. Çok teşekkür ederim , inanılmaz zaman kazandırdınız ellerinize bilgilerinize sağlık .
Allah razı olsun demekten öte birşey yapabilsem keşke...

 

[Orion1]

Sayın Gizlen ,

Üstadlığınız önünde saygı ile eğiliyorum ... Kodu yazmaya kalksam 1 hafta , tarih saysam 1 hafta sürerdi herhalde .. Sizin kodlarınızla tam 2 saniye ve biraz küsur salise sürdü. Çok teşekkür ederim , inanılmaz zaman kazandırdınız ellerinize bilgilerinize sağlık .
Allah razı olsun demekten öte birşey yapabilsem keşke...

Rica ederim.
İyi çalışmalar.