Son dolu hücreye göre satırlara sıralı formül yazdırma

[Gold_Savt]

Merhaba arkadaşlar;
8 . satırdan başlayan
Sheets("Veri").Range("EA8:EA1000").FormulaLocal = "=D8+C8"
Sheets("Veri").Range("EE8:EE1000").FormulaLocal = "=F8+G8"
Sheets("Veri").Range("EZ8:EZ1000").FormulaLocal = "=AB8+AC8"
..
..
Formüller dizisini VBA olarak oluşturdum.

Her seferinde 8.satırdan 1000. satıra kadar bu hücrelerini yazdırmak yerine
B sütundaki doluluk durumuna göre sınırlandırabilir miyim.

Örneğin son dolu hücre B50 ise orada forül kopyalamayı sonlandırabilir miyim?
B sütunundaki son dolu hücrenin satırına kadar formül yazsın kısaca.

 

[Necdet]

Merhaba,

Aşağıdaki kod A sütununda en son dolu hücreyi bularak B sütununun 8. satırdan itibaren 1 den başlayarak formül yazdırır.
Siz kendinize göre gerekli değişiklikleri yapınız.

Sub Makro1()
    
    Dim i   As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    Range("B8").Formula = "=ROW(A1)"
    Range("B8:B" & i).FillDown
    
End Sub

 

[Gold_Savt]

Bu hatanın kaynağı ne olabilir? Birinci formülüm kopyalandı. İkincisi kopyalanmadı.

'Çalıştı
    Sheets("Veri").Range("EA8").Formula = "=D8+C8 "
    Sheets("Veri").Range("EA8:EA" & i).FillDown

    'Çalışmadı:
    Sheets("Veri").Range("EB8").Formula = "=EĞER(W8=""tahsilat"";Z8;0)"
    Sheets("Veri").Range("EB8:EB" & i).FillDown

 

[YUSUF44]

Aşağıdaki gibi olmalı sanıyorum:

Sheets("Veri").Range("EB8").Formula = "=IF(W8=""tahsilat"",Z8,0)"

 

[Gold_Savt]

Bir türlü çalıştıramadım hocam malesef.

    Dim f As Long       '(i harfi aynı makro içinde vardı. o yüzden f yazdım)
    f = Sheets("Veri").Cells(Rows.Count, "B").End(3).Row
    'Çalışıyor'
    Sheets("Veri").Range("EA8").Formula = "=D8+C8 "
    Sheets("Veri").Range("EA8:EA" & f).FillDown
    
    'Çalışmıyor'
    Sheets("Veri").Range("EB8").Formula = "=IF(W8=""tahsilat"";Z8;IF(W8=""makbuz"";AA8;0)"
    Sheets("Veri").Range("EB8:EB" & f).FillDown

 

[Ömer]

Merhaba,

Formülü aşağıdaki gibi yazarak deneyin.

Sheets("Veri").Range("EB8").Formula = "=IF(W8=""tahsilat"",Z8,IF(W8=""makbuz"",AA8,0))"

.

 

[Gold_Savt]

Teşekkür ederim Ömer Bey;
Şu haliyle çalışan bir kodumuz var. Her seferinde, her satırın altına aşağıdaki ifadeyi yazmak zorunda mıyım.
Yazılacak satır sayısı fazla olduğu için soruyorum.
"Sheets("Veri").Range("EB8:EB" & f).FillDown"

 

[YUSUF44]

Bir önceki mesajımdaki formülle sizin verdiğiniz formülü karşılaştırırsanız nerede hata yaptığınızı göreceksiniz

 

[Ömer]

Teşekkür ederim Ömer Bey;
Şu haliyle çalışan bir kodumuz var. Her seferinde, her satırın altına aşağıdaki ifadeyi yazmak zorunda mıyım.
Yazılacak satır sayısı fazla olduğu için soruyorum.
"Sheets("Veri").Range("EB8:EB" & f).FillDown"

FillDown kullanmadan aşağıdaki gibi de yazılabilir.

Sheets("Veri").Range("EB8:EB" & f).Formula = "=IF(W8=""tahsilat"",Z8,IF(W8=""makbuz"",AA8,0))"

.

 

[Gold_Savt]

Ömer Bey; bazı yerlerde formül yerine Ekte belirttiğim gibi " #AD? " şeklinde hatalı ifadeler geliyor. Hücre içine girip çıkınca formülü düzeltiyor kendi kendine. Bunu nasıl aşabiliriz.


Yusuf Bey; "Bir nokta, gözü kör eder" diye bir darbı mesel vardır eskilrden. Hatamı farkedince aklıma o geldi

 

[YUSUF44]

Ömer Bey; bazı yerlerde formül yerine Ekte belirttiğim gibi " #AD? " şeklinde hatalı ifadeler geliyor. Hücre içine girip çıkınca formülü düzeltiyor kendi kendine. Bunu nasıl aşabiliriz.


Yusuf Bey; "Bir nokta, gözü kör eder" diye bir darbı mesel vardır eskilrden. Hatamı farkedince aklıma o geldi

Birinci paragrafın cevabı ikinci paragrafınızda gizli

Bu vesileyle öğrendiğim şey formülü makroda tamamen ingilizce terim ve dizilimle yazmak gerektiği. İngilizcesi düzgün olunca Türkçesi de düzgün luyor.

 

[Gold_Savt]

Yusuf Bey; haklısınız, "ve" bağlacını türkçe kullandığımdan kaynaklanıyormuş.
Demek ki bu gün "VBA da asla türkçe formül kullanma" dersini öğrenmiş oldum.

 

[Ömer]

Kullandığınız kodları yazar mısınız.

 

[Gold_Savt]

Ömer Bey;
Sheets("Veri").Range("EM8").Formula = "=IF(VE(L8>0,EC8>0),L8,IF(VE(L8>0,ED8>0),4,0))" şeklinde yazmıştım. #AD? hatası geliyordu.
Sheets("Veri").Range("EM8").Formula = "=IF(and(L8>0,EC8>0),L8,IF(and(L8>0,ED8>0),4,0))" şeklinde yazınca düzeldi.

 

[Necdet]

Basit bir dosya eklenseydi bu kadar mesajlaşma olmazdı diye düşünüyorum. Haklı mıyım?