Hücredeki Formülü değişen satır sayısı kadar kopyala

[muratnazli]

Selamlar.

E2 Hücresindeki formülü aşağıya doğru dosyadaki satır sayısına göre macro ile nasıl kopyalayabilirim. Satır sayısı değişkendir.

 

[Haluk]

Sub Test()
    x = Cells(65536, 3).End(xlUp).Row
    Range("E2").AutoFill Destination:=Range("E2:E" & x)
    Application.Calculate
End Sub

 

[Serpily]

İlla makro olsun demezseniz e1 hücresine eğer(c2<>"";c2-e2;"") da yazıp sürükleyebilirsiniz.