- Coba bandingkan codes yang sukses dan setelah modifikasi.
- Pada "Success code", Autofill men-select sel pertama dalam range, yaitu Range("W2") --> (lihat code ....Select pada Success code) sedangkan pada "After Modified Codes" penunjuk sel entah berada di mana...sehingga Autofill nya tidak dapat dilaksanakan (lihat perintah Selection.AutoFill .....); Selection merujuk kepada sel yang mana ?
Silakan renungkan dan coba lagi, semoga berhasil.
Salam,
HK
On Thursday, 24 October 2013, 12:49, "ones_marle_oke@yahoo.com" <ones_marle_oke@yahoo.com> wrote:
Pak Hendrik,
Terima kasih untuk codenya.
Namun saat saya modifikasi code tersebut, ternyata ada Bug untuk AutoFill nya. Bugnya seperti ini : "AutoFill method of Range class failed"
itu kenapa ya pak?
Terima kasih kembali atas bantuan dan penjelesannya.
Berikut codenya :
Success Code :
Dim iRow As Long
iRow = Cells(Rows.Count, "A").End(xlUp).Row
Range("W2").Select
ActiveCell.FormulaR1C1 = _
"=IF(DAY(RC[-17])<DAY(NOW()),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW())-1,DAY(RC[-17])))"
Selection.AutoFill Destination:=Range("W2:W" & iRow)
After Modified Codes :
Dim Irow As Long
Irow = shDB_CP.Cells(Rows.Count, "A").End(xlUp).Row
shDB_CP.Range("W2").FormulaR1C1 = _
"=IF(DAY(NOW())<DAY(RC[-17]),DATE(YEAR(NOW()),MONTH(NOW()),DAY(RC[-17])),DATE(YEAR(NOW()),MONTH(NOW()-1),DAY(NOW())))"
Selection.AutoFill Destination:=shDB_CP.Range("W2:W" & Irow)
MsgBox "Done", vbOKOnly, "Information"
Penjelasan :
shDB_CP => Ini sheets yang akan dituju, sudah dideklarasikan saat open workbook
---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
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, "ones_marle_oke@..." <ones_marle_oke@...> 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 belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> 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 belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
Mau coba tanpa VBA ?
pada sheet Before, pastikan W2 sampai W4 sudah berisi formulakemudian blok A1 sampai W4 -> ribbon Home -> group Styles -> format as table -> pilih salah salah satu styles -> centang my table has header
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.
__._,_.___
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
__,_._,___
Tidak ada komentar:
Posting Komentar