Formulu Bi altsatıra kopyalama

[zamenya]

sayın hocalarım öncelkle merhaba
Çalışma tablomdaki C2 VE D2 sutunlarında formullerim var yapmak istediğim A2 Hücresine bakım en son dolu hücreye kadar C2 ve D2 sütünlarındaki formulu nasıl sondolu hücreye kadar aktarabilirim vb kodu ile,
Bu konuda yardımcı olursanız çok sevinirim
şimdiden teşekkürler

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub formul_doldur()
ss = Range("a65536").End(3).Row
Range("C2").AutoFill Destination:=Range("C2:C" & ss)
Range("D2").AutoFill Destination:=Range("D2:D" & ss)
End Sub

 

[zamenya]

çok teşekkürler

 

[uzmanamele]

merhaba

kod yazmadan da basit yolu var.
C2: D2 hücreyi seçin / D2 hücrenin sağ alt köşesine fareyle geldiğinizde kalın + işareti çıkacaktır / burayı çift tıkladığınızda B sütununun dolu olduğu hücreler kadar tüm C ve D sütununa formül kopyalanmış olur.