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
