Çözüldü Belirtilen Saat Aralığı Rapor Hazırlama

[gicimi]

Merhaba;

Ekteki çalışma kitabı konusunda yardımcı olabilir misiniz.

Amaç:
Buton yardımı ile Yeni sayfa açması ve Kullanıcı ve tarih bilgisine göre belirtilen saatler arasındaki ilk saati ve son saatin yazması gerekmekte,
Saat verileri değişkendir.
Arama yapılan liste 150.000-250.000 satırdan oluşmaktadır.

 

[turist]

Başlangıç olarak, ekli dosyayı inceleyiniz.
Pivot Table fikir vermesi açısından kullanılmıştır.Farklı çözümler kullanılabilir.
İyi çalışmalar.

 

[gicimi]

Sn. @turist pivottable için teşekkür ederim. Bu çalışmayı makro ile nasıl yapıldığını anlamak ve öğrenmek konuya benzer çalışmalarda kullanmak istiyorum.

 

[turist]

Yapılan kısaca şudur:
1-Sheet1 de D sütununda "Yardımcı sütun" kullanılmış, C sütunundaki bilgiler aynen D'ye kopyalanmıştır.
2-Sheet1 de A : D sütunlarının tamamı seçilerek "PivotTable"eklenmiş, eklenirken "Başka sayfa"da olması seçilmiştir.
3-Seçilen yeni sayfaya "YeniSayfa" adı verilmiştir.
4-PivotTable oluşturulurken Kullanıcı Adı ve Tarih Satır, Değerler "Sütun" olarak konuölandırlılmıştır.
Değerler kısmına "Toplam İş Adeti" (C sütun Başlığı) ve "Toplam İş Adeti2" (D sütun başlığı) alınmıştır.
Toplam İş Adeti "Min"(Minimum) Toplam İş Adeti2 "Maks"(Maksimum) olarak belirlenmiştir.
Şimdiye kadar anlatılanlar Makro gerektirmeden sayfalarda düzenlenmiştir.

Daha sonra Sheet1'deki "Raporla" düğmesi'ne aşağıdaki Makro Kodu atanmıştır.

Sub DikdörtgenYuvarlatılmışÇaprazKöşeler1_Click()
Sheets("YeniSayfa").Select
Set pt = Sheets("YeniSayfa").PivotTables("PivotTable1")
With pt
    .RefreshTable
End With
Columns("A:A").Select
    Selection.NumberFormat = "m/d/yyyy"
    Range("A1").Select
End Sub

Bu kodla YeniSayfa seçilir ve sayfadaki PivotTable1 güncellenir.
Görünümü düzeltmek için A sütunu "Tarih" olarak biçimlendirilir.

 

[gicimi]

Sn @turist teşekkür ederim. İlginiz ve açıklamarınız için. Emeğinize Sağlık.

 

[turist]

Sağolun.