Farklı sayfalardaki aynı hücredeki verileri alt alta yazmak

[goko36]

Selamlar. Buna yakın konular daha önce açılmış fakat kendime uygun şekilde eğip bükemedim. Yapmak istediğim şey farklı sayfalardaki aynı hücredeki verileri son sayfaya alt alta yazmak. Örneğin sheet1 de A1 hücresi ile sheet2 de yine A1 hücresinde olan veriyi alıp sheet3 de alt alta yazdırmak. Örnek basit olduğu için excel dosyası eklemeyi uygun görmedim.

Ayrıca olurda (eğer basitse tabi) aynı hücreler alınacağı için kopyalanacak hücreyi kullanıcıya seçtirmek gibi bir aksiyon olursa cok iyi olur.

Şimdiden teşekkürler

 

[ÖmerFaruk]

Kullandığınız sayfaya diğer sayfalardan belirtilen hücreleri çeker. Hedef hücreden itibaren alt alta sıralar
Hem kaynak hem de hedefi sizin seçiminize bıraktım.

Sub SayfalardakiAynıHücrelerdenVeriÇek()
    Dim Kaynak As Range, Hedef As Range
    Set Kaynak = Application.InputBox("Kaynak hücre adresi", Type:=8)
    Set Hedef = Application.InputBox("Hedef hücre adresi", Type:=8)
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> ActiveSheet.Name Then Hedef.Offset(i - 1, 0) = Worksheets(i).Cells(Kaynak.Row, Kaynak.Column)
    Next i
    Set Kaynak = Nothing: Set Hedef = Nothing
End Sub