Dolu hücrelerin 1 alt satırını seçme

[aydogankemal]

Merhabalar,
bir makro yazdım ancak şu noktada takılıyorum, örneğin M11:M20 arası verilerim var,
Ben Makro ile N11 e bir formül yazacağım, ve bunu sol tarafta dolu olan hücreler kadar aşağı kopyalamak istiyorum. Excelde formül yazarken mouse ile çift tıklayıp solda dolu hücreler kadar ilerletebiliyorduk, ancak bunu makro olarak nasıl yapabiliriz, yardımcı olabilecek var mı

 

[Korhan Ayhan]

Merhaba,

Deneyiniz. Ben formülü örnek olarak yazdım. Siz kendi dosyanıza göre revize edersiniz.

Option Explicit

Sub Formula_Filldown()
    With Range("N11")
        .Formula = "=SUM(O11:Z11)"
        .Resize(Cells(Rows.Count, "M").End(3).Row - 10).FillDown
    End With
End Sub

 

[Korhan Ayhan]

Eğer aralık sabitse aşağıdaki gibi de kullanabilirsiniz.

Option Explicit

Sub Formula_Filldown()
    With Range("N11:N20")
        .Formula = "=SUM(O11:Z11)"
    End With
End Sub