ternyata ada kesalahan tulis yg baru ketahuan efeknya kalau tabel data sedang
kosong.
Lihat di module sheet "DATA" / procedure: CmdAppendFrom_Click()
baris kedua setelah bagian deklarasi variables
Sheets("Data").Unprotect pass
LastR = Sheets("Data").Range("A5").CurrentRegion.Rows.Count + 3
Set LastRec = Sheets("Data").Cells(LastR, 1)
seharusnya
Sheets("Data").Unprotect pass
LastR = Sheets("Data").Range("A3:A4").CurrentRegion.Rows.Count + 3
Set LastRec = Sheets("Data").Cells(LastR, 1)
mudah mudahan penyakitnya sudah sembuh....
untuk diketahui, bahwa sheet yg akan dipakai sebagai database sebaiknya tidak
mengandung
merged cell (beberapa cell yg digabung) walaupun pada judul kolomnya (seperti
pada data
pak danan / sheet data tsb)
Merged cells itu hanya berguna untuk keperluan report (dilihat/dipandang)
tetapi jika di
aplikasikan pada sheet untuk data sering, mereka seringnya mengganggu ketepatan
merujuk data
/ alamat cell
juga: array formula tidak dapat ditulis di Merged Cells.
Hindari penggunaan merged cell bila range tsb akan diolah lebih lanjut.
--------------------------------------------------------------------------------
----- Original Message -----
From: Rahagung Dananjoyo
To: belajar-excel@yahoogroups.com
Sent: Wednesday, March 24, 2010 10:44 AM
Subject: Re: [belajar-excel] Re: Protect Cell
Wah penjelasan ttg SQL kmrn itu bener-bener lengkap...kap..kap...
mantap sekali penjelasan dari mas Kid dan Bu Siti..
Btw File kemarin dari Bu Siti tentang macro_appendfrom sudah saya coba dan
sudah ok, tapi ketika akan saya coba gabungkan dengan file yang sebelumnya
muncul sedikit masalah.
Permasalahannya adalah data yang tercopy ke file letaknya tidak mulai dari
cell A5 tetapi langsung masuk ke cell A8.
Dan terkadang ketika proses copy itu di ulangi, data yang masuk tidak
meneruskan baris dibawahnya tetapi malah replace data sebelumnya, mengapa bisa
seperti itu ya...
Terima kasih untuk bantuannya.
(saya lampirkan file yang sudah digabung dan sedikit modifikasi)
<span style="font-weight:bold;font-family:arial;color:rgb(0, 0,
191);">Rahagung Dananjoyo</span>
<span style="font-weight:bold;font-family:arial;color:rgb(0, 0,
191);"> PTPN XI (Persero)</span>
