Hücreleri doldurma

[LORINSER]

Merhabalar

Dışveri kaynağından aldığım veride Q2 hücresine J2'ye gelen veriyi, R2 hücresine de E2-F2 ye gelen verinin çarpını yerleştirdim. Fakat Q2 ve R2 den aşağı hücrelere aynı formulu oluşturamadım. Tabi bu doldurma dışveri kaynağından çekilen veri kadar olmalı...

 

[Korhan Ayhan]

Q2 hücresine uyguladığınız formül için aşağıdaki yöntemi kullanabilirsiniz.

    Satir = Cells(Rows.Count, 1).End(3).Row
    If Satir > 1 Then Range("Q2:Q" & Satir).FormulaR1C1 = "=IF(RC[-4]=""C"",-1,1)*RC[-7]"

 

[muygun]

Merhaba;
Korhan bey sonuçlandırmış ama hazırladığım ek alternatif olsun.
İyi çalışmalar.

 

[LORINSER]

Q2 hücresine uyguladığınız formül için aşağıdaki yöntemi kullanabilirsiniz.

    Satir = Cells(Rows.Count, 1).End(3).Row
    If Satir > 1 Then Range("Q2:Q" & Satir).FormulaR1C1 = "=IF(RC[-4]=""C"",-1,1)*RC[-7]"

Teşekkürler Üstad tam istediğim gibi olmuş. Ellerinize sağlık.

 

[LORINSER]

Merhaba;
Korhan bey sonuçlandırmış ama hazırladığım ek alternatif olsun.
İyi çalışmalar.

Sizin çalışmanız da işimi görebilir fakat ufak bi sorun var. Fatura statüsü "c" olanları eksi olarak işleme alması lazımken sizin çalışmada "-1" olarak işleme alıyor. Yinede ellerinize sağlık şekilli olmuş çalışmanız. Teşekkürler