Gönderen Konu: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla  (Okunma sayısı 5290 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı kelkitli

  • Excelce Onbaşı
  • **
  • İleti: 52
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Necmettin TOK
  • İl / İlçe: Ankara Yenimahalle
  • Mesleğiniz: Abonman Başgörevlisi
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.]

Çevrimdışı Hüseyin Çoban

  • Excelce.Net Yönetici
  • *
  • İleti: 182
  • Puan +11/-0
  • Cinsiyet: Bay
  • Ad Soyad: Hüseyin Çoban
  • İl / İlçe: Denizli
  • İşletim Sisteminiz: Windows 7 - 64 bit
  • Mesleğiniz: Ü.Tğm.
  • Office Versiyonunuz: Office 2007 TR
Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
« Yanıtla #1 : 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.]

Çevrimdışı kelkitli

  • Excelce Onbaşı
  • **
  • İleti: 52
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Necmettin TOK
  • İl / İlçe: Ankara Yenimahalle
  • Mesleğiniz: Abonman Başgörevlisi
Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
« Yanıtla #2 : 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.

Çevrimdışı Rami

  • Excelce Onbaşı
  • **
  • İleti: 64
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Kamil
  • İl / İlçe: Sivas
  • Mesleğiniz: İnşaat
Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
« Yanıtla #3 : 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.]

Çevrimdışı kelkitli

  • Excelce Onbaşı
  • **
  • İleti: 52
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Necmettin TOK
  • İl / İlçe: Ankara Yenimahalle
  • Mesleğiniz: Abonman Başgörevlisi
Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
« Yanıtla #4 : 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.

Çevrimdışı kelkitli

  • Excelce Onbaşı
  • **
  • İleti: 52
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Necmettin TOK
  • İl / İlçe: Ankara Yenimahalle
  • Mesleğiniz: Abonman Başgörevlisi
Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
« Yanıtla #5 : 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.]

Çevrimdışı Rami

  • Excelce Onbaşı
  • **
  • İleti: 64
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Kamil
  • İl / İlçe: Sivas
  • Mesleğiniz: İnşaat
Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
« Yanıtla #6 : 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

Çevrimdışı kelkitli

  • Excelce Onbaşı
  • **
  • İleti: 52
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Necmettin TOK
  • İl / İlçe: Ankara Yenimahalle
  • Mesleğiniz: Abonman Başgörevlisi
Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
« Yanıtla #7 : 15 Şubat 2011, 16:34:04 »
Sayın Rami İşlem tamam. Teşekkür ederim.

Çevrimdışı Rami

  • Excelce Onbaşı
  • **
  • İleti: 64
  • Puan +1/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Kamil
  • İl / İlçe: Sivas
  • Mesleğiniz: İnşaat
Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
« Yanıtla #8 : 15 Şubat 2011, 16:52:11 »
Sayın Rami İşlem tamam. Teşekkür ederim.
Kolay gelsin.

Çevrimdışı Baggwell

  • Excelce Onbaşı
  • **
  • İleti: 1
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: Erker Birör
  • İşletim Sisteminiz: Windows
  • Mesleğiniz: Analist
  • Office Versiyonunuz: 2013 TR
Ynt: Tüm sayfalarda arama yapıp sonuçları tek sayfada topla
« Yanıtla #9 : 07 Eylül 2016, 12:56:09 »
örnek dosya olaymış işimize yarıcaktı :anlastik