Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: kelkitli - 15 Şubat 2011, 06:36:32

Başlık: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
Gönderen: kelkitli - 15 Şubat 2011, 06:36:32

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.]

Başlık: Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
Gönderen: Hüseyin Çoban - 15 Şubat 2011, 08:47:21

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.]

Başlık: Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
Gönderen: kelkitli - 15 Şubat 2011, 09:37:54

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.

Başlık: Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
Gönderen: Rami - 15 Şubat 2011, 12:48:06

Ek dosyadaki gibi olabilir.

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

Başlık: Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
Gönderen: kelkitli - 15 Şubat 2011, 13:14:09

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

Başlık: Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
Gönderen: kelkitli - 15 Şubat 2011, 13:53:57

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.]

Başlık: Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
Gönderen: Rami - 15 Şubat 2011, 14:23:34

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


Başlık: Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
Gönderen: kelkitli - 15 Şubat 2011, 16:34:04

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

Başlık: Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
Gönderen: Rami - 15 Şubat 2011, 16:52:11

Alıntı yapılan: kelkitli - 15 Şubat 2011, 16:34:04

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

Kolay gelsin.

Başlık: Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
Gönderen: Baggwell - 07 Eylül 2016, 12:56:09

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