Çözüldü Kriter Bazlı Veri Alma Formülünü Koda Çevirme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
V

valentino06

Site Üyesi
Excel Versiyonu
Excel 365
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Sayın Çok Kıymetli Hocalarım formülle getirmiş olduğum veriler koda çevirme imkanımız olabilir mi ? formülle çok kasıyor. Excel donuyor. lütfen yardımcı olabilir misiniz. çok teşekkür ederim.
kullanmış olduğum formüller aşağıdadır.

1.) =TOPLA.ÇARPIM((Bileşenler!$M$3:$M$100000=A2)*(Bileşenler!$N$3:$N$100000=B2)*(Bileşenler!$O$3:$O$100000))
2.) =TOPLA.ÇARPIM((Bileşenler!$R$3:$R$100000=A2)*(Bileşenler!$S$3:$S$100000=B2)*(Bileşenler!$T$3:$T$100000))
3.) =TOPLA.ÇARPIM((Bileşenler!$R$3:$R$100000=A2)*(Bileşenler!$S$3:$S$100000=B2)*(Bileşenler!$U$3:$U$100000))
4.) =TOPLA.ÇARPIM((Bileşenler!$Z$3:$Z$100000=A2)*(Bileşenler!$AA$3:$AA$100000=B2)*(Bileşenler!$AB$3:$AB$100000))
5.) =EĞERHATA(İNDİS(Bileşenler!$M$3:$P$100000;KAÇINCI(A2&B2;Bileşenler!$M$3:$M$100000&Bileşenler!$N$3:$N$100000;0);4);"")
6.) =EĞERHATA(İNDİS(Bileşenler!$R$3:$V$100000;KAÇINCI(A2&B2;Bileşenler!$R$3:$R$100000&Bileşenler!$S$3:$S$100000;0);5);"")
7.) =EĞERHATA(İNDİS(Bileşenler!$R$3:$W$100000;KAÇINCI(A2&B2;Bileşenler!$R$3:$R$100000&Bileşenler!$S$3:$S$100000;0);6);"")
8.) =EĞERHATA(İNDİS(Bileşenler!$R$3:$X$100000;KAÇINCI(A2&B2;Bileşenler!$R$3:$R$100000&Bileşenler!$S$3:$S$100000;0);7);"")
 
Tarihe göre sırala Oylamaya göre sırala
Dosyadaki özel bilgileri silmeden gönderebileceğiniz ücretli destek alanı bulunuyor. Forum alanında özel bilgileri silerek dosya yükleyiniz.
 
Oyla 0 Olumsuz oyla
Birinci ve Beşinci formüller için aşağıdaki kodları kullanıp geri dönüş yaparsınız. Sonuçları A1 ve B1 hücrelerine yazar.
VBA: 
You must log in to view content
(4 satır)
 
Oyla 0 Olumsuz oyla
Sayın Okutkan Hocam vermiş olduğunuz kodu tüm sütuna uygulamak istersek nasıl yapabilirim. lütfen yardımcı olabilir misiniz.

Kod: 
You must log in to view content
(12 satır)
 
Oyla 0 Olumsuz oyla
Sayın Okutkan Hocam getirmek istediğim yerleri zemin rengini sarı ile boyadım. Hocam özet sayfasında "A:B"deki verilerin karşılıklarını getirmek istiyorum. zaten göndermiş olduğum formüller o işi yapıyor. çok teşekkür ederim.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Formülü D sütununda uyguladım, 5bin satır için döngü 1 dakika sürdü. Bu şekilde 8 sütuna formülü uygulama işlemi çok daha uzun sürecektir. Dosyanızda otomatik hesaplamayı kapatarak bu şekilde kullanmaya devam edebilirsiniz. Makro ile daha hızlı işlem yapılıp yapılamayacağı hakkında diğer yöneticiler de fikir sunabilir.
 
Oyla 0 Olumsuz oyla
valentino06' Alıntı:
Sayın Okutkan Hocam vermiş olduğunuz kodu tüm sütuna uygulamak istersek nasıl yapabilirim. lütfen yardımcı olabilir misiniz.

Kod: 
You must log in to view content
(7 satır)
Genişletmek için tıklayın ...
Buradaki paylaştığınız formüllerin düzenine göre bir kod yazmaya çalıştım fakat ilk mesajınızdaki ile aynı olmadığını gördüm. Aranan değerlerin sadece M ve N sütunlarının eşleşmesi durumuna göre değil, tümünün farklı sütununlar olduğu fark ettim. Çözümü uzun vakit alacağı için konunun forum alanında değerlendiremeyip, bu alanda dosyaya özel vakit ayıramayacağımı belirteyim. Konunun gerekliliğini göz önünde bulundurarak özel destek alanında sorunuzu sorabilirsiniz veya vakit ayıracak biri çıkarsa burada yanıt bekleyebilirsiniz. iyi çalışmalar dilerim.
 
Oyla 0 Olumsuz oyla
Okutkan Hocam sadece aşağıdaki formüllere göre kod yazabilir misiniz. lütfen

1.) =EĞERHATA(İNDİS(Bileşenler!$M$3:$P$100000;KAÇINCI(A2&B2;Bileşenler!$M$3:$M$100000&Bileşenler!$N$3:$N$100000;0);4);"")
2.) =EĞERHATA(İNDİS(Bileşenler!$R$3:$V$100000;KAÇINCI(A2&B2;Bileşenler!$R$3:$R$100000&Bileşenler!$S$3:$S$100000;0);5);"")
3.) =EĞERHATA(İNDİS(Bileşenler!$R$3:$W$100000;KAÇINCI(A2&B2;Bileşenler!$R$3:$R$100000&Bileşenler!$S$3:$S$100000;0);6);"")
4.) =EĞERHATA(İNDİS(Bileşenler!$R$3:$X$100000;KAÇINCI(A2&B2;Bileşenler!$R$3:$R$100000&Bileşenler!$S$3:$S$100000;0);7);"")
 
Oyla 0 Olumsuz oyla
for i = 2 to cells(rows.count,1).end(3).row
RANGE("F" & i) = Evaluate("=SUMPRODUCT((Bileşenler!$M$3:$M$100000=A2)*(Bileşenler!$N$3:$N$100000=B2)*(Bileşenler!$O$3:$O$100000))")
next i
 
Oyla 0 Olumsuz oyla
Merhaba Sn. @valentino06

Belgenizdeki ÖZET isimli sayfada, işlem yapılacak tüm sütunlarda (sanırım SARI soyalı olanlar) 1'er hücreye,
istenilen sonuçları veren formüllerinizi uygulayıp, bu haliyle belgeyi kaydedip, foruma tekrar ekler misiniz?

Nerede hangi sonucun istenildiğini tam olarak anlayamadım.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer Konular Popüler Daha Fazlası

Üst