Diğer Sayfalardan Sayfa Adına Göre Veri Süzmek

[Believing]

Sayın Uzman Arkadaşlar,

Ekteki çalışma içerisinde bir çok sayfa ile "GENEL RAPOR" adında bir sayfa bulunmaktadır. "GENEL RAPOR" sayfasının "B1" hücresine veri doğrulama atanarak sayfa seçimi yapılmaktadır. "B3" hücresine ise tarih yazılmaktadır. "GENEL RAPOR" sayfasındaki "B1" ve "B3" hücresindeki seçime göre, ilgili sayfadan verilerin transferi yapılarak listelenmesini sağlamak istiyorum. Bu konuda çok değerli yardımlarınız rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ


http://dosya.co/vesweovomvkx/ORNEK_26072018.rar.html
http://s3.dosya.tc/server16/ez8mdm/ORNEK_26072018.rar.html

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayın ve butonla ilişkilendirin. Deneyiniz.

Sub VeriGetir()

    Dim Syf As String, _
        i   As Long, _
        ShS As Worksheet, _
        ShG As Worksheet
    
    On Error Resume Next
    
    Set ShG = Sheets("GENEL RAPOR")
        
    Syf = ShG.Range("B1")
    Set ShS = Sheets(Syf)
    
    ShG.ShowAllData
    i = ShG.Cells(Rows.Count, "A").End(3).Row
    If i < 8 Then i = 8
    ShG.Range("A8:N" & i).ClearContents
    
    ShS.ShowAllData
    
    i = ShS.Cells(Rows.Count, "A").End(3).Row
    
    ShS.Range("A7:N" & i).AutoFilter field:=1, Criteria1:=ShG.Range("B3").Text
    ShS.Range("A1").CurrentRegion.Offset(7, 0).Copy ShG.Range("A8")
    
    Set ShG = Nothing
    Set ShS = Nothing
    
End Sub

 

[Believing]

Sayın Necdet bey,

Verdiğiniz kodlar gayet güzel çalışmakta olup, istenileni tam anlamıyla karşılamıştır.
Aynı özellikleri excel'in yerleşik formülleri ile yapmak mümkün müdür?
Konuya gösterdiğiniz ilgi ve yardım için size çok teşekkür ederim.
ALLAH sizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Necdet]

Merhaba,

Tabi ki olası. Fonksiyonlarda iyi olan arkadaşlarımız size yardımcı olabilir.

 

[Korhan Ayhan]

Ekteki dosyayı inceleyiniz.

 

[Believing]

Sayın Korhan bey,

Konuya gösterdiğiniz ilgi ve yardım için size çok teşekkür ederim.
ALLAH sizden razı olsun.

Saygılarımla,
Ömer Ali ÜZÜMCÜ