Ok saya coba dulu ya
tks
ca2
--- Pada Sab, 20/6/09, nm kid <nmkid.fam...@gmail.com> menulis:
Dari: nm kid <nmkid.fam...@gmail.com>
Topik: Re: [belajar-excel] autofill dengan macro excel
Kepada: belajar-excel@yahoogroups.com
Tanggal: Sabtu, 20 Juni, 2009, 12:12 PM
Ikutan ya...
Public Sub CopyRumus()
Dim sArea As String
sArea = Range("a2").CurrentRegion. Offset(columnoff set:=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 <iskandarcaca@ yahoo.co. id>
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
.
Wajib militer di Indonesia? Temukan jawabannya di Yahoo! Answers!
http://id.answers.yahoo.com
