Sayfalar arası şartlı veri aktarımı

[gezgin-49]

Sayın üstadlarım, ekli dosyada ana sayfa dışında üç farklı sayfam daha var, ana sayfaya eklediğim seçenek düğmesine göre 8/A, 8/B ve 8/C sınıfındaki verileri ana sayfaya makro kullanarak aktarmak istiyorum, yardımlarınızı bekliyorum.

 

[veyselemre]

Sub listele()
    Dim sf As Worksheet
    With Sheets("Anas Sayfa")
        .Range("A2:C" & Rows.Count).ClearContents
        Select Case .Range("H2").Value
            Case 1: Set sf = Sheets("8-A")
            Case 2: Set sf = Sheets("8-B")
            Case 3: Set sf = Sheets("8-C")
        End Select
        sf.Range("A2:C" & sf.Cells(Rows.Count, 1).End(3).Row).Copy
       .Range("A2").PasteSpecial xlPasteValues
    End With
End Sub

 

[gezgin-49]

sayın üstadım veyselemre Allah razı olsun, iyi ki varsınız