sayfalar arası aktarım

[doxiumy]

arkadaşlar kolay gelsin ekteki dosyada sayfa1 de bir form var ve bu form her iş için açılmakta olduğundan sayfa sayısı değişken olmakta benim istediğim sayfa açtığımda sayfadaki istenilen veriler toplam sayfasına otomatik olarak gelmesiyle ilgili yardımcı olursanız sevinirim

 

[Ömer]

Merhaba,

Toplam sayfasının kod bölümüne kopyalayınız.

Private Sub Worksheet_Activate()
 
    Dim i As Integer, son As Long
    
    Application.ScreenUpdating = False
 
    For i = 1 To Worksheets.Count
        son = Cells(Rows.Count, "A").End(xlUp).Row + 1
        With Sheets(i)
            If .Name <> "TOPLAM" Then
                .Range("A11:H15").Copy Range("A" & son)
            End If
        End With
    Next i
    
    Application.ScreenUpdating = True
 
End Sub

.