birden fazla sayfadaki hücrelerdeki değerleri diğer bir sayfaya yerleştirme

[tasma]

Merhabalar,Bir Çalışma kitabında bulunan sayfa1,sayfa2 ve sayfa 3 teki hücre değerlerini aynı anda sayfa 4 de yer alan hücrelere nasıl yerleştirebilirim. Yardımlarınız için şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim S, I As Byte
S = 1
For I = 1 To 3
Sheets("Sayfa4").Cells(S, "a") = Sheets(I).[A1]
S = S + 1
Next
End Sub