Tek hamlede tüm sütuna formülü yayma

[krizantem_kasimpati]

Arkadaşlar merhaba!

Öyle bir makro olsun ki içeriğine bir formül yazayım ve bu makroyu çalıştırdığımda bu formül , yanındaki sütunun son dolu hücresine kadar aşağıya doğru uygulansın.Yardımlarınızı bekler şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

A2 den, A sütunundaki son hücreye kadar, yan sütunu olan B sütununa formülü yazar.

Sub Yaz()
    
    Dim i As Long
    
    Range("B2:B" & Rows.Count).ClearContents
    
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "B") = "=[COLOR="blue"]Sum(C1:C5)[/COLOR]" [COLOR="DarkOliveGreen"]'formülü değiştirirsiniz.[/COLOR]
    Next i
    
End Sub

.

 

[krizantem_kasimpati]

Ömer bey merhaba.Öncelikle teşekkür ederim.

Aşağıdaki gibi uyarladığımda formül satırı hatalı uyarısı veriyor.

Sub yaz()

Dim i As Long

Range("A1:A" & Rows.Count).ClearContents

For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
Cells(i, "A") = "=EĞER(B1=0;KAYDIR(A1;-1;0);D1)"
Next i

End Sub

 

[Ömer]

Formül satırını aşağıdakiyle değiştirin.

Cells(i, "A") = "=If(B1=0,Offset(A1,-1,0),D1)"

.

 

[Korhan Ayhan]

Alternatif;

Sub Formül_Yaz()
    Dim Son As Long
    
    Range("A1:A" & Rows.Count).ClearContents
    Son = Cells(Rows.Count, "B").End(3).Row
    
    With Range("A1:A" & Son)
        .FormulaLocal = "=EĞER(B1=0;KAYDIR(A1;-1;0);D1)"
    End With

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

KAYDIR fonksiyonundaki -1 den kaynaklı ve formülü A1 hücresinden başlattığınız için BAŞVURU hatası oluşuyor. Bilginiz olsun.

 

[krizantem_kasimpati]

Çok teşekkür ediyorum sizlere.

Yani anladığım kadarı ile mesele formüldeki ingilizce veya türkçe kelimeler değil mesele noktalı virgül.Böyle durumlarda noktalı virgüller virgül olarak değiştirilecek.Doğru mu?

Bir de Ömer bey sizin kodları çalıştırdığımda formül tüm sütuna işledi fakan "#AD" olarak.Hücreye tıkladığımda formül güncelledi.Ve sütun boyunca tüm formüllerin hedef hücreleri aynı kaldı.

Korhan bey, sizin kodları çalıştırdığımda hiç bir sorun çıkmadı (bahsettiğiniz -1 sorunu da dahil)

Teşekkür eder saygılar sunarım.