Formülü makroya çevirme

[teonet]

Merhabalar,
Aşağıdaki formül örnek teşkil etmekte olup, bunu nasıl makroya çevirebileceğim konusunda yardımlarınızı rica ederim.

=SUMPRODUCT((STOK!$E$2:$E$500=$B4)*(STOK!$S$2:$S$500=741)*(STOK!T$2:T$500=1111)*(STOK!$U$2:$U$500))

Şimdiden teşekkürler

 

[programer]

Forumda bi arama yapsaydınız daha iyi olurdu konu açmadan önce.

aşağıdaki link size yardımcı olur...

http://www.excel.web.tr/f60/topla-carpim-sumproduct-fonksiyonunun-vba-icindeki-farkli-kullanimlari-t82178.html

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Sorunuzu sormadan önce forumda araştırma yapmışsınızdır diye tahmin ediyorum.
Öyle ise bu gibi formülü makroya çevirme sorularında, formülün kullanıldığı tablo ile ilgili örnek dosya istenildiğinide fark etmişsinizdir.

. . .

 

[teonet]

Merhabalar,
aslında arama yaptım ama sanırım farklı kelimelerde arama yaptığım için farklı sonuçlar karşıma çıktı. Yardımlarınız için teşekkürler

 

[mustilem23]

yeni konu açmak istemedim aynı konuda benim de bir sıkıntım var yardımcı olabilir misiniz .

=EĞER(SATIR()-SATIR($F$1)>TOPLA.ÇARPIM(($B$2:$B$1000<>"")/EĞERSAY($B$2:$B$1000;$B$2:$B$1000&""));"";İNDİS(B2:$B$1000;KAÇINCI(0;--ESAYIYSA(KAÇINCI(B2:$B$1000;$F$1:F1;0));0)))

=ETOPLA(B:B;F2;C:C)

=İNDİS($A$1:$A$1000;KAÇINCI(F2;$B$1:$B$100;0))

3 adet fonksiyon giriyorum sonuca ulaşmak için makroya çevrlmesi için yardımcı olabilir misiniz.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linkte nasıl yapılacağını tarif etmiştim. İnceleyiniz.

Formülleri makro ile değere çevirme uygulaması

 

[mustilem23]

KORHAN BEY ,

Uğraştım ama beceremedim hiç makro yazmadığım için biraz sıkıntı çekiyorum yardımcı olabilir iseniz çok sevinirim.

 

[mustilem23]

Private Sub Worksheet_Activate()
With Range("f2:B" & Cells(Rows.Count, 1).End(3).Row)
.Formula = "=EĞER(SATIR()-SATIR($F$1)>TOPLA.ÇARPIM(($B$2:$B$1000<>"")/EĞERSAY($B$2:$B$1000;$B$2:$B$1000&""));"";İNDİS(B2 :$B$1000;KAÇINCI(0;--ESAYIYSA(KAÇINCI(B2:$B$1000;$F$1:F1;0));0)))
.Formula = "=ETOPLA(B:B;F2;C:C)
.Formula = "=İNDİS($A$1:$A$1000;KAÇINCI(F2;$B$1:$B$100;0))

.Value = .Value
End With

korhan bey ,

makro kodumuz böylemi olmalı?

 

[numan şamil]

Merhaba
önce Formülünüzü excel sayfasının hangi sutunun da çalışacaksa o sutundaki hücreyi seçip (2003 excele göre)
Araçlar/makrolar/yenimakro kaydet seçip =EĞER(SATIR()-SATIR($F$1)>TOPLA.ÇARPIM(($B$2:$B$1000<>"")/EĞERSAY($B$2:$B$1000;$B$2:$B$1000&""));"";İNDİS(B2 :$B$1000;KAÇINCI(0;--ESAYIYSA(KAÇINCI(B2:$B$1000;$F$1:F1;0));0)))
formülünü yazıyoruz
Daha sonra ikinci ve üçüncü formülünüzü aynı şekilde yazıdıktan sonra Araçlar/makrolar/makro kaydını durdur seçiyoruz
Daha sonra kod bölümünü açtığımızda bir modül eklendiğini görürüz eklenen bu modüle formül kaydedilmiştir.(ingilizce olarak)
Daha sonra
kodları şu şekilde düzenliyoruz

Private Sub Worksheet_Activate()
With Range("B2:B" & Cells(Rows.Count, 1).End(3).Row)
'kırmızı yazılı yere birinci formülünüzün hangi sutunda çalışacağı yazılacak (yukarıdaki örnekte B2 den B sutunundaki son dolu hücreye kadar seçilmiş)
.Formula = "=... bu kısma kaydedilen birinci formül
.Value = .Value
End With
With Range("C15:C15" )
'Mavi yazılı yere ikinci formülünüzün hangi sutunun hangi hücresinde çalışacağı yazılacak
.Formula = "=...bu kısma kaydedilen ikinci formül
.Value = .Value
End With
With Range("D2" & Cells(Rows.Count, 1).End(3).Row)
'Yeşil yazılı yere ikinci formülünüzün hangi sutunda çalışacağı yazılacak
Formula = "=..bu kısma kaydedilen üçüncü formül yazılacaktır
.Value = .Value
End With

 

[mustilem23]

Numan Bey ,

makroyu kaydettim fakat diğer bilgileri girmeye çalıştım fakat makro hata verdi örnek dosyam ve makro kayıt bilgileri aşağıdaki gibidir birleştirmem de yardımcı olabilir misiniz.

 

[Korhan Ayhan]

Merhaba,

Bu dosyada yapmak istediğiniz işlem nedir. Belki bu formüllere gerek kalmadan istediğiniz işlem makro ile farklı yöntemle yapılabilir.

 

[mustilem23]

Korhan Bey ,

aynı kod ve tanımlı malzemelerın genel toplamını almak istiyorum .

örnek .

5067331027 kodlu malzemeden 3 farklı satırda aynı kod ve tanım olarak var sadece adet değerleri değişken toplamı 12 3 satırın .

ben bu genel değerin çıkcağı ve yan hücrelerde de kod ve tanımın cıkacağı aynı sayfada cıkacağı yada başka bir sayfada çıkacağı bir makro için uğraşıyorum.

 

[Korhan Ayhan]

Merhaba,

Özet tablo kullanmayı denediniz mi? Hem pratik hem de hızlı sonuç verir.

 

[mustilem23]

evet gerçekten hızlı sonuç veriyor denedim oldu genel toplamı alabiliyorum fakat 3 nü aynı stüna toplamayı başaramadım .

malzeme no malzeme tanımı genel toplam
sadece
malzeme no genel toplamı görüntüleyebiliyorum tanım malzeme nonun üstünde aynı hücrede çıkıyor yan sütüna nasıl çekebilirm.

 

[Korhan Ayhan]

Merhaba,

Özet tablo oluşturduğunuzda excel size bir menü açar. Bu menüden dilediğiniz özet tablo biçimini seçip kullanabilirsiniz. Biraz kurcalarsanız çözeceğinize inanıyorum.

 

[Korhan Ayhan]

Merhaba,

Ben yinede istediğiniz yapıda bir dosyayı ekliyorum. Yapamazsanız incelersiniz.

 

[mustilem23]

evet tam olarak sizin örnek dosyanız daki gibi bir sonuç elde etmek istiyorum yarım saattir uğraştım bi türlü beceremedim siz nasıl yaptınız kısaca anlatabilirseniz çok makbule geçecek.

 

[mustilem23]

çözüldü alan ayarların da sağ klıkler sayesinde.1 dakikakda işlem tamamdır teşekkürler korhan bey.