Rabu, 30 April 2014

[belajar-excel] Digest Number 2897

3 Messages

Digest #2897

Messages

Wed Apr 30, 2014 12:40 am (PDT) . Posted by:

"De Premor" de.premor

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.
>
>
>

Wed Apr 30, 2014 12:47 am (PDT) . Posted by:

"prazt" praztmath

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

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.

---
Email ini bebas dari virus dan malware karena Proteksi avast! Antivirus aktif.
http://www.avast.com

Wed Apr 30, 2014 1:11 am (PDT) . Posted by:

"De Premor" de.premor

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.
>
>
>

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 04.20

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)