Belli bir tarihteki bilgilerin, veriler sayfalarından tek bir sayfaya çekilmesi

[slisyum]

Askeri Kurumda çalışıyoruz her ay 850 sayfalık nöbet listeleri gönderiliyor.

Her bir listenin çıktısını alıp bu 850 birliğin aylık gönderilen personel nöbetlerini bir günlük (örnek: ocak ayının 1 günün listesini yaptığımızda 850 birliğin ocak ayının 1 günündeki nöbetcileri ayrı bir sayfaya topluyoruz 2 gününü istendiyse 2 nününün nöbetçilerini bir sayfada topluyoruz ) bu çok ciddi bir zaman gerektiriyor.


eğer yapabilirseniz bir kutuya bir tarih yazılınca o ay içerisindeki o günün nöbetçilerini Birlikler sayfasından Nöbet Listasi sayfasına sıralansın istiyoruz


bir örneği dosya olarak aşagıya yükledim

yapabilirseniz müteşekkir kalırız

 

[Necdet]

Merhaba,

Kodlarla çözüm isterseniz aşağıdaki kodların "NÖBET SAYFASI" sayfasının kod bölümünde olmalı, B2 deki tarihe dikkat ediniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
If IsDate(Target) = False Then Exit Sub
Set s1 = Sheets("NÖBET SAYFASI")
Range("B4:F34").ClearContents
k = 3
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
    Set s2 = Sheets(i)
    For j = 3 To 33
        If s2.Cells(j, "C") = [B2] Then
            k = k + 1
            Cells(k, "B") = s2.Cells(j, "B")
            Cells(k, "C") = s2.Cells(j, "C")
            Cells(k, "D") = s2.Cells(j, "D")
            Cells(k, "E") = s2.Cells(j, "E")
            Cells(k, "F") = s2.Cells(j, "F")
        End If
    Next j
Next i
Application.ScreenUpdating = True
End Sub

 

[slisyum]

Çok teşekkürler ediyorum evet Her birlikte aynı tarih 1 adet oluyor bu inanın bizim işimizi 100 de 90 oranında azaltacak

tabi buna 850 birliğin bilgilerini yapıştıracağım açılan yeni sayfalar birleştirmeye dahil olurken sorun çıkartırmı bir kaç sayfa açtım birleştirmede sorun çıkmadı ama sayfa adedi 850 bulması sorun çıkartırmı

 

[Necdet]

Merhaba,

Eğer her birlikte tarihler aynı ve tek ise kodları döngü ile değil arattırarak tarihi buldurmak biraz daha işlemi hızlandırır.

Ben 50-55 bin kayıtlı dosyalarda çalıştım ama çok sayfalı dosyalarda hiç çalışmadım. Bunu deneyerek anlarsınız.

Benim fikrimi sorarsanız çok sayfalı yapıdan vaz geçmek gerekir derim.

 

[mami68]

Önce Necdet Yeşertener beyin,ellerine sağlık.
Bende Necdet beyin fikrini tasdik etmek istiyorum:Çok sayfalı derken 500 sayfalık bir kitap oluşturmuştum ve inanın ki her açılışta beklemekten sinir bozucu oluyor.Ve her kapanıştada yine beklemekten zaman alıyor.İyi çalışmalar

 

[yilmaz581]

elinize sağlık.teşekkürler paylaşım için