-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
siparişi depodan düşme
- Konbuyu başlatan yellow
- Başlangıç tarihi
Sayın Yellow,
Ne yazik kı tablonuzu inceleyince nasıl bir formül oluşturmak istediğiniz anlaşılmıyor.
Topla.Çarpım kullanarak çok basit yapılabilecek bir formül gibi gözüküyor, ama neyle neyi toplatıp, nasıl bir sonuç bulmak istediğiniz anlaşılmıyor.
Muhtemelen bu yüzden cevap alamadınız.
Yaptığınız işin dışına çıkarak biraz daha genel anlatırsanız belki daha anlaşılır olabilir.
Ne yazik kı tablonuzu inceleyince nasıl bir formül oluşturmak istediğiniz anlaşılmıyor.
Topla.Çarpım kullanarak çok basit yapılabilecek bir formül gibi gözüküyor, ama neyle neyi toplatıp, nasıl bir sonuç bulmak istediğiniz anlaşılmıyor.
Muhtemelen bu yüzden cevap alamadınız.
Yaptığınız işin dışına çıkarak biraz daha genel anlatırsanız belki daha anlaşılır olabilir.
sayın xxcell;
firma koduna göre yukarıdan aşağı doğru bakarak aynı olanlardan ilkini kalandan depoyu düşecek sonuç diyecek daha sonraki gelen aynı firma kodlarının kalan kısmını bir önceki sonuç kısmından düşecek o satırdaki sonuç bölümüne yazacak.
böylelikle firma koduna göre süzme işlemi yapıldığında yükleme tarihine göre toplam fazlayı veya yapılacak miktarı bulacam.
inşallah anlatabilmişimdir.
ilginize teşekkür ederim.
firma koduna göre yukarıdan aşağı doğru bakarak aynı olanlardan ilkini kalandan depoyu düşecek sonuç diyecek daha sonraki gelen aynı firma kodlarının kalan kısmını bir önceki sonuç kısmından düşecek o satırdaki sonuç bölümüne yazacak.
böylelikle firma koduna göre süzme işlemi yapıldığında yükleme tarihine göre toplam fazlayı veya yapılacak miktarı bulacam.
inşallah anlatabilmişimdir.
ilginize teşekkür ederim.
İlk olarak winrar'i internetten takribi 2 dk. içinde çok rahat kurabileceğinizi hatırlatırım.ArkadaŞlar Bu Dosyayi Zip Uzantili Tekrar GÖnderİrmİsİnİz.
Çok İŞİme YarayacaĞini DÜŞÜnÜyorum..
Şİmdİden TŞk.ederİm.
Syg.
Konumuza dönersek Sn.Yellow'un soru.xls dosyasında N2 hücresine;
=M2-TOPLA.ÇARPIM( ($D$2:$D$1000=D2) * (SATIR($F$2:$F$1000)<=SATIR())* ($F$2:$F$1000) )
yazıp aşağı doğru çekmeniz yeterlidir.
Yeri gelmişken değinmek isterim;
TOPLA.ÇARPIM FONKSİYONUN ÇALIŞMA PRENSİBİ
=M2-TOPLA.ÇARPIM( ($D$2:$D$1000=D2) * (SATIR($F$2:$F$1000)<=SATIR())* ($F$2:$F$1000) )
Topla.çarpım anlaması başlangıç düzeyinde karışık olduğu için yukarıdaki fonksiyonu makro ile aşağıya yazdım.
Başlangıç düzeyinde Basic bilgisi olan birisi fonksiyonla aşağıdaki kodu karşılaştığında fonksiyonun nasıl çalıştığını anlayacaktır.
Kodun fonksiyondan tek farkı ilgili değeri aktif hücreye (activecell) yazıyor ve aktif satıra (activecell.row) göre kıyaslama yapıyor.
Özetle anlaşılması gereken; Topla.Çarpım fonksiyonu hücre erimini İLK HÜCRE'den SON HÜCRE'ye kadar for - next döngüsü gibi teker teker ayrı olarak çalıştırıp her çalışmasında ürettiği değerlerin toplamını verir.
Genelde içinde Mantıksal karşılaştırmalar kullanılarak ilgili satırla ilgili kıyaslamalar yapılır. O satır karşılaştırmaya uyuyorsa 1 uymuyorsa 0 değeri alacağından bu karşılaştırmayı başka bir işlemle çarptırararak, o satırı işleme alıp almamayı sağlamış oluruz.
örneğin; Topla.çarpım( (a1:a100>"") * (b1:b100) )
burada a1:a100 arasındaki değerlerin >"" içerisinin dolu olup olmadığını karşılaştırıyor, ve b sütunundaki hücresindeki değerle çarptırıyor. Dolu olmayan a hücreleri mantıksal karşılaştırması 0 değeri üreteceğinden ve 0 ile çarpım işlemi olduğundan ilgili satır sonucu kesinlikle 0 üretecek yani işleme alınmayacaktır. Sonuç olarak a hücresinde dolu olan satırların b deki toplamını verecektir.
örnek 2; topla.çarpım( satır(a1:a100)<satır() * (a1:a100) )
burda bulunduğumuz satırdan önceki satırların a sütunundaki değerlerin toplamını verecektir.
TOPLA.ÇARPIM FONKSİYONUN ÇALIŞMA PRENSİBİ
=M2-TOPLA.ÇARPIM( ($D$2:$D$1000=D2) * (SATIR($F$2:$F$1000)<=SATIR())* ($F$2:$F$1000) )
Topla.çarpım anlaması başlangıç düzeyinde karışık olduğu için yukarıdaki fonksiyonu makro ile aşağıya yazdım.
Başlangıç düzeyinde Basic bilgisi olan birisi fonksiyonla aşağıdaki kodu karşılaştığında fonksiyonun nasıl çalıştığını anlayacaktır.
Kodun fonksiyondan tek farkı ilgili değeri aktif hücreye (activecell) yazıyor ve aktif satıra (activecell.row) göre kıyaslama yapıyor.
Kod:
Sub TOPLA_CARPIM_FONKSIYONU_CALISMA_PRENSIBI()
deger = 0
For SATIR = 2 To 2000
deger = deger + ((Range("D" & SATIR) = Range("D" & ActiveCell.Row)) * _
(Range("F" & SATIR).Row <= ActiveCell.Row) * Range("F" & SATIR))
Next
deger = Range("M" & ActiveCell.Row) - deger
ActiveCell = deger
End SubGenelde içinde Mantıksal karşılaştırmalar kullanılarak ilgili satırla ilgili kıyaslamalar yapılır. O satır karşılaştırmaya uyuyorsa 1 uymuyorsa 0 değeri alacağından bu karşılaştırmayı başka bir işlemle çarptırararak, o satırı işleme alıp almamayı sağlamış oluruz.
örneğin; Topla.çarpım( (a1:a100>"") * (b1:b100) )
burada a1:a100 arasındaki değerlerin >"" içerisinin dolu olup olmadığını karşılaştırıyor, ve b sütunundaki hücresindeki değerle çarptırıyor. Dolu olmayan a hücreleri mantıksal karşılaştırması 0 değeri üreteceğinden ve 0 ile çarpım işlemi olduğundan ilgili satır sonucu kesinlikle 0 üretecek yani işleme alınmayacaktır. Sonuç olarak a hücresinde dolu olan satırların b deki toplamını verecektir.
örnek 2; topla.çarpım( satır(a1:a100)<satır() * (a1:a100) )
burda bulunduğumuz satırdan önceki satırların a sütunundaki değerlerin toplamını verecektir.
Son düzenleme:
teşekkür
sayın xxcell ;
arkadaşım bunun çözümü için bir aydır uğraşıyorum.çok teşekkür ederim.aklına yüreğine sağlık.
yanlız ben bunu makro olarak yapamadım rica etsem örnek üzerinde yapabilirmisin.
hep böyle başarılara imza atman dileğiyle teşekkürler.
sayın xxcell ;
arkadaşım bunun çözümü için bir aydır uğraşıyorum.çok teşekkür ederim.aklına yüreğine sağlık.
yanlız ben bunu makro olarak yapamadım rica etsem örnek üzerinde yapabilirmisin.
hep böyle başarılara imza atman dileğiyle teşekkürler.
Xxcell ArkadaŞima..
ArkadaŞim Winrar Kurmayi Bİlİyorum.fakat İŞ Yerİmde DiŞaridan Program Kurulumuna İzİn Verİlmİyor.bİlgİ Sİstem Tarafindan İzİn Verİlmİyor.o YÜzden Dosyayi Zip Uzantili İstedİm.yardimci Olabİlecek Yok Mu?
ArkadaŞim Winrar Kurmayi Bİlİyorum.fakat İŞ Yerİmde DiŞaridan Program Kurulumuna İzİn Verİlmİyor.bİlgİ Sİstem Tarafindan İzİn Verİlmİyor.o YÜzden Dosyayi Zip Uzantili İstedİm.yardimci Olabİlecek Yok Mu?
xxceel in dosyasının zip li hali ekteArkadaŞim Winrar Kurmayi Bİlİyorum.fakat İŞ Yerİmde DiŞaridan Program Kurulumuna İzİn Verİlmİyor.bİlgİ Sİstem Tarafindan İzİn Verİlmİyor.o YÜzden Dosyayi Zip Uzantili İstedİm.yardimci Olabİlecek Yok Mu?
Oncelikle anladığım kadarı ile Sn. yeşilcan'a patavatsızlık yapmışım.
Haddimi aştıysam kusura bakmayın, inanın öyle bir niyetim yok.
ikincisi yoğunluktan ilgilenememişim Sn. Yellow bir ricada bulunmuş,
aşağıdaki kodu bir butona atayıp çalıştırırsanız. topla.çarpım'ın yaptığı
işi yapıyor.
Haddimi aştıysam kusura bakmayın, inanın öyle bir niyetim yok.
ikincisi yoğunluktan ilgilenememişim Sn. Yellow bir ricada bulunmuş,
aşağıdaki kodu bir butona atayıp çalıştırırsanız. topla.çarpım'ın yaptığı
işi yapıyor.
Kod:
Sub n_sutununa_topla_carpim_formulu_yerine_yazilmasi_gereken_fonksiyon()
son_satir = [d65536].End(xlUp).Row
If [f65536].End(xlUp).Row > son_satir Then son_satir = [f65536].End(xlUp).Row
deger = 0
For derlenen_satir = 2 To son_satir
For SATIR = 2 To son_satir
deger = deger + ((Range("D" & SATIR) = Range("D" & derlenen_satir)) * _
(Range("F" & SATIR).Row <= derlenen_satir) * Range("F" & SATIR))
Next
deger = Range("M" & derlenen_satir) - deger
Cells(derlenen_satir, "n") = deger
deger = 0
Next
End Sub-
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.