bagaimana kalo dirubah menjdai Cells(50000,7).end(xlUp).row ? asumsi maximal jumlah record 50000.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of tio.ad...@ptssb.co.id Sent: Tuesday, April 02, 2013 9:06 AM To: belajar-excel@yahoogroups.com Subject: Re: [belajar-excel] Pencarian cel dengan nilai kosong Dear BeExceller, 1. Untuk Cells(Rows.count,1) .end(xlup).row bisa menghitung nomor baris yang mana datanya tidak ada lagi di bawahnya (kosong). Bagaimana penulisan Cells(Rows.count,1) .end(xlup) .row untuk menghitung nomor baris bila baris datanya ada di atas dan di bawah dengan kolom yang sama ? file terlampir : 2. Selain Cells(Rows.count,1) .end(xlup) .row yang menghasilkan nilai yang beda di Excel 2003 dan Excel 2010, apakah ada formula lain selain Cells(Rows.count,1) .end(xlup) yang juga beda hasilnya di Excel 2003 dan Excel 2010 ? Terima kasih, Wassalam , Tio Jan Raisin <miss.jan.rai...@gmail.com> Sent by: belajar-excel@yahoogroups.com 03/20/2013 09:21 AM Please respond to belajar-excel To: belajar-excel@yahoogroups.com cc: Subject: Re: [belajar-excel] Pencarian cel dengan nilai kosong Mungkin begini kali ya.. pada skript ini: Set rngKosong = Range(Cells(6, 2), Cells(NumberBrsStdHrsOrder, 2)).SpecialCells(xlCellTypeBlanks) nilai baris paling bawah berasal dari sini: NumberBrsStdHrsOrder = Range(Selection, Selection.End(xlDown)).Rows.Count + 4 sedangkan skript yang ini: .Rows.Count akan menghasilkan nilai seluruh baris pada worksheet excel, pada excel 2003 ke bawah akan menghasilkan nilai 65.536, sedangkan di 2007 ke atas akan menghasilkan nilai 1.048.576 coba ubah menjadi seperti ini: NumberBrsStdHrsOrder = cells(rows.count , 1).end(xlup).row ganti nilai 1 yang berwarna merah dengan nomor kolom yang berisi data paling akhir, maka akan menghasilkan nilai baris data yang paling bawah. Semoga gak salah-salah amat karena gak dicoba dulu di Excel. Wassalam, -Miss Jan Raisin- Pada 20 Maret 2013 08.56, <tio.ad...@ptssb.co.id> menulis: Dear Be-Exceller, Saya coba mencari sel yang kosong dengan meng klik Go To special -blank dan langsung di isi dengan 0, pertanyaannya adakah cara code VBA , bila cel yang kosong tidak process pencarian, tapi kalau ada maka process pencarian dilakukan. Ini code VBA yang sudah saya buat : Dim NumberBrsStdHrsOrder As Integer Dim rngKosong As Range Cells.Find("Order").Activate NumberBrsStdHrsOrder = Range(Selection, Selection.End(xlDown)).Rows.Count + 4 Cells(1, 1).Value = 0 Cells.Find("STD HOURS").Activate Selection.AutoFilter Cells(1, 1).Select Selection.Copy Range(Cells(6, 2), Cells(NumberBrsStdHrsOrder, 2)).Select Set rngKosong = Range(Cells(6, 2), Cells(NumberBrsStdHrsOrder, 2)).SpecialCells(xlCellTypeBlanks) If rngKosong Is Nothing Then 'Kok ini gak berhasil kenapa yah ?? MsgBox ("Tidak ada") Else Selection.SpecialCells(xlCellTypeBlanks).Select ActiveSheet.Paste End If Terima kasih, Wassalam, Tio
<<image001.jpg>>
<<image002.jpg>>
