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
Mencari nomor baris di baris data di atas.xls
Description: MS-Excel spreadsheet
