SMSKMHMMT
Altın Üye
- Katılım
- 28 Şubat 2024
- Mesajlar
- 29
- Excel Vers. ve Dili
- 2020
- Altın Üyelik Bitiş Tarihi
- 25-04-2029
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.
Ö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.
Ekli dosyalar
-
10.9 KB Görüntüleme: 6