• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Formülü makroya çevirme

T

teonet

Altın Üye
Katılım
20 Kasım 2005
Mesajlar
403
Excel Vers. ve Dili
Ofis 2010 Türkçe
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
 
. . .

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.

. . .
 
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
 
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 BEY ,

Uğraştım ama beceremedim hiç makro yazmadığım için biraz sıkıntı çekiyorum yardımcı olabilir iseniz çok sevinirim.
 
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
Genişletmek için tıkla ...
korhan bey ,

makro kodumuz böylemi olmalı?
 
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:D" & 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
 
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.
 

Ekli dosyalar

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.
 
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.
 
Merhaba,

Özet tablo kullanmayı denediniz mi? Hem pratik hem de hızlı sonuç verir.
 
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.
 
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.
 
Merhaba,

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

Ekli dosyalar

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.
 
çözüldü :) alan ayarların da sağ klıkler sayesinde.1 dakikakda işlem tamamdır teşekkürler korhan bey.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst