SON DURAK

[saka]

Merhaba arkadaşlar,

Tablomda DV sütunundaki DV6 hücresine sayfa1'den formülle veri aktarıyorum.
(DV6 hücresine =sayfa1!CC3 yazıyorum)
Daha sonra formülü aktardığım hücreyi tablomun son dolu satırına kadar aşağı çekerek kopyalıyorum.

Bu işlemi Excel'in MAKRO KAYDET şablonu ile yapıyorum.

İşlem sonunda Excel şu makroyu üretiyor:

Range("DV6").Select
ActiveCell.FormulaR1C1 = "=sayfa1!R[-3]C[-45]"
Selection.AutoFill Destination:=Range("DV6 : DV15"), Type:=xlFillDefault
Range("DV6 : DV15").Select

Makro bu haliyle çalışıyor.

Ben istiyorum ki makrodaki DV15'lerin yerine son dolu satırı yazsın.
Ben ilave satır eklediğimde DV15 yerine DV16 ... DV1000 yazmayayım, son dolu satırı kendisi bulsun; orada dursun.

 

[uzmanamele]

Merhaba

Deneyiniz.

Sub d()
ss = Range("DV1048576").End(3).Row
Range("DV6").Select
ActiveCell.FormulaR1C1 = "=sayfa1!R[-3]C[-45]"
Selection.AutoFill Destination:=Range("DV6" & " : " & "DV" & ss), Type:=xlFillDefault
End Sub

 

[saka]

Denedim ancak çalışmadı.

Son satırı sarıya boyuyor ve

Can't execute code in break mode

mesajı veriyor.