Ikutan ya...
Public Sub CopyRumus()
Dim sArea As String
sArea =
Range("a2").CurrentRegion.Offset(columnoffset:=1).Resize(columnsize:=1).Address
Range("b1").Copy 'copy rumus dari cell b1 yang ada template
rumusnya
Range(sArea).PasteSpecial xlPasteFormulas
Range("b1").Select
Application.CutCopyMode = False
End Sub
Asumsi :
ada rumus di cell b1 (template rumus) oleh sebab itu ada range("b1").copy
data di kolom A dan rumus di 1 kolom (lihat columnoffset) (positif artinya
sebelah kanan) sebelah kanan kolom A.
data dimulai dari baris 2 (oleh sebab itu pakai range("a2")
Batasan :
Jika ada 1 baris data blank, maka hanya akan meng-copy formula sampai 1
baris sebelum baris blank itu.
Yang di-Paste hanya formula (lihat : xlPasteFormulas )
Kid
2009/6/20 Iskandar Caca <[email protected]>
>
>
> Dear Bu Siti
>
> Berikut saya kirimkan contoh
> pada sheet bogor berisi data dan pada sheet rumus saya isikan rumus
> tetapi karena saya tidak tahu syntack yang harus saya gunakan
> autofill tersebut saya lakukan secara manual
> padahal step yang lain menggunakan macro walaupun saya rekam dengan
> recorder
>
> masalahnya pada kolom bgr akhir dari baris data kolom A tidak tetap
> (dinamis)
>
>
> tks
> ca2
>
>
>
> .
>
>
>
