coba yang baris ini
'Dipilih dulu Jenis2 nya yang dikolom F
* Set Jenis = Range("P6").CurrentRegion.Resize(, 1).Offset(2, 2)*
diganti dengan ini
* Set Jenis = Range("P6:" & Range("P6").End(xlDown).Address)*
Rgds,
[dp]
On 30-04-2014 13:00, prazt wrote:
Maaf pk De linknya saya ganti, yang tadi salah
https://www.dropbox.com/s/6hzpbccg0ijn8l6/coret.xlsb
*From:*belajar-excel@yahoogroups.com
[mailto:belajar-excel@yahoogroups.com] *On Behalf Of *De Premor
*Sent:* 30 April 2014 11:02
*To:* belajar-excel@yahoogroups.com
*Subject:* Re: [belajar-excel] otomatis input dicell sebelah kanan
menggunakan UserForm [1 Attachment]
Dh,
Berikut dikirimkan contoh hasilnya, kodenya juga ada kok :D
Logikanya secara manual:
1. Pilih Jenisnya dulu dari kolom Jenis
2. Cocokan dengan isi textbox, kalau cocok lanjutkan ke langkah 3
3. Pilih Baris hasil dimana tanggal mau diisikan
4. Cek pada baris tersebut dimana ditemukan cell kosong yang pertama
langsung diisikan, setelah ngisi langsung keluar aja dari perulangan
5. Ulangi langkah 2 sampai selesai di jenis kolom
Rgds,
[dp]
On 30-04-2014 9:20, prazt wrote:
Assalamu'alaikum....
Dear suhu dan master, tentang input data dari UserForm ke Cell
otomatis di sebelah kanan Cell yang sudah terisi, berikut lampiran
beserta ilustrasinya...
------------------------------------------------------------------------
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus
<http://www.avast.com/> proteksi aktif.
------------------------------------------------------------------------
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus
<http://www.avast.com/> proteksi aktif.
