Bukan Pak, hanya baris terakhir saja, karena code lrow = ...End(xlUp).Row 
mengambil baris terakhir yang ada isinya.

Salam,
HK




On Thursday, 24 October 2013, 9:53, "[email protected]" 
<[email protected]> wrote:
 
  
Pak Hendrik,

Terima kasih atas penjelasannya.
Untuk mksd dari cell tidak boleh kosong, ini mksdnya kolom W1 sampai kolom 
terakhir dari kolom W ya?

Saya coba ya pak. Terima kasih. 


---In [email protected], <[email protected]> wrote:


Coba codes ini,
Dim lrow As Long
lrow = Cells(Rows.Count, "W").End(xlUp).Row
Selection.AutoFill Destination:=Range("W2:W" & lrow)

SK : cell terakhir harus ada isinya (tidak boleh blank), jika baris terakhir 
kolom w kosong maka bisa mengacu ke baris terakhir kolom lain yang ada isinya 
(tinggal ganti kolom "W" pada code lrow = ......)

Salam,
HK



On Thursday, 24 October 2013, 9:24, "ones_marle_oke@..." <ones_marle_oke@...> 
wrote:
 
  
Dear Om Kid,

Ini akan saya coba dlu om kid dengan penjelasan di atas.
Tapi permasalahannya, apabila data yang akan disimpan semakin banyak, apakah 
tidak akan membuat size penyimpanan excel menjadi membengkak? Karena data yang 
sudah terecord saat ini sudah sekitar 1000 something.. Jadi saya bermaksud 
membuatkan rumus tersebut menjadi copy paste value pada kolom tersebut. Dan 
sebenarnya proses perhitungan tanggal ini akan berjalan setiap harinya, karena 
untuk proses AutoFilter saat user(kita) mengklik tombol untuk AutoFilternya.

Sekian dari kasus yang saya tanyakan untuk destination range tersebut.

Salam untuk semua beXcel.. 


---In [email protected], <[email protected]> wrote:


Mau coba tanpa VBA ?

pada sheet Before, pastikan W2 sampai W4 sudah berisi formula
kemudian blok A1 sampai W4 -> ribbon Home -> group Styles -> format as table -> 
pilih salah salah satu styles -> centang my table has header
coba copy data baru di A5 sampai A sekiun.

Fitur ini bernama Excel Table diatas (xl2007 keatas) . Pada xl2003 bernama List 
yang bisa ditemui pada menu Data -> List

Wassalam,
Kid.






2013/10/23 aji suseno <ones_marle_oke@...>

 
>>>  
>>>Dear Master Suhu,
>>>
>>>
>>>Mohon bantuannya lagi dong untuk mengetahui saat kita menggunakan 
>>>FormulaR1C1 pada macro VBA dan saat kita ingin copy rumus tersebut sampai 
>>>Rows terakhir pada sheets yang sedang aktif.
>>>Karena klo saya record macro, ternyata macronya menunjukan rows awal rumus 
>>>(example W2) dan rows akhir data (example W4). Tertulis seperti ini => 
>>>Selection.AutoFill Destination:=Range("W2:W4")
>>>
>>>
>>>Sedangkan suhu VBA, ternyata saya mempunyai data yang setiap harinya akan 
>>>bertambah. Jadi secara otomatis rows akhir data tersebut kan menjadi 
>>>bertambah juga (example penambahan data W10).
>>>
>>>
>>>Nah, itu bagaimana ya cara menentukan Destination:=Range ini supaya akan 
>>>membaca pada rows terakhir.
>>>File excel terlampir ya master suhu VBA. Udah mumet nyoba-nyoba sendiri 
>>>dengan rumus ajaib sendiri, tapi tetep BUG karena declaration range ga bener 
>>>(alias Excel nya ikut mumet).
>>>
>>>
>>>Terima kasih om-om, tante-tante, mba-mba, mas-mas semuanya yang bisa 
>>>membantuk Case ini.
>>>
>>>
>>>Lagi - lagi attachmentnya ga bisa diupload lewat email... :-(
>>>Saya upload di milis ini ya master semua.
>>>
>>>
>>>http://milis-belajar-excel.1048464.n5.nabble.com/Mengetahui-Destination-Range-terakhir-pada-Rows-workbook-attachment-saja-td5721745.html
>>>
>>>
>>>
>>>
>>>



Kirim email ke