Farklı sayfadaki verileri aktarma

[patroklos]

Sürekli artacak olan sayfadaki verileri tek bir sayfada liste haline nasıl getirebilirim ?

 

[suatbayhan]

Merhaba sayın patroklos,
Umarım sorunuzu doğru anlamışımdır.
Sayfa ekledikçe bilgiler geliyor.
Selamlar...

 

[halit3]

Alternatif kod

Sub aktar()
sat = Worksheets("Liste").Cells(Rows.Count, "C").End(3).Row + 1
For r = 1 To ActiveWorkbook.Sheets.Count
If Sheets(r).Name <> ActiveSheet.Name Then
m = 3
Worksheets("Liste").Cells(sat, "A").Value = Worksheets(Sheets(r).Name).Cells(1, "A").Value
Worksheets("Liste").Cells(sat, "B").Value = Worksheets(Sheets(r).Name).Cells(1, "R").Value
For i = 4 To 23
If Worksheets(Sheets(r).Name).Cells(i, 1).Value <> "" Then
Worksheets("Liste").Cells(sat, m).Value = Worksheets(Sheets(r).Name).Cells(i, 2).Value
m = m + 1
End If
Next i
sat = sat + 1
End If
Next r
MsgBox "İŞLEM TAMAM"
End Sub

 

[patroklos]

Sayin Suatbayhan, Sayin halit3 yardimlariniz icin tesekkür ederim.
Sayin Suatbayhan gönderdiginiz örnek istedigim gibi yanliz tek bir sorun var Sayfa isimlerini numara olarak degil, isim olarak veriyorum. Böyle oluncada formül calismiyor.

Sayin halit3 vermis olduguz kod harika calisiyor, fakat sayfalarda yer alan A1 ve R1 hücrelerindeki veriler listenin A ve B sütundaki hücrelere aktarilmiyor.

 

[muygun]

Merhaba;
Syn.suatbayhan'ın çözümünden fazla farklı olmasada bir örnekte benden.
Eki inceleyin.
İyi çalışmalar.

 

[patroklos]

Sayin muygun tesekkür ederim.

 

[halit3]

3 nolu mesejdaki kodu düzelttim.