Formülü Makro Yapma

[umit1907]

Merhabalar Ekteki Dosya açılırken çok zorlanıyor diye formülleri makro ile çözmeye çalışıyorum ama yazdığım kod hata veriyor yardım edebilecek arkadaşlara şimdiden teşekkür ederim.birde bu kodları siteden buldum ama ne anlam ifade ettiği anlamadım.

 

[mustafakoker]

Sevgili ümit bey
sorunuz bu değil ama yardımcı olacağını düşündüm
ekte daha önce bu sitedeki uzmanlarımızın yardımlarıyla ba bs programı yapmıştım

hazırlık sayfalarında fatura matrahlarını firma bilgilerini yazıyorsunuz aktar dediğinizde ilgili sayfada toplamları görürsünüz
ayrıca sırano 1den itibaren secip txt olarak kaydede bilirsiniz
tabi öncelikle dosya yolunu göstermeniz lazım
ben
DosyaYolu = "C:\ebyn\Ba Bs"
olarak kaydetmiştim
c:ebyn klaörünün içine bir seferliğine Ba Bs diye yeni bir klasör oluşturmuştum
ve bdp ye buradan direk çektiriyorum

http://www.excel.web.tr/f48/ba-bs-listesi-hazyrlama-klavuzu-t88185.html

 

[umit1907]

teşekkür ederim abi eline sağlık abi ben deki sorun 1 aylık dönemde 10.000 ile 15.000 arası fatura oluyor bunlardan aynı isimleri bulmak için bu formüle ihtiyacım var. =EĞER(VE(ETOPLA(A:A;A6;C:C)>1;EĞERSAY($A$1:A6;A6)=1);MAK($D$15)+1;"") bu formülü makro yapabilirsem işimi görecek .

 

[numan şamil]

Merhaba
kodlarındaki
s1.Range("D4" & s).FormulaR1C1 ="IF(AND(SUMIF(C[-3];RC[-3];C[-1])>5000;COUNTIF(R1C1:RC[-3];RC[-3])=1);MAD(R1C4:R[-1]C)+1;"")"

Bölümü
s1.Range("D4" & s).FormulaR1C1 "=IF(AND(SUMIF(C[-3];RC[-3];C[-1])>1,COUNTIF(R1C1:RC[-3];RC[-3])=1);MAX(R1C4:R[-1]C)+1;"""")"
şeklinde yazıp denermisiniz.

 

[numan şamil]

Merhaba
Ekli dosyayı incelermisiniz

 

[mustafakoker]

bu işini görür mü