bir günde kaç dosya açılmış

[cems]

bir günde kaç dosya var? saydırma

Değerli arkadaşlar

Kod yardımı ile , aslı 18 000 dosyadan oluşan bir excel listesinde her güne ait dosya sayısını saydırarak ikinci sayfaya

gün1 dosya1..........................................gün1 = dosya sayısı 2
gün1 dosya2....


gün2 dosya1..........................................gün2 = dosya sayısı 4
gün2 dosya2
gün2 dosya3
gün2 dosya4

şeklinde sayarak aldırmak için nasıl bir kod yazmak gerekir ?

Fikir ve yardımlarınız için şimdiden teşekkür ederim .

 

[cems]

Üstadlarımız için çok zor olmaz diye düşünüyordum ...

 

[leumruk]

Selamlar,
Ekli dosyayı inceleyiniz.

 

[leumruk]

Merhaba,
Syn. Cems,
Aşağıdaki kodu da kullanabilisiniz. İlk eklediğime göre daha kullanışlı olacaktır.

Sub listele()
Sheets("Sayfa2").Range("c:d").ClearContents
Son = [b65536].End(3).Row
Range("B6:B" & Son).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Sayfa2").Range("c6"), Unique:=True
For x = 7 To [Sayfa2!c65536].End(3).Row
Hücre = Sheets("Sayfa2").Cells(x, "c")
Sheets("Sayfa2").Cells(x, "d") = WorksheetFunction.CountIf(Range(Cells(7, "b"), Cells(Son, "b")), Hücre)
Next
End Sub

 

[cems]

Sayın Leumruk,

Yardım dolu cevaplarınız için müteşekkirim ...
İlk verdiğiniz dosyada bulunan kodları okuyarak yaptığı akışı anlamayı ve kendi dosyama uyarlamayı denedim , ilk takıldığım yer ( şurdan al say ve şuraya yaz ) şeklinde bir kodlama olmaması oldu. Sonradan anlıyorum ki tuşun çalıştığı sayfada "b" sütununu gözeterek sayıyor ve diğer sayfaya yazıyor.

Örnek ile kendi dosyam arasındaki fark , dosyamda tarihlerin c sütununda olması.

Kendi dosyamda sütun " c " sütununda ve ne kadar uğraştımsa DATA sayfasındaki " c " sütununu her nedense sayfa2 ye özetlettiremedim. Herhalde saatin etkisi , bu arada size cevap yazmak için girdiğimde yeniden verdiğiniz kodları da gördüm .

Şimdilik konuyu , dosyamdaki sütunu örnek üzerine kopyalayarak doğal haliyle çalıştırdım , mükemmel saydı ve sayfa2 ye sıraladı. Ben buna bir de grafik ( tarih ve sayı eksenli ) ekleyince yarınki ihtiyacı şimdilik sizin güzel yardımınızla çözmüş oldum. Çok hoş bir grafik oldu ve 18000 satırlık verim ayan beyan gün/sayı anlamında göründü.

Çok ama çok teşekkür ederim , eliniz fikriniz dert görmesin

Şimdi yeni verdiğiniz kodları incelemeye ve dosyama adapte etmeye çalışacağım. Dediğim gibi ( "burdan al" say sonra da şuraya yaz ) beklentimi yenmem gerekecek önce. Sonra da kodları doğru okumayı saatin etkisinden kurtularak başarmalıyım.

 

[leumruk]

Rica ederim. İşinize yaramasına sevindim. Kolay gelsin.