Farklı Sayfalardan Veri Aktarımı

[tirEdsOuL]

Merhaba;

Ocak'tan Aralık ayına kadar olan sayfalar var, bu sayfalara düzenli olarak veriler girilmekte.. Bir de Stok Durumu diye bir sayfam var, bu sayfaya güncel aydaki stokta olan verileri getirmek istiyorum. Bu durumu da sanırım makro ile çözebiliriz. Detaylı açıklama örnektedir. Yardımlarınızı rica ederim.

 

[Ömer]

Merhaba,

Stok durumu sayfası kod bölümüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Sh As Worksheet, i As Long, sat As Long

    If Intersect(Target, Range("J5")) Is Nothing Then Exit Sub
    
    Set Sh = Sheets("" & Target.Value & "")
    
    Application.ScreenUpdating = False
    Range("A9:J" & Rows.Count).ClearContents
    
    sat = 9
    For i = 4 To Sh.Cells(Rows.Count, "I").End(xlUp).Row
        If Sh.Cells(i, "I") <> "" And Sh.Cells(i, "J") = "" Then
            Cells(sat, "A") = sat - 8
            Cells(sat, "B") = Sh.Cells(i, "C")
            Cells(sat, "C") = Sh.Cells(i, "D")
            Cells(sat, "D") = Sh.Cells(i, "A")
            Cells(sat, "E") = Sh.Cells(i, "F")
            Cells(sat, "F") = Sh.Cells(i, "I")
            Cells(sat, "G") = Sh.Cells(i, "K")
            Cells(sat, "H") = Sh.Cells(i, "M")
            Cells(sat, "I") = Sh.Cells(i, "R")
            Cells(sat, "J") = Sh.Cells(i, "N")
            sat = sat + 1
        End If
    Next i
 
End Sub

.

 

[tirEdsOuL]

Ellerinize sağlık ömer bey çok teşekkür ederim.