Yang atas tadi buat milih berdasar case awal, tabel awal, biar lebih
enak aja.
setelah tabel diubah maka cara milihnya berubah juga, lebih efisien yang
bawah sih :D
Untuk yang pertama itu akan ngeblok satu region yang berawal dari sell
P6 (*Range("P6").CurrentRegion) *, kemudian diresize jadi 1 kolom saja
(*Resize(, 1))*, dan dilompatkan 2 baris kebawah dan 2 kolom kekanan
(*Offset(2, 2)*), untuk mengetahui CurrentRegionnya sell P6 coba arahkan
kursor kesel tersebut, lalu tekan Ctrl+A (1x aja) nanti ada bagian yang
ke blok, nah itulah dia si CurrentRegionnya sell P6
Untuk menyesuikan dengan tabel baru, bisa diubah mejadi *Set Jenis =
Range("P6").CurrentRegion.Resize(, 1).Offset(2, 14)
*Nah sedangkan untuk yang baru (Cara 2), penjelasannya sepertinya
sederhana saja, dia akan memilih range yang berawal dari P6___*sampai
baris terakhir yang ada isinya*_ di kolom tersebut.
Kelebihan dan kekurangannya:
Cara1:
+ Jika pada kolom Jenis ada satu atau beberapa baris kosong selama
baris yang lain tidak kosong dalam 1 region tersebut, script masih dapat
melanjutkan sampai baris terakhir.
- Agak berbelit2 harus lompat sana sini
Cara 2:
+ Lebih Simple dan mudah dipahami
- Jika ada baris kosong (" benar2 tidak ada isinya " ) pada kolom
Jenis, maka script hanya akan mengeksekusi sampai baris terakhir sebelum
baris kosong tersebut.
Nah pada akhirnya silahkan dipilih yang mana yang dibutuhkan disesuikan
dengan kondisi di arena perang masing-masing.
Rgds,
[dp]
On 30-04-2014 14:48, prazt wrote:
Thanks Pk De dah yahud....kl boleh tau perbedaan antara
* Set Jenis = Range("P6").CurrentRegion.Resize(, 1).Offset(2, 2)*
dengan ini
* Set Jenis = Range("P6:" & Range("P6").End(xlDown).Address)*
Gmn Pk De..? jadi penasaran ni...
*From:*belajar-excel@yahoogroups.com
[mailto:belajar-excel@yahoogroups.com] *On Behalf Of *De Premor
*Sent:* 30 April 2014 14:40
*To:* belajar-excel@yahoogroups.com
*Subject:* Re: [belajar-excel] otomatis input dicell sebelah kanan
menggunakan UserForm
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
<https://www.dropbox.com/s/6hzpbccg0ijn8l6/coret.xlsb>
*From:*belajar-excel@yahoogroups.com
<mailto: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
<mailto: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.
------------------------------------------------------------------------
<http://www.avast.com/>
Email ini bebas virus dan malware karena avast! Antivirus
<http://www.avast.com/> proteksi aktif.
