sayfa birleştrime

[fikretvarol]

merhaba
ekteki dosyada kişiler adına açılmış pek çok sayfa ve bu sayfalarda kişilerin kendilerinin doldurduğu veriler var
tüm verileri icmal sayfasında toplamak istiyorum ancak çok sayıda sayfa olduğundan kopyalamak çok vakit alıyor acaba başka bir yolu var mı?

 

[muygun]

Merhaba;
Diğer sayfalarınız hep aynı formatta,
İsimleriniz B sütununda , OCAK C sütunundan başlayarak devam ediyorsa
Her isim için kendi sayfasındaki veri alınacaksa (yani dğer sayfalardan toplam alınmayacaksa)
İCMAL sayfasında C3 hücresine
=İNDİS(DOLAYLI($B3&"!$A:$N");KAÇINCI(İCMAL!$B3;DOLAYLI($B3&"!$b:$b");0);SÜTUN())
Formülünü uygulayıp ilgili hücreler kadar çoğaltın.
İyi çalışmalar.

 

[halit3]

alternatif kod

Sub Makro1()
For i = 2 To ActiveWorkbook.Sheets.Count
For n = 3 To 12
If Sheets(i).Name = Worksheets("İCMAL").Cells(n, 2).Value Then
For r = 1 To 12
If Worksheets(Sheets(i).Name).Cells(r, 2).Value = Worksheets("İCMAL").Cells(n, 2).Value Then
For j = 3 To 14
Worksheets("İCMAL").Cells(n, j).Value = Worksheets(Sheets(i).Name).Cells(n, j).Value
Next j
End If
Next r
End If
Next n
Next i
End Sub

 

[BG]

Sayın fikretvarol

Özet tablo ile oluşturulmuş bir alternatif , dosya ekindedir iyi çalışmalar dilerim.

Notiğer sayfalardaki veriler değiştiğinde , "İCMAL2" sayfasında da değişmesini istiyorsanız "Özet tablo" üzerinde sağ tuş "Verileri Yenile" komutuna tıklayınız.