Farklı Tablolardan Veri Alma

[umit1907]

Merhabalar
örnekte yapmak istediğim 2 tane excel sayfası var bir tanesinde veriler bir diğerindede özet rapor ama özet raporun içerindede formüller var ben sadece veri sayfasından değer çekmek istiyorum örneğin ocak ayına ait verileri veya şubat ayına ait verileri bir yol gösterebilirseniz minnettar kalacağım yardımlarınız için teşekkürler.

 

[Murat OSMA]

Kodları; M3 hücresine ocak - şubat vs. ne yazarsanız ona göre diğer sayfadan veri alacak şekilde hazırladım.
Dilerseniz aşağıdaki kodları ilgili sayfanın kod penceresine yazın ve M3 hücresine de ay adını yazarak bir deneyin;

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rky As Range
    Dim i As Integer, b as integer
    Dim bul As Variant
    If Target.Address(0, 0) <> "M3" Then Exit Sub
    For b = 3 To 12
        If Range("M3").Value = Sayfa2.Cells(1, b) Then
        For i = 3 To 19
        Set Rky = Columns(2).Find(Sayfa2.Cells(i, "B"), , , 1)
            If Not Rky Is Nothing Then
                bul = Rky.Address
                Do
                    Set Rky= Columns(2).FindNext(Rky)
                    Rky.Offset(0, 1).Value = Sayfa2.Cells(i, b)
                    Rky.Offset(0, 3).Value = Sayfa2.Cells(i, b + 1)
                    Rky.Offset(0, 5).Value = Sayfa2.Cells(i, b + 2)
                    Rky.Offset(0, 7).Value = Sayfa2.Cells(i, b + 3)
                    Rky.Offset(0, 9).Value = Sayfa2.Cells(i, b + 4)
                Loop While Not Rky Is Nothing And Rky.Address <> bul
            End If
        Next i
        Exit For
    End If
    Next b
    bul = Empty: i = Empty: b = empty: Set Rky = Nothing
End Sub