pak Hendrik,
untuk script yang ini:
Sub BarBar()
Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
End Sub
coba lakukan tes seperti ini pada workbook yang baru:
1. Buat header di cell A1
2. input data manual di cell A2 sampai A20 (sembarang data)
3. hapus data mulai cell A2 sampai A20
4. jalankan script tadi dan lihat hasilnya
Lalu untuk script yang ini:
Sub RekTtt()
Columns("A:A").Find("Sania").Activate
End Sub
bagaimana jika ternyata tidak ada cell yang berisi kata Sania ?
IMHO,
>> proses select atau activate sebisa mungkin dihindari, karena bisa
dimanfaatkan untuk proses yang lain
>> pencarian posisi dengan menggunakan SpecialCell untuk input data yang
baru kadang menghasilkan data yang tidak tepat.
>> posisi pencarian record sebaiknya dimasukkan ke dalam variabel bertipe
range, lalu dilakukan kros cek apakah record tersebut ada atau tidak
ini hanya pendapat pribadi Jan yang masih banyak kekurangannya. jika ada
yang salah tolong dikoreksi.
Salam,
-Miss Jan Raisin-
Pada 10 April 2013 13.30, hendrik karnadi <[email protected]>menulis:
> **
>
>
> Rekan Be-Exceler,
>
> Dalam database kita sering dihadapkan pada dua hal, yaitu:
> - Mencari baris baru untuk input data baru
> - Mencari record tertentu dari data yang sudah ada, mis. untuk diedit
>
> Biasanya/sering kita gunakan Offset(Tabel.Rows.Count+1,.....) atau
> .......End(xlUp) untuk mencari baris baru dan Find("xyz", Lookin=xlValues)
> untuk mencari record tertentu yang sudah ada.
>
> Untuk mencari baris baru saya gunakan code:
> Sub BarBar()
> Columns("A:A").SpecialCells(xlLastCell).Offset(1, 0).Select
> End Sub
>
> Untuk mencari record tertentu (mis "Sania") saya gunakan code:
> Sub RekTtt()
> Columns("A:A").Find("Sania").Activate
> End Sub
>
> File terlampir.
>
> Pertanyaannya:
> Apakah kedua code tsb mengandung kelemahan?
>
> Salam,
> HK
>
>
>
