Excel Formül Sorusu Sor

Bir Excel formülüne dair sorunuz varsa, bu alanı kullanarak bize iletin.

Excel Makro Sorusu Sor

Bir Excel VBA koduna dair sorunuz varsa, bu alanı kullanarak bize iletin.

Genel Excel Sorusu Sor

Excel'in ön sayfasındaki FORMÜL haricinde olan sorularınızı buradan sorabilirsiniz.

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

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

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);"")
 
Dosyadaki özel bilgileri silmeden gönderebileceğiniz ücretli destek alanı bulunuyor. Forum alanında özel bilgileri silerek dosya yükleyiniz.
 
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:
Görüntülemek için giriş yapmalısınız.
(4 satır)
 
Sayın Okutkan Hocam vermiş olduğunuz kodu tüm sütuna uygulamak istersek nasıl yapabilirim. lütfen yardımcı olabilir misiniz.

Kod:
Görüntülemek için giriş yapmalısınız.
(12 satır)
 
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

  • Teyit.xlsb
    1.6 MB · Görüntüleme: 5
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.
 
Sayın Okutkan Hocam vermiş olduğunuz kodu tüm sütuna uygulamak istersek nasıl yapabilirim. lütfen yardımcı olabilir misiniz.

Kod:
Görüntülemek için giriş yapmalısınız.
(7 satır)
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.
 
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);"")
 
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
 
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.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
DMCA.com Protection Status
Konuyu başlatan
Site Üyesi
Katılım
Konum
ANKARA
Konu Bilgi
Durum
Çözüldü 
Forum
Excel Makro Soruları
Başlangıç tarihi
Son yanıt tarihi
Cevaplar
26
Geri
Üst