Macro Birleştirme (Birden Fazla Sayfa İçin)

[ocamsul]

Arkadaşlar herkese iyi çalışmalar.

Aşağıdaki macroyu ardışık olacak şekilde nasıl birleştirebilirim? zira 1,2,3 şeklinde devam eden sayfalar 4,5,6...... şeklinde devam edecek.

Sub aktar()
Sayfa4.Range("B3") = Sayfa1.Range("A2")
Sayfa4.Range("C3") = Sayfa1.Range("B2")
Sayfa4.Range("B4") = Sayfa2.Range("A2")
Sayfa4.Range("C4") = Sayfa2.Range("B2")
Sayfa4.Range("B5") = Sayfa3.Range("A2")
Sayfa4.Range("C5") = Sayfa3.Range("B2")
End Sub

 

[PLİNT]

Arkadaşlar herkese iyi çalışmalar.

Aşağıdaki macroyu ardışık olacak şekilde nasıl birleştirebilirim? zira 1,2,3 şeklinde devam eden sayfalar 4,5,6...... şeklinde devam edecek.

Sub aktar()
Sayfa4.Range("B3") = Sayfa1.Range("A2")
Sayfa4.Range("C3") = Sayfa1.Range("B2")
Sayfa4.Range("B4") = Sayfa2.Range("A2")
Sayfa4.Range("C4") = Sayfa2.Range("B2")
Sayfa4.Range("B5") = Sayfa3.Range("A2")
Sayfa4.Range("C5") = Sayfa3.Range("B2")
End Sub

Merhaba
"Sayfa4" "B2" nin dolu olduğunu varsayarak;
Şöyle deneyin.

Sub getir()
For a = 1 To Sheets.Count
If Sayfa4.Index <> Sheets(a).Index Then
x = Sayfa4.Cells(Rows.Count, "b").End(xlUp).Row + 1
Sayfa4.Range("b" & x & ":" & "c" & x).Value = Sheets(a).Range("A2:B2").Value
End If: Next
End Sub

 

[Muzaffer Ali]

Soru işareti yerine aktarılacak sayfa sayısını yazınız

Sub Aktar()
    Dim SayfaSayisi As Integer
    Dim Say As Integer
    
    SayfaSayisi=?
    For Say = 1 To SayfaSayisi
        Sayfa4.Range("B" & Say + 2) = Worksheets("Sayfa" & Say).Range("A2")
        Sayfa4.Range("C" & Say + 2) = Worksheets("Sayfa" & Say).Range("B2")
    Next

End Sub