Soru EĞER FORMÜLÜNÜ TABLOYA MAKRO İLE UYGULAMA

[dengeceteris]

Sevgili Uzman Arkadaşlar aşağıda yazdığım formül konusunda yardımlarınızı bekliyorum, şimdiden tşk ederim.

Benim tablom C7;CW650 arasında bulunmaktadır. Aşağıda ki formülü (diğer sayfalarda da formüllü işlemler var) bu aralığa uygulayınca çok geç tepki veriyor. Sonuç alıyorum ama biraz bekliyorum. Bunu bir modül içinde C7 ile CW650 arasına makrolu bir formül şeklinde uygulama imkanımız var mıdır.

=+EĞER(YADA(VERİ!C7="";VERİ!C7=0);"";EĞER(VE(VERİ!C7<0;FİRMA!C7<0);VERİ!C7/FİRMA!C7*-1;VERİ!C7/FİRMA!C7))

 

[dengeceteris]

Pek dikkat çekmemiş galiba

 

[Muzaffer Ali]

Merhaba.

Formülün hangi hücrelere uygulanacağını belirtmemişsiniz. B7:B650 arasına göre yazdım siz kendinize göre değiştirin.

With Range("B7:B650")
        .FormulaLocal = "=+EĞER(YADA(VERİ!C7="""";VERİ!C7=0);"""";EĞER(VE(VERİ!C7<0;FİRMA!C7<0);VERİ!C7/FİRMA!C7*-1;VERİ!C7/FİRMA!C7))"
        .Value = .Value
    End With

Eğer olmazsa yada yapamazsanız dosyanızı ekleyin daha hızlı ve doğru yanıt alırsınız.