Farklı sayfalardaki aynı hücreleri bir sütunda sıralamak

[SMSKMHMMT]

Merhabalar,
Örnek olarak eklediğim dosyada görüleceği üzere farklı sayfalarda aynı hücrede bulunan verileri ana sayfada bulunan ilgili sütunlara otomatik gelmesini istiyorum.
Daha önce;
Sub a1HucreKopyalama()
Dim ws As Worksheet
Dim wsHepsi As Worksheet
Dim LastRow As Long

Set wsHepsi = ThisWorkbook.Sheets("Hepsi")

wsHepsi.Range("C2:C" & Rows.Count).ClearContents

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Hepsi" Then
LastRow = wsHepsi.Cells(Rows.Count, 3).End(xlUp).Row + 1
wsHepsi.Cells(LastRow, 3).Value = ws.Range("A1").Value
End If
Next ws
End Sub
Şöyle bir kod ile A1 hücresindeki verileri c sütununa getirmiştim, fakat istediğim şey örneğin a1 hücrelerini c sütununa, a2 hücrelerini d sütununa, a3 hücrelerini e sütununa gibi tek bir kod ile sıralamak istiyorum. Şimdiden teşekkür ederim.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[Tevfik_Kursun]

Merhaba,
Deneyiniz ...
Alternatif olsun

 

[SMSKMHMMT]

Teşekkür ederim emeğinize sağlık

 

[SMSKMHMMT]

sayın muygun vermiş olduğunuz kodları düzenleyerek kendi çalışma sayfama uyguluyorum, çalışma sayfalarım kişi isimleri sıralı bir sayfa numarası değil bundan dolayı mıdır bilmiyorum en sondaki sayfadaki verileri getiriyor ve sadece oradaki verileri getiriyor liste şeklinde aşağı sıralamıyor. Şimdiden teşekkür ederim.

 

[muygun]

Merhaba;
Verdiğiniz örnekte kodlar sorunsuz çalışıyor.
Ekteki gibi..
Bunun ötesini yorumlayamam.
Bu dosyadaki Anasayfa hariç tüm sayfaları silin. Asıl dosyanızdan birkaç sayfayı bu dosyaya taşıyarak deneyin
İyi çalışmalar.

 

[Korhan Ayhan]

Merhaba,

Kullandığınız sürüm destekler mi emin değilim. Ama alternatif olarak ekteki gibi olabilir..