sayfalar arası veri aktarma ve filtreleme

[thecarow]

arkadaşlar;
Örnekte açıkladım.Ana sayfadaki ilgili bilgileri diğer sayfaya aktarma yapabilmem için nasıl bir makro uygulamalıyım.
Saygılarımla.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz.

Yalnız alttoplam bölümleriyle ilgili kodlara ilave yapmadım. Benim tavsiyem alt toplam ları excel menüsünden yapmanızdır.

Veri / Alttoplamlar menüsünden ulaşabilirsiniz. Tabi bu özelliği kodlara ilave edebiliriz.

Önce bahsettiğim menüyü deneyip kararı siz verin ona göre kodları yeniden düzenlerim.

Sub Filtre()
 
Dim c As Range, ilkadres As Variant, Sa As Worksheet, i As Long
 
Set Sa = Sheets("Ana sayfa")
 
Application.ScreenUpdating = False
Sheets("Section bazlı ").Select
Range("C5:D" & Rows.Count).ClearContents
 
For i = 5 To Cells(Rows.Count, "B").End(xlUp).Row
    With Sa.Range("A:A")
        Set c = .Find(Range("A3"), LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            ilkadres = c.Address
            Do
                If Sa.Cells(c.Row, "D") = Cells(i, "B") Then
                    Cells(i, "C") = Sa.Cells(i, "G")
                    Cells(i, "D") = Sa.Cells(i, "H")
                End If
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> ilkadres
        End If
    End With
Next i
Application.ScreenUpdating = True
 
End Sub

.

 

[thecarow]

Hocam ilginiz için teşekkür ederim.Elinize emeğinize sağlık.