DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
İ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.
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 Sub
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?
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