Excel Farklı Sayfadan Tarihi Geçenleri Çekme

[KareliGozluk]

Hayırlı sabahlar belki anlattıklarımdan anlayabilirsiniz excel kullanımım neredeyse sıfır denilebilir. Örnek olarak vermek istiyorum

Reçete Düzenlemesi yapmam gerekiyor her sayfada belli bir ilaç ismi ve A sütunu kullanan isimleri B sütünu soyadları C sütununda ise Yazılabilir reçete tarihleri var
bu şekilde yaklaşık 28 sayfa farklı ilaç ve isim listeleri var. Yapmak istediğim ise başka bir sayfada bu kullanılan ilaçların reçete yazılabilir tarih geldiğinde hepsini çekmek
(05.05.2020 yazılabilir 5 sayfada 15 kişi var hepsini isim soy isim şeklinde çıkarabilir miyim ? ve bu buton şeklinde veya getir şeklinde her defasında kod kullanmadan güncel şekilde devam edebilir mi ? ) Şimdiden teşekkür ederim

 

[Ömer]

Merhaba,

Listeleme "rapor" adındaki sayfada olur. Eğer listelenecek sayfa adı farklı ise kodun içindekini değiştirin. Bu sayfaya bir buton ekleyip kodları butona atarsınız.

Sub listele()
    
    Dim i As Integer, Sr As Worksheet, tarih As Date, sat As Long, c As Range, Adr As String
    
    Set Sr = Sheets("rapor") 'listeme yapılacak sayfa
    
    Application.ScreenUpdating = False
    Sr.Select
    Range("A2:C" & Rows.Count).ClearContents
    
    tarih = Range("E1") 'tarih ölçütü
    sat = 2
    
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> Sr.Name Then
                Set c = .[C:C].Find(tarih)
                If Not c Is Nothing Then
                    Adr = c.Address
                    Do
                        Cells(sat, "A") = .Cells(c.Row, "A")
                        Cells(sat, "B") = .Cells(c.Row, "B")
                        Cells(sat, "C") = .Cells(c.Row, "C")
                        sat = sat + 1
                        Set c = .[C:C].FindNext(c)
                    Loop While Not c Is Nothing And c.Address <> Adr
                End If
            End If
        End With
    Next i
    
End Sub

 

[Tevfik_Kursun]

Sayın Ömer Hocam,
(Lütfen ukalalık diye saymayın.) Sanırım tarih<E1 olmalı. Eğer ilaç isimleri de lazımsa belki her ilaç sayfasında F1 de olabiir.
Saygılarımla

 

[Ömer]

Estağfurullah Tevfik Bey.

Ben belirlenen tarih olarak algılamıştım. Eğer tarihi geçenler listelenecek ise yeniden yazmak gerekir. Birazdan tekrar inceleyeceğim.
Teşekkürler, iyi çalışmalar.

 

[Tevfik_Kursun]

Sayın Ömer Hocam,
Rica ederim. İsterseniz bu dosyada deneyiniz. İsimler tamamen uydurmadır. (hem size hem arkadaşa kolaylık olur diye düşündüm)
Saygılarımla

 

[Tevfik_Kursun]

Sayın Ömer Hocam,
Korhan hocanın desteği ile incelemenize sunuyorum.
Saygılarımla

 

[Tevfik_Kursun]

Sayın KareliGozluk,
Uyarlayamazsanız dosyanızı gönderin, yardımcı olalım. 6. mesajdaki ya da alt satırdaki dosyayı indirebilirsiniz.
Deneme2
İyi çalışmalar