Tüm sayfalarda arama yapıp sonuçları tek sayfada topla

[kelkitli]

Selamlar,
anasayfada tüm verileri toplamak istiyorum.
A sütununda tüm sayfa isimleri (bu sayfa isimleri aynı zamanda kişilerin yaka numarası) var.
Başlık satırında yıllar var.
Her sayfada A sütununda yıllar, B sütununda yıllık rakamları var.
Döngü ile tüm sayfalardan yıllara ait rakamları ilgili sütuna çekmek istiyorum.
Örneğin: A3 te yaka no 27var. 27 nolu sayfadan 2006 yılına ait rakamı bulup, B3 e yazdırmak istiyorum.
Bu işlemi A sütunundaki tüm veriler için tekrarlamak istiyorum.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Hüseyin Çoban]

Merhaba Necmettin Bey, ekteki dosyayı inceler misiniz.
Düşeyara ve dolaylı formüllerini kullanarak örnek dosyanızda bir çalışma yaptım.


[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[kelkitli]

Selamlar,
Hüseyin Bey, ilginiz için teşekkür ederim.
Zaten şu an bu şekilde kullanıyorum. Makro ile yapmaya çalıştım. Başaramadım.
Dosya oldukça yüklü. Formül biraz daha yavaşlatıyor.

[Rami]

Ek dosyadaki gibi olabilir.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[kelkitli]

Sayın Rami,
Çok teşekkür ederim. Ayrıca Hüseyin Beye yeniden teşekkürler. Fonksiyon olarakta güzel bir çözüm.

[kelkitli]

Sayın Rami,
Şöyle bir değişiklik yapmam gerekti ama kodları uyarlıyamadım.
Anasayfaya e2 den itibaren yazılacak. Diğer sayfalardaki veride şöyle:
Yıllar u sütununda alınacak veri X sütununda.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Rami]

Kodları aşağıdaki değiştirip, denermisiniz.?

Kod: [Seç]

Private Sub CommandButton1_Click()
On Error Resume Next
[e2:ee65000] = Empty
sut = Range("a1").End(xlToRight).Column
For a = 2 To Cells(65000, 1).End(xlUp).Row
For b = 5 To sut - 1
Set c = Sheets(Cells(a, 1).Text).Range("u2:u65000").Find(Cells(1, b))
If Not c Is Nothing Then
Cells(a, b) = Sheets(Cells(a, 1).Text).Cells(c.Row, 24)
End If
Next
If Application.Sum(Range("b" & a, Cells(a, sut))) <> 0 Then Cells(a, sut) = Application.Sum(Range("b" & a, Cells(a, sut)))
Next
Err = 0
End Sub


[kelkitli]

Sayın Rami İşlem tamam. Teşekkür ederim.

[Rami]

Sayın Rami İşlem tamam. Teşekkür ederim.

Kolay gelsin.

[Baggwell]

örnek dosya olaymış işimize yarıcaktı