Ma'af sudah bisa dengan code VBA :
Dim NumberBrsStdHrsOrder As Integer
Dim rngKosong, rngKosong2 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
Set rngKosong = Range(Cells(6, 2), Cells(NumberBrsStdHrsOrder, 2))
Set rngKosong2 = rngKosong.Find("")
If rngKosong2 Is Nothing Then
MsgBox ("tidak ada")
Else
MsgBox ("Ada")
End If
Menarik sekali jawaban dari Miss. Jan, tapi kenapa bisa berbeda yah ?
Apakah selain Rows.count ini ada yang lain, dimana pembacaan code VBA di
Excel 2003 dan 2007 berbeda ?
regards,
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
