Dolu satır sayısına göre formül kopyalama

[yollabana]

Merhabalar,
Ekte gönderdiğim örnek dosyamda da belirttiğim üzere önce dolu satır sayısının bulunmasını ve ardındanda bu satır sayısına göre formülü kopyalayabilecek bir döngünün oluşturulması mümkün mü acaba?
İlgilenen değerli üstadlarıma çok teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub kopyala()
Dim sat As Integer
With Sayfa1
    .[b1] = WorksheetFunction.CountA(.Range("b5:b10000"))
    For sat = 6 To .[b1] + 4
        .[d5].Copy .Cells(sat, "d")
    Next
End With
End Sub

 

[murat23351]

formülü doğru yazıyor ama sonuç değeri hep aynı yazdırıyor ???

 

[Orion1]

Aşğaıdaki kdolarla çıkarma formülü oluşturulup yazııyor.
Ama bence formül yazmayın kod bir butonla yaapın veya çalışma sayfasına kod yazın anında çıkarma işlemi yapsın.Formüller çoğaldıkça sayfa ağırlaşır.

Sub cikarma_formulu()
Dim sat As Long, i As Long
sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
For i = 5 To sat
    Sheets("Sayfa1").Cells(i, "D").Formula = "=B" & i & "-C" & i
Next i
End Sub

 

[Kemal Demir]

İyi hafta sonları arkadaşlar,

[b1] = [a65536].End(3).Row - 4
For x = 5 To [b1] + 4
    Cells(x, 4) = Cells(x, 2) - Cells(x, 3)
Next