Özet tablo için makro

[zeidor]

Merhabalar,
Ben bir özet tablo yapmaya çalışıyorum,özet tablomun giriş sayfayasında tarihe göre bir hücrede listeleme yaptım,bu listede tarihi seçip değerlerin bir başka sayfadaki aynı tablonun birebir olarak anasayfamdaki alana aktarılmasını makro vasıtasıyla istiyorum,düşeyara ile yaptım aynı tarihliler olduğu için randıman alamadım,birde makro yolunu denemek isiyorum,şayet olursa,yardımcı olursanız sevinirim,çalışma örneği ektedir..
test.xlsx​

 

[Necdet]

Merhaba,

Makroya gerek var mı bilemiyorum. Eğer sayfa isimlerini tarih olarak değiştirirseniz 22.07.2016 gibi

C6

=DOLAYLI(METNEÇEVİR($E$3;"GG.AA.YYYY") & "!" & ADRES(SATIR(C3);SÜTUN(C1)))

ve C6 yı diğer hücrelere kopyalayınız.

İlla makro derseniz, o da yapılır, sorun değil.

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [E3]) Is Nothing Then Exit Sub
    
    Dim Sh  As Worksheet
    
    Range("C6:H28").ClearContents
    
    For Each Sh In Sheets
    
        If Sh.Range("B3") = Target.Value Then
        
            Sh.Range("C3:H25").Copy
            Range("C6").PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
            Range("E3").Select
            Exit For
            
        End If
        
    Next Sh
    
End Sub

 

[zeidor]

çok saolun Necdet bey,dolaylı formülünüde düşünmüştüm,uygulamada sıkıntı yaşıyordum,bir taşta iki kuş oldu,teşekkürler..

 

[Necdet]

Güle güle kullanınız.

 

[zeidor]

Soruma ek olarak verdiğiniz makro kodda sadece değerler kopyalanıyor,dolgu renkleri ile beraber kopyalaması için kodu güncelleyebilirmisiniz,ayrıca dolaylı verdiğiniz koduda test ettim boş olan tarih hücresine değer atıyor,bunu nasıl boş geçtirebiliriz,eğer mi eklemeliyiz!