[belajar-excel] list box tidak mau kosong [1 Attachment]

[achmad adi dido...@ymail.com [belajar-excel]]

Dear master,,
saya ambil sample dari milis yang lain..kenapa option buton tidak bisa dipilih 
( menampilkan semua data dan sia piutang aja )
dan apabila tidak ada transaksi to piutang dah lunas semua..erorberikut file 
saya lampirkan 


mohon bimbingannyaterimakasih


sample piutang.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Re: [belajar-excel] Rumus IF banyak kriteria

[achmad adi dido...@ymail.com [belajar-excel]]

terimakasih mr kid atas masukannya,,sebenarnya Kolom F sampai J untuk 
memastikan bahwa di kolom D termuat Data sesuai yang di Kolom Fsampai Jsesuai 
dengan presentasi yang ada di tabel M3:P5..cuma ingin memonitor bahwa Data 
B2:D16 khususnya Pesen ( kolom C ) sudah benear semuai dengan data Tabel M3:P5
dengan tanda sesuai contoh,,
terimaksih semuanya,,


   Pada Minggu, 2 September 2018 14.43.34 GMT+7, 'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel]  menulis:

  

Wa'alaikumussalam wr wb
Makasih mas Nang.Betul, formula tersebut pada saat baris pertama telah 
di-insert 1 (satu) baris Excel.
Wassalamu'alaikum wr wbKid



On Sun, Sep 2, 2018 at 6:26 AM Agus nanga...@gmail.com [belajar-excel] 
 wrote:

  

Assalamualaikum warahmatullah, Mas Kid, Pormulanya kurang naik satu baris dari 
data aslinya: di K3 menurut rumus Mas Kid seharusnya yang benar adalah: 
=SUMPRODUCT(COUNTIF($D3,REPT("*"&$N$2:$P$2&"*",COUNTIF($C3,SUBSTITUTE(VLOOKUP($B3,$M$3:$P$4,{2,3,4},0),"%","")
 atau di K4: 
=SUMPRODUCT(COUNTIF($D4,REPT("*"&$N$2:$P$2&"*",COUNTIF($C4,SUBSTITUTE(VLOOKUP($B4,$M$3:$P$4,{2,3,4},0),"%","")
 terima kasih Wasalamualaikum warahmatullah Agus
  On 8/31/2018 22:40, 'Mr. Kid' mr.nm...@gmail.com [belajar-excel] wrote:

  Kolom F sampai J itu buat apa to ? Maksudnya, apa arti centang di kolom 
kolom F:J ? Apakah :
  1. Kolom F:J dicentang jika header F:J ada di dalam kolom D ? atau
  2. Kolom F:J dicentang jika header F:J berdasar nilai kolom B dan C sesuai 
dengan tabel M:P ? atau
  3. Kolom F:J dicentang jika header F:J berdasar nilai kolom B dan C sesuai 
dengan tabel M:P tapi belum ada di kolom D ? atau 4. Kolom F:J dicentang jika 
header F:J berdasar nilai kolom B dan C sesuai dengan tabel M:P tapi sudah ada 
di kolom D ?  atau atau atau . gak usah dibantuin formula sajah kalo gak 
mudeng maksudnya (ini kayaknya cocok nih)

  Ok. dengan opsi  Kolom K formulanya begini : (bukan array formula 
kok, walau isinya ada proses komputasi array... thanks to SumProduct)
  
=SUMPRODUCT(COUNTIF($D4,REPT("*"&$N$3:$P$3&"*",COUNTIF($C4,SUBSTITUTE(VLOOKUP($B4,$M$4:$P$5,{2,3,4},0),"%","")))))

  Kalau mau nyusun formula kolom F:J, sila dikembangkan dari formula di atas...
  Regards, Kid


  On Fri, Aug 31, 2018 at 9:37 AM achmad adi dido...@ymail.com [belajar-excel] 
 wrote:

    Dear Master,
  dengan hormat...ini saya menemui kesulitan ketika mencari kesamaan data lebih 
jelasnya ini saya lampirkan data nya
  sebelumnya terimakasih





 
  #yiv1230592580 #yiv1230592580 -- #yiv1230592580ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1230592580 
#yiv1230592580ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1230592580 
#yiv1230592580ygrp-mkp #yiv1230592580hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv1230592580 #yiv1230592580ygrp-mkp #yiv1230592580ads 
{margin-bottom:10px;}#yiv1230592580 #yiv1230592580ygrp-mkp ...yiv1230592580ad 
{padding:0 0;}#yiv1230592580 #yiv1230592580ygrp-mkp .yiv1230592580ad p 
{margin:0;}#yiv1230592580 #yiv1230592580ygrp-mkp .yiv1230592580ad a 
{color:#ff;text-decoration:none;}#yiv1230592580 #yiv1230592580ygrp-sponsor 
#yiv1230592580ygrp-lc {font-family:Arial;}#yiv1230592580 
#yiv1230592580ygrp-sponsor #yiv1230592580ygrp-lc #yiv1230592580hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1230592580 
#yiv1230592580ygrp-sponsor #yiv1230592580ygrp-lc .yiv1230592580ad 
{margin-bottom:10px;padding:0 0;}#yiv1230592580 #yiv1230592580actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1230592580 
#yiv1230592580activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1230592580
 #yiv1230592580activity span {font-weight:700;}#yiv1230592580 
#yiv1230592580activity span:first-child 
{text-transform:uppercase;}#yiv1230592580 #yiv1230592580activity span a 
{color:#5085b6;text-decoration:none;}#yiv1230592580 #yiv1230592580activity span 
span {color:#ff7900;}#yiv1230592580 #yiv1230592580activity span 
.yiv1230592580underline {text-decoration:underline;}#yiv1230592580 
.yiv1230592580attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv1230592580 .yiv1230592580attach div a 
{text-decoration:none;}#yiv1230592580 .yiv1230592580attach img 
{border:none;padding-right:5px;}#yiv1230592580 .yiv1230592580attach label 
{display:block;margin-bottom:5px;}#yiv1230592580 .yiv1230592580attach label a 
{text-decoration:none;}#yiv1230592580 blockquote {margin:0 0 0 
4px;}#yiv1230592580 .yiv1230592580bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv1230592580 
.yiv1230592580bold a {text-decoration:none;}#yiv1230592580 dd.yiv1230592580last 
p a {font-family:Verdana;font-weight:700;}#yiv1230592580 dd.yiv1230592580last p 
span {margin-righ

Re: [belajar-excel] Rumus IF banyak kriteria [1 Attachment]

[achmad adi dido...@ymail.com [belajar-excel]]

terimakasih sebelumnya..om agus..atas koreksinya,,
iya seharusnya data salah,karena untuk M003 tidak ada di Kelopok Ket ( cell D6 
)sebenarnya gak ada masalah tidak harus memakai IF,yang penting sesuai dengan 
harapan,,hehehe
ini saya lampirkan kembali file nya

terimakasih
   Pada Jumat, 31 Agustus 2018 20.52.41 GMT+7, Agus nanga...@gmail.com 
[belajar-excel]  menulis:

  

Dear Ahmad, Apakah threat ini hanya dapat diselesaikan dengan IF? mungkinkah 
tanpa menggunakan If sama sekali? Mohon maaf saya kurang paham dengan cell G6, 
kenapa ada tanda centang (V) padahal di keterangan tidak ada M003? Lampiran 
tidak sesuai dengan permintaan karena di G6 tidak ada centang dan dinyatakan 
salah. formula dapat diperpendek jika menggunakan tabel bantu. 
=IFERROR(ROMAN((AND(FIND(F$2,$D3,1),$C3>CHOOSE(COLUMN(A1),8,0,0,5,0),$C3

IF.xlsx
Description: MS-Excel 2007 spreadsheet

[belajar-excel] Rumus IF banyak kriteria [1 Attachment]

[achmad adi dido...@ymail.com [belajar-excel]]

Dear Master,
dengan hormat..ini saya menemui kesulitan ketika mencari kesamaan datalebih 
jelasnya ini saya lampirkan data nya
sebelumnya terimakasih


IF.xlsx
Description: MS-Excel 2007 spreadsheet

[belajar-excel] gabung data sheet tertentu [1 Attachment]

[achmad adi dido...@ymail.com [belajar-excel]]

dear master BE yang budiman..terimakasih semuanya...sampai saat ini pertanyaan 
demi pertanyaan dijawab dan alhmdullilah masalah teratasi semua..
dari file millis sebelumnya masalah GABUNG DATA,,dari file tersebut semua sheet 
yang ada diworksheet digabungkan semua,,kalau seandainya ada 2 atau 3 sheet 
yang tidak digabungkan bagaimanakah?
ini saya lampirkan file nyaterimakasih 


gabung_data__Sheet_tertentu.xls
Description: MS-Excel spreadsheet

Bls: [belajar-excel] filter sesuai data di sheet terpilih

[achmad adi dido...@ymail.com [belajar-excel]]

ok..trimakasih banyak mr kid...atas bantuan dan sarannyasaya coba n pahami dl...
trimaksih all



Pada Sabtu, 12 November 2016 15:12, "'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:




     hmmm


Jadinya baris cek ada atau tidaknya si sheet diubah sesuai kebutuhan.
Artinya, baris if isnumeric(sshtname) then diganti dengan kondisi lainnya yang 
sesuai (bagian isnumeric-nya diganti dengan cara cek lainnya).


hehehe...
pertanyaan Anda sebenarnya adalah bunyi ceknya seperti apa? gitu kan ya...


Ada banyak cara, antara lain :
cara 1. buat prosedur baru yang bertugas untuk loop setiap sheet yang ada, lalu 
periksa apakah sheet tersebut memiliki nama seperti yang dipilih user.
  > misal di prosedur baru di module tersebut juga
  private function CekSheet(sNamaSheet as string) as boolean
 dim sht as worksheet
 for each sht in thisworkbook.worksheets   'sesuaikan sendiri 
bila berkaitan dengan workbook lain
   if lcase(sht.name)=snamasheet then
   CekSheet=true
   exit function
   endif
 next sht
 end function
 > lalu baris if isnumeric( blabla dalam prosedur filter diganti menjadi :
  if ceksheet(sshtname) then
cara 2. menyimpan

  > misal di prosedur baru di module tersebut juga
  private function CekSheet(sNamaSheet as string) as boolean
 dim sht as worksheet
 on error resume next
 set sht=sheets(sNamaSheet)  'sesuaikan sendiri bila 
berkaitan dengan workbook lain
 err.clear
 on error goto 0
 CekSheet=not (sht is nothing)
  end function > lalu baris if isnumeric( blabla dalam prosedur 
filter diganti menjadi :
  if ceksheet(sshtname) then
cara 3. memanfaatkan formula Excel untuk memeriksa apakah suatu ekspresi dalam 
formula itu adalah sebuah reference
 >  baris if isnumeric( blabla dalam prosedur filter diganti menjadi :
  if evaluate("=isref('" & sshtname & "'!a1)") then 'sesuaikan 
sendiri bila berkaitan dengan workbook lain
Kalau saya,
> jika user TIDAK mungkin mengganti nama sheet (dibuat untuk pasti TIDAK akan 
> mengganti nama sheet), maka saya pakai yang nomor 3
> jika saya tidak mau repot dengan kondisi workbook yang bisa jadi perlu 
> dibatasi agar nama sheet tidak boleh diubah, maka saya pakai nomor 1 dengan 
> membuat tabel referensi nama data (BUKAN nama panggilan sheet) beserta nama 
> akte kelahiran si sheet, dan yang dicek adalah nama akte kelahiran sheet 
> (properti codename) bukan nama nama panggilan sheet (properti name). Jadi, 
> user boleh mengganti nama sheet sesuka hatinya.


 Regards,
Kid






On Sat, Nov 12, 2016 at 9:37 AM, achmad adi dido...@ymail.com [belajar-excel] 
<belajar-excel@yahoogroups.com> wrote:


     to mr kid.sebelumnya terimakasih ...
kalo seandainya waktu penampilan SEMUA( data semua sheet )
nama sheet bukan numeric(1.2.3) tapi diganti dengan kata (misal: 
gudang.kantor.areal)untuk prosedurnya gimanamohon bantuannya,,,



Pada Selasa, 25 Oktober 2016 18:37, "'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel]" <belajar-excel@yahoogroups.com > menulis:



     Hai Didon,


Terlampir contohnya.


Regards,
Kid












2016-10-24 21:34 GMT+07:00 achmad adi dido...@ymail.com [belajar-excel] 
<belajar-excel@yahoogroups.com >:


     dear master,,,saya mencoba membuat adv filter tapi hanya di sheet 1 aja 
yang bisa difilter...yang ingin saya tanyakan,,,seadainya saya ingin memfilter 
data tetapi berdasarkan data sheet terpilih..bagaimanakah caranya...mohon 
pencerahaannya,,,saya lampirkan file


sebelumnya saya sampaikan terimakasih






 


  #yiv0806306951 #yiv0806306951 -- #yiv0806306951ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0806306951 
#yiv0806306951ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0806306951 
#yiv0806306951ygrp-mkp #yiv0806306951hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv0806306951 #yiv0806306951ygrp-mkp #yiv0806306951ads 
{margin-bottom:10px;}#yiv0806306951 #yiv0806306951ygrp-mkp .yiv0806306951ad 
{padding:0 0;}#yiv0806306951 #yiv0806306951ygrp-mkp .yiv0806306951ad p 
{margin:0;}#yiv0806306951 #yiv0806306951ygrp-mkp .yiv0806306951ad a 
{color:#ff;text-decoration:none;}#yiv0806306951 #yiv0806306951ygrp-sponsor 
#yiv0806306951ygrp-lc {font-family:Arial;}#yiv0806306951 
#yiv0806306951ygrp-sponsor #yiv0806306951ygrp-lc #yiv0806306951hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0806306951 
#yiv0806306951ygrp-sponsor #yiv0806306951ygrp-lc .yiv0806306951ad 
{margin-bottom:10px;padding:0 0;}#yiv0806306951 #yiv0806306951actions 
{font-family:Verdana;f

Bls: [belajar-excel] filter sesuai data di sheet terpilih

[achmad adi dido...@ymail.com [belajar-excel]]

to mr kid.sebelumnya terimakasih ...
kalo seandainya waktu penampilan SEMUA( data semua sheet )
nama sheet bukan numeric(1.2.3) tapi diganti dengan kata (misal: 
gudang.kantor.areal)untuk prosedurnya gimanamohon bantuannya,,,



Pada Selasa, 25 Oktober 2016 18:37, "'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:



     Hai Didon,


Terlampir contohnya.


Regards,
Kid












2016-10-24 21:34 GMT+07:00 achmad adi dido...@ymail.com [belajar-excel] 
<belajar-excel@yahoogroups.com>:


     dear master,,,saya mencoba membuat adv filter tapi hanya di sheet 1 aja 
yang bisa difilter...yang ingin saya tanyakan,,,seadainya saya ingin memfilter 
data tetapi berdasarkan data sheet terpilih..bagaimanakah caranya...mohon 
pencerahaannya,,,saya lampirkan file


sebelumnya saya sampaikan terimakasih



  #yiv7636466191 #yiv7636466191 -- #yiv7636466191ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv7636466191 
#yiv7636466191ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv7636466191 
#yiv7636466191ygrp-mkp #yiv7636466191hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv7636466191 #yiv7636466191ygrp-mkp #yiv7636466191ads 
{margin-bottom:10px;}#yiv7636466191 #yiv7636466191ygrp-mkp .yiv7636466191ad 
{padding:0 0;}#yiv7636466191 #yiv7636466191ygrp-mkp .yiv7636466191ad p 
{margin:0;}#yiv7636466191 #yiv7636466191ygrp-mkp .yiv7636466191ad a 
{color:#ff;text-decoration:none;}#yiv7636466191 #yiv7636466191ygrp-sponsor 
#yiv7636466191ygrp-lc {font-family:Arial;}#yiv7636466191 
#yiv7636466191ygrp-sponsor #yiv7636466191ygrp-lc #yiv7636466191hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv7636466191 
#yiv7636466191ygrp-sponsor #yiv7636466191ygrp-lc .yiv7636466191ad 
{margin-bottom:10px;padding:0 0;}#yiv7636466191 #yiv7636466191actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv7636466191 
#yiv7636466191activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv7636466191
 #yiv7636466191activity span {font-weight:700;}#yiv7636466191 
#yiv7636466191activity span:first-child 
{text-transform:uppercase;}#yiv7636466191 #yiv7636466191activity span a 
{color:#5085b6;text-decoration:none;}#yiv7636466191 #yiv7636466191activity span 
span {color:#ff7900;}#yiv7636466191 #yiv7636466191activity span 
.yiv7636466191underline {text-decoration:underline;}#yiv7636466191 
.yiv7636466191attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv7636466191 .yiv7636466191attach div a 
{text-decoration:none;}#yiv7636466191 .yiv7636466191attach img 
{border:none;padding-right:5px;}#yiv7636466191 .yiv7636466191attach label 
{display:block;margin-bottom:5px;}#yiv7636466191 .yiv7636466191attach label a 
{text-decoration:none;}#yiv7636466191 blockquote {margin:0 0 0 
4px;}#yiv7636466191 .yiv7636466191bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv7636466191 
.yiv7636466191bold a {text-decoration:none;}#yiv7636466191 dd.yiv7636466191last 
p a {font-family:Verdana;font-weight:700;}#yiv7636466191 dd.yiv7636466191last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv7636466191 
dd.yiv7636466191last p span.yiv7636466191yshortcuts 
{margin-right:0;}#yiv7636466191 div.yiv7636466191attach-table div div a 
{text-decoration:none;}#yiv7636466191 div.yiv7636466191attach-table 
{width:400px;}#yiv7636466191 div.yiv7636466191file-title a, #yiv7636466191 
div.yiv7636466191file-title a:active, #yiv7636466191 
div.yiv7636466191file-title a:hover, #yiv7636466191 div.yiv7636466191file-title 
a:visited {text-decoration:none;}#yiv7636466191 div.yiv7636466191photo-title a, 
#yiv7636466191 div.yiv7636466191photo-title a:active, #yiv7636466191 
div.yiv7636466191photo-title a:hover, #yiv7636466191 
div.yiv7636466191photo-title a:visited {text-decoration:none;}#yiv7636466191 
div#yiv7636466191ygrp-mlmsg #yiv7636466191ygrp-msg p a 
span.yiv7636466191yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv7636466191 
.yiv7636466191green {color:#628c2a;}#yiv7636466191 .yiv7636466191MsoNormal 
{margin:0 0 0 0;}#yiv7636466191 o {font-size:0;}#yiv7636466191 
#yiv7636466191photos div {float:left;width:72px;}#yiv7636466191 
#yiv7636466191photos div div {border:1px solid 
#66;height:62px;overflow:hidden;width:62px;}#yiv7636466191 
#yiv7636466191photos div label 
{color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv7636466191
 #yiv7636466191reco-category {font-size:77%;}#yiv7636466191 
#yiv7636466191reco-desc {font-size:77%;}#yiv7636466191 .yiv7636466191replbq 
{margin:4px;}#yiv7636466191 #yiv7636466191ygrp-actbar div a:first-child 
{margin-right:2px;padding-right:5px;}#yiv7636466191 #yiv7636466191ygrp-mlmsg 
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv7636466191 
#yiv7636466191ygrp-mlmsg table {font

[belajar-excel] rekap data di sheet lain

[achmad adi dido...@ymail.com [belajar-excel]]

dear master sebelumnya saya ucapkan terimakasihmasalah demi masalah pekerjaan 
saya teratasi di BE ini,,dan tidak bosen bosennya membantu saya,,
kali ini saya meminta bantuanuntuk masalah rekap data di sheet lainbaik 
menggunakan pivot or macrofile saya lampirkan,,,




rekap data.rar
Description: application/rar

Bls: [belajar-excel] filter sesuai data di sheet terpilih

[achmad adi dido...@ymail.com [belajar-excel]]

allhduliah...terimakasih para master semuamasalah teratasi...



Pada Selasa, 25 Oktober 2016 18:37, "'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:



     Hai Didon,


Terlampir contohnya.


Regards,
Kid












2016-10-24 21:34 GMT+07:00 achmad adi dido...@ymail.com [belajar-excel] 
<belajar-excel@yahoogroups.com>:


     dear master,,,saya mencoba membuat adv filter tapi hanya di sheet 1 aja 
yang bisa difilter...yang ingin saya tanyakan,,,seadainya saya ingin memfilter 
data tetapi berdasarkan data sheet terpilih..bagaimanakah caranya...mohon 
pencerahaannya,,,saya lampirkan file


sebelumnya saya sampaikan terimakasih



  #yiv4837768898 #yiv4837768898 -- #yiv4837768898ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4837768898 
#yiv4837768898ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4837768898 
#yiv4837768898ygrp-mkp #yiv4837768898hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv4837768898 #yiv4837768898ygrp-mkp #yiv4837768898ads 
{margin-bottom:10px;}#yiv4837768898 #yiv4837768898ygrp-mkp .yiv4837768898ad 
{padding:0 0;}#yiv4837768898 #yiv4837768898ygrp-mkp .yiv4837768898ad p 
{margin:0;}#yiv4837768898 #yiv4837768898ygrp-mkp .yiv4837768898ad a 
{color:#ff;text-decoration:none;}#yiv4837768898 #yiv4837768898ygrp-sponsor 
#yiv4837768898ygrp-lc {font-family:Arial;}#yiv4837768898 
#yiv4837768898ygrp-sponsor #yiv4837768898ygrp-lc #yiv4837768898hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4837768898 
#yiv4837768898ygrp-sponsor #yiv4837768898ygrp-lc .yiv4837768898ad 
{margin-bottom:10px;padding:0 0;}#yiv4837768898 #yiv4837768898actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4837768898 
#yiv4837768898activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4837768898
 #yiv4837768898activity span {font-weight:700;}#yiv4837768898 
#yiv4837768898activity span:first-child 
{text-transform:uppercase;}#yiv4837768898 #yiv4837768898activity span a 
{color:#5085b6;text-decoration:none;}#yiv4837768898 #yiv4837768898activity span 
span {color:#ff7900;}#yiv4837768898 #yiv4837768898activity span 
.yiv4837768898underline {text-decoration:underline;}#yiv4837768898 
.yiv4837768898attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv4837768898 .yiv4837768898attach div a 
{text-decoration:none;}#yiv4837768898 .yiv4837768898attach img 
{border:none;padding-right:5px;}#yiv4837768898 .yiv4837768898attach label 
{display:block;margin-bottom:5px;}#yiv4837768898 .yiv4837768898attach label a 
{text-decoration:none;}#yiv4837768898 blockquote {margin:0 0 0 
4px;}#yiv4837768898 .yiv4837768898bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv4837768898 
.yiv4837768898bold a {text-decoration:none;}#yiv4837768898 dd.yiv4837768898last 
p a {font-family:Verdana;font-weight:700;}#yiv4837768898 dd.yiv4837768898last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4837768898 
dd.yiv4837768898last p span.yiv4837768898yshortcuts 
{margin-right:0;}#yiv4837768898 div.yiv4837768898attach-table div div a 
{text-decoration:none;}#yiv4837768898 div.yiv4837768898attach-table 
{width:400px;}#yiv4837768898 div.yiv4837768898file-title a, #yiv4837768898 
div.yiv4837768898file-title a:active, #yiv4837768898 
div.yiv4837768898file-title a:hover, #yiv4837768898 div.yiv4837768898file-title 
a:visited {text-decoration:none;}#yiv4837768898 div.yiv4837768898photo-title a, 
#yiv4837768898 div.yiv4837768898photo-title a:active, #yiv4837768898 
div.yiv4837768898photo-title a:hover, #yiv4837768898 
div.yiv4837768898photo-title a:visited {text-decoration:none;}#yiv4837768898 
div#yiv4837768898ygrp-mlmsg #yiv4837768898ygrp-msg p a 
span.yiv4837768898yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4837768898 
.yiv4837768898green {color:#628c2a;}#yiv4837768898 .yiv4837768898MsoNormal 
{margin:0 0 0 0;}#yiv4837768898 o {font-size:0;}#yiv4837768898 
#yiv4837768898photos div {float:left;width:72px;}#yiv4837768898 
#yiv4837768898photos div div {border:1px solid 
#66;height:62px;overflow:hidden;width:62px;}#yiv4837768898 
#yiv4837768898photos div label 
{color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4837768898
 #yiv4837768898reco-category {font-size:77%;}#yiv4837768898 
#yiv4837768898reco-desc {font-size:77%;}#yiv4837768898 .yiv4837768898replbq 
{margin:4px;}#yiv4837768898 #yiv4837768898ygrp-actbar div a:first-child 
{margin-right:2px;padding-right:5px;}#yiv4837768898 #yiv4837768898ygrp-mlmsg 
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4837768898 
#yiv4837768898ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4837768898 
#yiv4837768898ygrp-mlmsg select, #yiv4837768898 input, #yiv4837768898 textarea 
{font:99% Arial, Helvetica, clean, sans

[belajar-excel] filter sesuai data di sheet terpilih [1 Attachment]

[achmad adi dido...@ymail.com [belajar-excel]]

dear master,,,saya mencoba membuat adv filter tapi hanya di sheet 1 aja yang 
bisa difilter...yang ingin saya tanyakan,,,seadainya saya ingin memfilter data 
tetapi berdasarkan data sheet terpilih..bagaimanakah caranya...mohon 
pencerahaannya,,,saya lampirkan file 


sebelumnya saya sampaikan terimakasih


FILTER SESUAI DATA DI SHEET TERPILIH.rar
Description: Binary data

[belajar-excel] Gabung data tanpa ada data ganda dalam 1 sell [1 Attachment]

[achmad adi dido...@ymail.com [belajar-excel]]

sebelumnya terimakasihsaya mencoba cara mengambil data kesamping dan  
memodif dari file yang ada di millis..tetapi saya mempunyai kendala ketika data 
digabungkan,,masih ada data yang ganda,,,mohon kiranya para master bisa 
membantu,,,ini saya lampikan file sample nya




GABUNG DATA.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

[belajar-excel] currency dollar [1 Attachment]

[achmad adi dido...@ymail.com [belajar-excel]]

dear master..saya mengalami kendala untuk penginputan data masalah symbol 
dollar mengunakan makro..
ini saya lampirkan filenya..
terimakasih sebelumnya...


currency dollar.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12

Bls: [belajar-excel] scrollbar untuk menjalankan isi di 2 listbox

[achmad adi dido...@ymail.com [belajar-excel]]

terimakasih banyak Mr Suyono...alhmdlah berjalan,,





 Pada Jumat, 18 September 2015 17:03, "SUYONO reza.suy...@lge.com 
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:



     Dear Pak Achmad,    Mungkin bisa diganti seperti ini pak. SBDATA.Value = 5 
+ listcari.List(listcari.ListIndex, 0) Semoga sesuai, keinginan.    Wasalam, 
Yono    From:belajar-excel@yahoogroups.com 
[mailto:belajar-excel@yahoogroups.com]
Sent: Friday, September 18, 2015 8:32 AM
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] scrollbar untuk menjalankan isi di 2listbox [1 
Attachment]          dear Mr kid,,, saya dah oprek2,,,file 
saya,,tapimentok,,,pas milih salah satu list dilistbox,,eror,, mohon 
bantuannya,,,ini saya lampirkanfilenya    Pada Minggu, 13 September 20150:50, 
"'Mr. Kid' mr.nm...@gmail.com [belajar-excel]"<belajar-excel@yahoogroups.com> 
menulis:          Untuk scroll dengan mouse wheelpada combobox ataupun listbox 
bisa dilihat di file yang ada disini. Wassalam, Kid    2015-09-10 15:52 
GMT+07:00 achmad adi dido...@ymail.com[belajar-excel] 
<belajar-excel@yahoogroups.com>:
   dear master excel.. setelah ada penjelasan untuk millissebelumnya ( 2 
listbox 1 tujuan ).. saya mencoba kembangkan file tsb untukinput data dimana 
isinya bisa discroll  menurut list terpilih di listbox tsb.. bagaimana caranya 
supaya scrollberfungsi untuk menggerakan isi listobox? dan pertanyaan satu 
lagi,, untuk mencari opening value,, dimana opening value mengacu dari kolomK ( 
Budget ) dengan mengambil data terakhir.    ini saya lampirkan filenya,, 
sebelumnya saya ucapkan banyakterimakasih
     #yiv4758519156 #yiv4758519156 -- #yiv4758519156ygrp-mkp {border:1px 
solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4758519156 
#yiv4758519156ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4758519156 
#yiv4758519156ygrp-mkp #yiv4758519156hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv4758519156 #yiv4758519156ygrp-mkp #yiv4758519156ads 
{margin-bottom:10px;}#yiv4758519156 #yiv4758519156ygrp-mkp .yiv4758519156ad 
{padding:0 0;}#yiv4758519156 #yiv4758519156ygrp-mkp .yiv4758519156ad p 
{margin:0;}#yiv4758519156 #yiv4758519156ygrp-mkp .yiv4758519156ad a 
{color:#ff;text-decoration:none;}#yiv4758519156 #yiv4758519156ygrp-sponsor 
#yiv4758519156ygrp-lc {font-family:Arial;}#yiv4758519156 
#yiv4758519156ygrp-sponsor #yiv4758519156ygrp-lc #yiv4758519156hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4758519156 
#yiv4758519156ygrp-sponsor #yiv4758519156ygrp-lc .yiv4758519156ad 
{margin-bottom:10px;padding:0 0;}#yiv4758519156 #yiv4758519156actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4758519156 
#yiv4758519156activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4758519156
 #yiv4758519156activity span {font-weight:700;}#yiv4758519156 
#yiv4758519156activity span:first-child 
{text-transform:uppercase;}#yiv4758519156 #yiv4758519156activity span a 
{color:#5085b6;text-decoration:none;}#yiv4758519156 #yiv4758519156activity span 
span {color:#ff7900;}#yiv4758519156 #yiv4758519156activity span 
.yiv4758519156underline {text-decoration:underline;}#yiv4758519156 
.yiv4758519156attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv4758519156 .yiv4758519156attach div a 
{text-decoration:none;}#yiv4758519156 .yiv4758519156attach img 
{border:none;padding-right:5px;}#yiv4758519156 .yiv4758519156attach label 
{display:block;margin-bottom:5px;}#yiv4758519156 .yiv4758519156attach label a 
{text-decoration:none;}#yiv4758519156 blockquote {margin:0 0 0 
4px;}#yiv4758519156 .yiv4758519156bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv4758519156 
.yiv4758519156bold a {text-decoration:none;}#yiv4758519156 dd.yiv4758519156last 
p a {font-family:Verdana;font-weight:700;}#yiv4758519156 dd.yiv4758519156last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4758519156 
dd.yiv4758519156last p span.yiv4758519156yshortcuts 
{margin-right:0;}#yiv4758519156 div.yiv4758519156attach-table div div a 
{text-decoration:none;}#yiv4758519156 div.yiv4758519156attach-table 
{width:400px;}#yiv4758519156 div.yiv4758519156file-title a, #yiv4758519156 
div.yiv4758519156file-title a:active, #yiv4758519156 
div.yiv4758519156file-title a:hover, #yiv4758519156 div.yiv4758519156file-title 
a:visited {text-decoration:none;}#yiv4758519156 div.yiv4758519156photo-title a, 
#yiv4758519156 div.yiv4758519156photo-title a:active, #yiv4758519156 
div.yiv4758519156photo-title a:hover, #yiv4758519156 
div.yiv4758519156photo-title a:visited {text-decoration:none;}#yiv4758519156 
div#yiv4758519156ygrp-mlmsg #yiv4758519156ygrp-msg p a 
span.yiv4758519156yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4758519156 
.yiv4758519156green {color:#628c2a;}#yiv4758519156 .yiv4758519156MsoNormal 
{margin:

Bls: [belajar-excel] scrollbar untuk menjalankan isi di 2 listbox

[achmad adi dido...@ymail.com [belajar-excel]]

oks..terimakasih banyak mr.kid...dipahami dulu,,,masukannya,,





 Pada Minggu, 13 September 2015 0:50, "'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:



     Untuk scroll dengan mouse wheel pada combobox ataupun listbox bisa dilihat 
di file yang ada disini.


Wassalam,
Kid


2015-09-10 15:52 GMT+07:00 achmad adi dido...@ymail.com [belajar-excel] 
<belajar-excel@yahoogroups.com>:


     dear master excel..setelah ada penjelasan untuk millis sebelumnya ( 2 
listbox 1 tujuan )..saya mencoba kembangkan file tsb untuk input data dimana 
isinya bisa discroll
menurut list terpilih di listbox tsb..bagaimana caranya supaya scroll berfungsi 
untuk menggerakan isi listobox?dan pertanyaan satu lagi,,untuk mencari opening 
value,,dimana opening value mengacu dari kolom K ( Budget ) dengan mengambil 
data terakhir.
ini saya lampirkan filenya,,
sebelumnya saya ucapkan banyak terimakasih



  #yiv4713350704 #yiv4713350704 -- #yiv4713350704ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4713350704 
#yiv4713350704ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4713350704 
#yiv4713350704ygrp-mkp #yiv4713350704hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv4713350704 #yiv4713350704ygrp-mkp #yiv4713350704ads 
{margin-bottom:10px;}#yiv4713350704 #yiv4713350704ygrp-mkp .yiv4713350704ad 
{padding:0 0;}#yiv4713350704 #yiv4713350704ygrp-mkp .yiv4713350704ad p 
{margin:0;}#yiv4713350704 #yiv4713350704ygrp-mkp .yiv4713350704ad a 
{color:#ff;text-decoration:none;}#yiv4713350704 #yiv4713350704ygrp-sponsor 
#yiv4713350704ygrp-lc {font-family:Arial;}#yiv4713350704 
#yiv4713350704ygrp-sponsor #yiv4713350704ygrp-lc #yiv4713350704hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4713350704 
#yiv4713350704ygrp-sponsor #yiv4713350704ygrp-lc .yiv4713350704ad 
{margin-bottom:10px;padding:0 0;}#yiv4713350704 #yiv4713350704actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4713350704 
#yiv4713350704activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4713350704
 #yiv4713350704activity span {font-weight:700;}#yiv4713350704 
#yiv4713350704activity span:first-child 
{text-transform:uppercase;}#yiv4713350704 #yiv4713350704activity span a 
{color:#5085b6;text-decoration:none;}#yiv4713350704 #yiv4713350704activity span 
span {color:#ff7900;}#yiv4713350704 #yiv4713350704activity span 
.yiv4713350704underline {text-decoration:underline;}#yiv4713350704 
.yiv4713350704attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv4713350704 .yiv4713350704attach div a 
{text-decoration:none;}#yiv4713350704 .yiv4713350704attach img 
{border:none;padding-right:5px;}#yiv4713350704 .yiv4713350704attach label 
{display:block;margin-bottom:5px;}#yiv4713350704 .yiv4713350704attach label a 
{text-decoration:none;}#yiv4713350704 blockquote {margin:0 0 0 
4px;}#yiv4713350704 .yiv4713350704bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv4713350704 
.yiv4713350704bold a {text-decoration:none;}#yiv4713350704 dd.yiv4713350704last 
p a {font-family:Verdana;font-weight:700;}#yiv4713350704 dd.yiv4713350704last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4713350704 
dd.yiv4713350704last p span.yiv4713350704yshortcuts 
{margin-right:0;}#yiv4713350704 div.yiv4713350704attach-table div div a 
{text-decoration:none;}#yiv4713350704 div.yiv4713350704attach-table 
{width:400px;}#yiv4713350704 div.yiv4713350704file-title a, #yiv4713350704 
div.yiv4713350704file-title a:active, #yiv4713350704 
div.yiv4713350704file-title a:hover, #yiv4713350704 div.yiv4713350704file-title 
a:visited {text-decoration:none;}#yiv4713350704 div.yiv4713350704photo-title a, 
#yiv4713350704 div.yiv4713350704photo-title a:active, #yiv4713350704 
div.yiv4713350704photo-title a:hover, #yiv4713350704 
div.yiv4713350704photo-title a:visited {text-decoration:none;}#yiv4713350704 
div#yiv4713350704ygrp-mlmsg #yiv4713350704ygrp-msg p a 
span.yiv4713350704yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4713350704 
.yiv4713350704green {color:#628c2a;}#yiv4713350704 .yiv4713350704MsoNormal 
{margin:0 0 0 0;}#yiv4713350704 o {font-size:0;}#yiv4713350704 
#yiv4713350704photos div {float:left;width:72px;}#yiv4713350704 
#yiv4713350704photos div div {border:1px solid 
#66;height:62px;overflow:hidden;width:62px;}#yiv4713350704 
#yiv4713350704photos div label 
{color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4713350704
 #yiv4713350704reco-category {font-size:77%;}#yiv4713350704 
#yiv4713350704reco-desc {font-size:77%;}#yiv4713350704 .yiv4713350704replbq 
{margin:4px;}#yiv4713350704 #yiv4713350704ygrp-actbar div a:first-child 
{margin-right:2px;padding-right:5px;}#yiv4713350704 #yiv4713350704ygrp-mlmsg 
{font-size:13px;font-family:Arial, helvet

Bls: [belajar-excel] 2 listbox 1 tujuan

[achmad adi dido...@ymail.com [belajar-excel]]

terimakasih atas penjelasan dan bimbingannya selama ini,Mr Kid yang baik 
hati,,,semoga makin maju ..





 Pada Kamis, 3 September 2015 23:23, "'Mr. Kid' mr.nm...@gmail.com 
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:



     Hai Adi,


Posting ke milis Belajar-Excel dengan cara mengirim email hanya ke akun berikut 
: (bagian To)
belajar-excel@yahoogroups.com


Cukup isi bagian To saja. Isi dengan akun email milis di atas. Jangan ada akun 
email lain di bagian To, Cc, maupun BCc.
Diijinkan untuk menyertakan file lampiran (bisa lebih dari 1 file) dalam email 
yang akan diposting ke milis, dengan usaha untuk membuat ukuran file maksimal 
250KB (total).



Setiap email dari member yang masih di-set moderated "TIDAK" akan langsung 
tampak masuk ke milis alias masuk ke kotak moderasi lebih dulu.
Jadi tidak perlu melakukan posting ulang (send email ulang) sebelum 3 x 24jam 
dari postingan terakhir, hanya karena emailnya belum tampak masuk ke milis 
alias tampak di inbox milis atau inbox akun email Anda.


 -
ListBox dan ComboBox memiliki properti utama bernama ListIndex. Memanfaatkan 
ListIndex jauh lebih mudah (untuk dipelajari maupun digunakan) dibandingkan 
memanfaatkan properti bernama Value ataupun Text.


File terlampir.


Wassalam,
Kid






2015-09-03 16:03 GMT+07:00 achmad adi dido...@ymail.com [belajar-excel] 
<belajar-excel@yahoogroups.com>:


     dear master..sebeernya untuk mengirim file dan belajar excel kemana 
ya?masih binggung,,
minta maap apabila terjadi cc dan double post,,dikarenakan tidk melihat dan 
koneksi lemot,,dan mau memnanyakan..saya mempunyai 2 listbox yang isinya saling 
keterkaitan..bagaimana supaya bisa jalan seiringan,,mohon pencerahaannya,,,saya 
lampirkan filenya



  #yiv1786237903 #yiv1786237903 -- #yiv1786237903ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv1786237903 
#yiv1786237903ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv1786237903 
#yiv1786237903ygrp-mkp #yiv1786237903hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv1786237903 #yiv1786237903ygrp-mkp #yiv1786237903ads 
{margin-bottom:10px;}#yiv1786237903 #yiv1786237903ygrp-mkp .yiv1786237903ad 
{padding:0 0;}#yiv1786237903 #yiv1786237903ygrp-mkp .yiv1786237903ad p 
{margin:0;}#yiv1786237903 #yiv1786237903ygrp-mkp .yiv1786237903ad a 
{color:#ff;text-decoration:none;}#yiv1786237903 #yiv1786237903ygrp-sponsor 
#yiv1786237903ygrp-lc {font-family:Arial;}#yiv1786237903 
#yiv1786237903ygrp-sponsor #yiv1786237903ygrp-lc #yiv1786237903hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv1786237903 
#yiv1786237903ygrp-sponsor #yiv1786237903ygrp-lc .yiv1786237903ad 
{margin-bottom:10px;padding:0 0;}#yiv1786237903 #yiv1786237903actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv1786237903 
#yiv1786237903activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv1786237903
 #yiv1786237903activity span {font-weight:700;}#yiv1786237903 
#yiv1786237903activity span:first-child 
{text-transform:uppercase;}#yiv1786237903 #yiv1786237903activity span a 
{color:#5085b6;text-decoration:none;}#yiv1786237903 #yiv1786237903activity span 
span {color:#ff7900;}#yiv1786237903 #yiv1786237903activity span 
.yiv1786237903underline {text-decoration:underline;}#yiv1786237903 
.yiv1786237903attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv1786237903 .yiv1786237903attach div a 
{text-decoration:none;}#yiv1786237903 .yiv1786237903attach img 
{border:none;padding-right:5px;}#yiv1786237903 .yiv1786237903attach label 
{display:block;margin-bottom:5px;}#yiv1786237903 .yiv1786237903attach label a 
{text-decoration:none;}#yiv1786237903 blockquote {margin:0 0 0 
4px;}#yiv1786237903 .yiv1786237903bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv1786237903 
.yiv1786237903bold a {text-decoration:none;}#yiv1786237903 dd.yiv1786237903last 
p a {font-family:Verdana;font-weight:700;}#yiv1786237903 dd.yiv1786237903last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv1786237903 
dd.yiv1786237903last p span.yiv1786237903yshortcuts 
{margin-right:0;}#yiv1786237903 div.yiv1786237903attach-table div div a 
{text-decoration:none;}#yiv1786237903 div.yiv1786237903attach-table 
{width:400px;}#yiv1786237903 div.yiv1786237903file-title a, #yiv1786237903 
div.yiv1786237903file-title a:active, #yiv1786237903 
div.yiv1786237903file-title a:hover, #yiv1786237903 div.yiv1786237903file-title 
a:visited {text-decoration:none;}#yiv1786237903 div.yiv1786237903photo-title a, 
#yiv1786237903 div.yiv1786237903photo-title a:active, #yiv1786237903 
div.yiv1786237903photo-title a:hover, #yiv1786237903 
div.yiv1786237903photo-title a:visited {text-decoration:none;}#yiv1786237903 
div#yiv1786237903ygrp-mlmsg #yiv1786237903ygrp-msg p a 
span.yiv1786237903yshortcuts 
{font-family:Verdana;font-size:10px;fo

Bls: Bls: [belajar-excel] valdasi bertingkat modif

[achmad adi dido...@ymail.com [belajar-excel]]

terimakasih mrtobi atas pencerahanya,,





 Pada Kamis, 27 Agustus 2015 0:30, "Toby kenzo tobyke...@yahoo.co.id 
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:



  
| Dear Didon,Pada inti sama,yg membedakan hanya menggunakan userform.
Jika kamu memahami konsep kaidah database,kamu bisa buat dalam bentuk apapun yg 
diinginkan,mungkin sedikit usaha dan kerja keras untuk lebih memahami VBA kmu 
bisa create sendiri tanpa meniru milik siapapun.TerimaKasih.Sent from Yahoo 
Mail on Android |



     From:  achmad adi dido...@ymail.com [belajar-excel] 
<belajar-excel@yahoogroups.com>;
  To:  <belajar-excel@yahoogroups.com>;
  Subject:  Bls: [belajar-excel] valdasi bertingkat modif [1 Attachment]
  Sent:  Mon, Aug 24, 2015 7:14:57 AM


|     terimakasih Mr toby..sebelumnyatapi sepertinya terlalu banayk perintah 
ya,,hehehehe...maksd q bisa gk dibuat yan lebih simple,,biar bisa belajar 
rumusnya..
seperti ini ni,,nemu di file milis punya Alm Bu siti
dan saya kembangkan,,mentok,,untuk keterangan namanya,,mohon bantuanya




 Pada Senin, 24 Agustus 2015 0:25, "Toby kenzo tobyke...@yahoo.co.id 
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:



  
| Dear Didon,File berikut menggunakan VBA untuk valudasi bertingkat dngan 
menggunakan ComboBox.Semoga bisa membantu.
It's work in Office 2013.
TerimaKasih.Sent from Yahoo Mail on Android |



 From:  achmad adi dido...@ymail.com [belajar-excel] 
<belajar-excel@yahoogroups.com>;
  To:  <belajar-excel@yahoogroups.com>;
  Subject:  [belajar-excel] valdasi bertingkat modif [1 Attachment]
  Sent:  Thu, Aug 20, 2015 3:00:27 AM


|  
dear master,,mohon bantuanyautnuk masalah yang saya hadapi,,mengambil dari 
validasi bertingkat di file mail archive BE,,,saya mau memodifikasi perintah 
masalah validasi bertingkat,,mohon pencerahaannya,,,ini saya lampirkan file 
contohnya..
sebelumnya saya ucapkan terima kasih   |





  |


 #yiv3238179438 #yiv3238179438 -- #yiv3238179438ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3238179438 
#yiv3238179438ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3238179438 
#yiv3238179438ygrp-mkp #yiv3238179438hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv3238179438 #yiv3238179438ygrp-mkp #yiv3238179438ads 
{margin-bottom:10px;}#yiv3238179438 #yiv3238179438ygrp-mkp .yiv3238179438ad 
{padding:0 0;}#yiv3238179438 #yiv3238179438ygrp-mkp .yiv3238179438ad p 
{margin:0;}#yiv3238179438 #yiv3238179438ygrp-mkp .yiv3238179438ad a 
{color:#ff;text-decoration:none;}#yiv3238179438 #yiv3238179438ygrp-sponsor 
#yiv3238179438ygrp-lc {font-family:Arial;}#yiv3238179438 
#yiv3238179438ygrp-sponsor #yiv3238179438ygrp-lc #yiv3238179438hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3238179438 
#yiv3238179438ygrp-sponsor #yiv3238179438ygrp-lc .yiv3238179438ad 
{margin-bottom:10px;padding:0 0;}#yiv3238179438 #yiv3238179438actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3238179438 
#yiv3238179438activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3238179438
 #yiv3238179438activity span {font-weight:700;}#yiv3238179438 
#yiv3238179438activity span:first-child 
{text-transform:uppercase;}#yiv3238179438 #yiv3238179438activity span a 
{color:#5085b6;text-decoration:none;}#yiv3238179438 #yiv3238179438activity span 
span {color:#ff7900;}#yiv3238179438 #yiv3238179438activity span 
.yiv3238179438underline {text-decoration:underline;}#yiv3238179438 
.yiv3238179438attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv3238179438 .yiv3238179438attach div a 
{text-decoration:none;}#yiv3238179438 .yiv3238179438attach img 
{border:none;padding-right:5px;}#yiv3238179438 .yiv3238179438attach label 
{display:block;margin-bottom:5px;}#yiv3238179438 .yiv3238179438attach label a 
{text-decoration:none;}#yiv3238179438 blockquote {margin:0 0 0 
4px;}#yiv3238179438 .yiv3238179438bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv3238179438 
.yiv3238179438bold a {text-decoration:none;}#yiv3238179438 dd.yiv3238179438last 
p a {font-family:Verdana;font-weight:700;}#yiv3238179438 dd.yiv3238179438last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3238179438 
dd.yiv3238179438last p span.yiv3238179438yshortcuts 
{margin-right:0;}#yiv3238179438 div.yiv3238179438attach-table div div a 
{text-decoration:none;}#yiv3238179438 div.yiv3238179438attach-table 
{width:400px;}#yiv3238179438 div.yiv3238179438file-title a, #yiv3238179438 
div.yiv3238179438file-title a:active, #yiv3238179438 
div.yiv3238179438file-title a:hover, #yiv3238179438 div.yiv3238179438file-title 
a:visited {text-decoration:none;}#yiv3238179438 div.yiv3238179438photo-title a, 
#yiv3238179438 div.yiv3238179438photo-title a:active, #yiv3238179438 
div.yiv3238179438photo-title a:hover, #yiv3238179438 
div.

Bls: [belajar-excel] valdasi bertingkat modif [1 Attachment]

[achmad adi dido...@ymail.com [belajar-excel]]

terimakasih Mr toby..sebelumnyatapi sepertinya terlalu banayk perintah 
ya,,hehehehe...maksd q bisa gk dibuat yan lebih simple,,biar bisa belajar 
rumusnya..
seperti ini ni,,nemu di file milis punya Alm Bu siti
dan saya kembangkan,,mentok,,untuk keterangan namanya,,mohon bantuanya




 Pada Senin, 24 Agustus 2015 0:25, Toby kenzo tobyke...@yahoo.co.id 
[belajar-excel] belajar-excel@yahoogroups.com menulis:



  
| Dear Didon,File berikut menggunakan VBA untuk valudasi bertingkat dngan 
menggunakan ComboBox.Semoga bisa membantu.
It's work in Office 2013.
TerimaKasih.Sent from Yahoo Mail on Android |



 From:  achmad adi dido...@ymail.com [belajar-excel] 
belajar-excel@yahoogroups.com;
  To:  belajar-excel@yahoogroups.com;
  Subject:  [belajar-excel] valdasi bertingkat modif [1 Attachment]
  Sent:  Thu, Aug 20, 2015 3:00:27 AM


|  
dear master,,mohon bantuanyautnuk masalah yang saya hadapi,,mengambil dari 
validasi bertingkat di file mail archive BE,,,saya mau memodifikasi perintah 
masalah validasi bertingkat,,mohon pencerahaannya,,,ini saya lampirkan file 
contohnya..
sebelumnya saya ucapkan terima kasih   |


 #yiv6913246463 #yiv6913246463 -- #yiv6913246463ygrp-mkp {border:1px solid 
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv6913246463 
#yiv6913246463ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv6913246463 
#yiv6913246463ygrp-mkp #yiv6913246463hd 
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 
0;}#yiv6913246463 #yiv6913246463ygrp-mkp #yiv6913246463ads 
{margin-bottom:10px;}#yiv6913246463 #yiv6913246463ygrp-mkp .yiv6913246463ad 
{padding:0 0;}#yiv6913246463 #yiv6913246463ygrp-mkp .yiv6913246463ad p 
{margin:0;}#yiv6913246463 #yiv6913246463ygrp-mkp .yiv6913246463ad a 
{color:#ff;text-decoration:none;}#yiv6913246463 #yiv6913246463ygrp-sponsor 
#yiv6913246463ygrp-lc {font-family:Arial;}#yiv6913246463 
#yiv6913246463ygrp-sponsor #yiv6913246463ygrp-lc #yiv6913246463hd {margin:10px 
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv6913246463 
#yiv6913246463ygrp-sponsor #yiv6913246463ygrp-lc .yiv6913246463ad 
{margin-bottom:10px;padding:0 0;}#yiv6913246463 #yiv6913246463actions 
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv6913246463 
#yiv6913246463activity 
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv6913246463
 #yiv6913246463activity span {font-weight:700;}#yiv6913246463 
#yiv6913246463activity span:first-child 
{text-transform:uppercase;}#yiv6913246463 #yiv6913246463activity span a 
{color:#5085b6;text-decoration:none;}#yiv6913246463 #yiv6913246463activity span 
span {color:#ff7900;}#yiv6913246463 #yiv6913246463activity span 
.yiv6913246463underline {text-decoration:underline;}#yiv6913246463 
.yiv6913246463attach 
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 
0;width:400px;}#yiv6913246463 .yiv6913246463attach div a 
{text-decoration:none;}#yiv6913246463 .yiv6913246463attach img 
{border:none;padding-right:5px;}#yiv6913246463 .yiv6913246463attach label 
{display:block;margin-bottom:5px;}#yiv6913246463 .yiv6913246463attach label a 
{text-decoration:none;}#yiv6913246463 blockquote {margin:0 0 0 
4px;}#yiv6913246463 .yiv6913246463bold 
{font-family:Arial;font-size:13px;font-weight:700;}#yiv6913246463 
.yiv6913246463bold a {text-decoration:none;}#yiv6913246463 dd.yiv6913246463last 
p a {font-family:Verdana;font-weight:700;}#yiv6913246463 dd.yiv6913246463last p 
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv6913246463 
dd.yiv6913246463last p span.yiv6913246463yshortcuts 
{margin-right:0;}#yiv6913246463 div.yiv6913246463attach-table div div a 
{text-decoration:none;}#yiv6913246463 div.yiv6913246463attach-table 
{width:400px;}#yiv6913246463 div.yiv6913246463file-title a, #yiv6913246463 
div.yiv6913246463file-title a:active, #yiv6913246463 
div.yiv6913246463file-title a:hover, #yiv6913246463 div.yiv6913246463file-title 
a:visited {text-decoration:none;}#yiv6913246463 div.yiv6913246463photo-title a, 
#yiv6913246463 div.yiv6913246463photo-title a:active, #yiv6913246463 
div.yiv6913246463photo-title a:hover, #yiv6913246463 
div.yiv6913246463photo-title a:visited {text-decoration:none;}#yiv6913246463 
div#yiv6913246463ygrp-mlmsg #yiv6913246463ygrp-msg p a 
span.yiv6913246463yshortcuts 
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv6913246463 
.yiv6913246463green {color:#628c2a;}#yiv6913246463 .yiv6913246463MsoNormal 
{margin:0 0 0 0;}#yiv6913246463 o {font-size:0;}#yiv6913246463 
#yiv6913246463photos div {float:left;width:72px;}#yiv6913246463 
#yiv6913246463photos div div {border:1px solid 
#66;height:62px;overflow:hidden;width:62px;}#yiv6913246463 
#yiv6913246463photos div label 
{color:#66;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv6913246463
 #yiv6913246463reco-category {font-size:77%;}#yiv6913246463 
#yiv6913246463reco-desc {font-size:77%;}#yiv6913246463 .yiv6913246463replbq 
{margin:4px

Bls: [belajar-excel] menemukan baris terakhir di kolom tertentu

[achmad adi]

mohon maap,,,unutk mR.kid,,,apabila krusor yang dimaksd hanya kolom C tanpa 
melihat posisi terakhir kolom B terimakasih sebelumnya,,,ini saya lampirkan 
file nya





Pada Selasa, 28 Januari 2014 20:21, Mr. Kid mr.nm...@gmail.com menulis:

 
Coba :
Public Sub NextData(Optional bState As Boolean = False)
    With Sheet1.Shapes(Application.Caller).TopLeftCell.Offset(1).CurrentRegion
    Cells(.Resize(1, 1).Offset(.Rows.Count, 1).Row, 3).Activate
    End With
End Sub

Wassalam,
Kid.





2014-01-28 achmad adi dido...@ymail.com


 
terimakasih banyak Mr. Jam Raisin
kalo Next Data nya ada di Banyak tabel bagaimana?
saya lampirkan file nya...
terimakasih sebelumnya..






Pada Selasa, 28 Januari 2014 16:10, Jan Raisin miss.jan.rai...@gmail.com 
menulis:

 
coba 3 baris script ini ditulis pada sebuah modul


Sub NextData()
    Cells(Rows.Count, 3).End(xlUp).Offset(1).Select
End Sub


lalu di-assign ke sebuah shape yang berada di depan cel B2 s.d D2
file terlampir




-Miss Jan Raisin-


Pada 28 Januari 2014 15.44, achmad adi dido...@ymail.com menulis:


 
Dear master,,,
mohon bantuanya,,,untuk menemukan baris terakhir pada kolom tertentu,,,dengan 
bantuan sell tertentu,,,kalo pake hyperlink,,,apabila ada data msuk.,,,gak 
bisa ke baris terakhir,,

saya lampirkan file contoh,,,


sebelumnya saya ucapkan terimakasih..





re-mencari+baris+terakhir.xlsm
Description: application/download

[belajar-excel] menemukan baris terakhir di kolom tertentu [1 Attachment]

[achmad adi]

Dear master,,,
mohon bantuanya,,,untuk menemukan baris terakhir pada kolom tertentu,,,dengan 
bantuan sell tertentu,,,kalo pake hyperlink,,,apabila ada data msuk.,,,gak bisa 
ke baris terakhir,,

saya lampirkan file contoh,,,

sebelumnya saya ucapkan terimakasih..


mencari baris terakhir.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet

Bls: [belajar-excel] menemukan baris terakhir di kolom tertentu [1 Attachment]

[achmad adi]

terimakasih banyak Mr. Jam Raisin
kalo Next Data nya ada di Banyak tabel bagaimana?
saya lampirkan file nya...
terimakasih sebelumnya..





Pada Selasa, 28 Januari 2014 16:10, Jan Raisin miss.jan.rai...@gmail.com 
menulis:

 
coba 3 baris script ini ditulis pada sebuah modul

Sub NextData()
    Cells(Rows.Count, 3).End(xlUp).Offset(1).Select
End Sub

lalu di-assign ke sebuah shape yang berada di depan cel B2 s.d D2
file terlampir


-Miss Jan Raisin-


Pada 28 Januari 2014 15.44, achmad adi dido...@ymail.com menulis:


 
Dear master,,,
mohon bantuanya,,,untuk menemukan baris terakhir pada kolom tertentu,,,dengan 
bantuan sell tertentu,,,kalo pake hyperlink,,,apabila ada data msuk.,,,gak 
bisa ke baris terakhir,,

saya lampirkan file contoh,,,


sebelumnya saya ucapkan terimakasih..


re-mencari baris terakhir.xlsm
Description: application/download

[belajar-excel] isi text tergantung dengan combobox [1 Attachment]

[achmad adi]

disini saya mencoba membuat userform tentang Kurs dollar...
dimana tiap bulan kurs dollar terhadap rupiah berubah-ubah,,,
 
saya mengalami kesulitan ,,,
ketika combobox  di CBulan diubah,,,secara otomatis kolom  rupiah menyesuaikan 
dengan sendirinta sesuai dengan bulan yang dipilih,,,
 
saya lampirkan file nya,,
 
sebelumnya terimakasih,,,

COMBOBOX BERTINGKAT DIUSERFORM.rar
Description: Binary data

Bls: [belajar-excel] isi text tergantung dengan combobox

[achmad adi]

terimakasih banyak Mr. Kid,,,
 
berjalan sempurna,,sesuai harapan,,,
 
moga Mr Kid sehat selalu amin ( biar bisa mbantu para beexceller )hehehehe



Dari: Mr. Kid mr.nm...@gmail.com
Kepada: BeExcel belajar-excel@yahoogroups.com
Dikirim: Sabtu, 14 September 2013 9:23
Judul: Re: [belajar-excel] isi text tergantung dengan combobox

 
Hai Adi,
Coba ganti seluruh script dalam userform menjadi :Private Sub CBRATE_Change()
    PasangNilainya
End Sub

Private Sub CBULAN_Change()
    PasangNilainya
End Sub

Private Sub PasangNilainya()
    TKET.Text = vbNullString
    TRUPIAH.Text = vbNullString

    If CBRATE.ListIndex  -1 Then
    If CBULAN.ListIndex  -1 Then
    TKET.Text = Sheet1.Range(B3).Offset(CBRATE.ListIndex + 1).Value
    TRUPIAH.Text = Sheet1.Range(C3).Offset(CBRATE.ListIndex + 1, 
CBULAN.ListIndex).Value
    End If
    End If
   
    Me.TKET.Locked = True
    Me.TRUPIAH.Locked = True
End SubWassalam,
Kid.

2013/9/14 achmad adi dido...@ymail.com
 
disini saya mencoba membuat userform tentang Kurs dollar...
dimana tiap bulan kurs dollar terhadap rupiah berubah-ubah,,,

saya mengalami kesulitan ,,,
ketika combobox  di CBulan diubah,,,secara otomatis kolom  rupiah menyesuaikan 
dengan sendirinta sesuai dengan bulan yang dipilih,,,

saya lampirkan file nya,,

sebelumnya terimakasih,,,

Bls: [belajar-excel] tentang option button

[achmad adi]

Mr.Kid...
ada sedikit problem
pada waku penyimpanan...apabila OPTION BUTTON kosong dan di BATAL kan
data tetap tersimpan,,,tombol BATAL harapan nya semua data tidak terimpan
 
dan satu lagi
utuk pengEDITAN,,,kok data yang lama( untuk Value ) tetap nongol,,,tidak 
terhapus tergantikan value baru sesuai dengan OPTION BUTTON yang baru..
 
karena disini saya ingin satu baris,,,satu value di OPTION BUTTON tertuju,,,
 
terimakasih banyak Mr. Kid



Dari: achmad adi dido...@ymail.com
Kepada: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com 
Dikirim: Sabtu, 7 September 2013 0:01
Judul: Bls: [belajar-excel] tentang option button

  
alhmdullilah...mantap,,,terimakasih banyak Mr. Kid,,,akhirnya sesuai 
harapan,,,maju terus beexceller 




Dari: Mr. Kid mr.nm...@gmail.com
Kepada: BeExcel belajar-excel@yahoogroups.com 
Dikirim: Jumat, 6 September 2013 23:26
Judul: Re: [belajar-excel] tentang option button

  
file terlampir.
Wassalam,
Kid.

2013/9/6 achmad adi dido...@ymail.com 
  
disini saya mencoba membuat input data barang mengunakan user form yang 
berisinomer urut :tanggal :supplier :DN no :PO no :PV no:VALUE:OPTTION BUTTON 
( 1 - 11 )scrool bar ( untuk meliha data yang sudah diinput )pada waktu 
penginputan dan disimpan di sheetF20 secara otomatis sudah bisa tersimpan 
sesuai harapan disertai value untuk disimpan di cells tertuju menggnakan 
OPTION BUTTON..tetapi masalah yang saya hadapi sekarang,,,( udah 
buntu,,,hehehe,,,ngoprek sana sini gk ketemu,,,) 1.  ketika scroll digeser, 
untuk Value dan dan option button kosong,,,tidak terisi data yang telah 
tersimpan,,, 2.  untuk tombol EDIT,,,ketika saya mencoba merubah nilai value 
dan OPTION BUTTON,,,dan saya simpan data yang baru.. data tidak mau 
tersimpan di data sebelumnya,,,malah menumpuk di baris terakhir,,,3. dan 
terakhir,,pada waktu menyimpan data,,, OPTION BUTTON harus dipilih salah 
satu,,,apabila tidak ada peringatan seperti yang ada di texbox value...lebih
 jelasnya saya lampirkan lagi,,file yang baru,,terimakasih banyak atas 
bantuanya para master,,,

Bls: [belajar-excel] tentang option button

[achmad adi]

alhmdullilah...
mantap,,,terimakasih banyak Mr. Kid,,,
akhirnya sesuai harapan,,,

maju terus beexceller





 Dari: Mr. Kid mr.nm...@gmail.com
Kepada: BeExcel belajar-excel@yahoogroups.com 
Dikirim: Jumat, 6 September 2013 23:26
Judul: Re: [belajar-excel] tentang option button
 


  
file terlampir.

Wassalam,
Kid.




2013/9/6 achmad adi dido...@ymail.com

 
  
disini saya mencoba membuat input data barang mengunakan user form yang berisi
nomer urut :
tanggal :
supplier :
DN no :
PO no :
PV no:
VALUE:
OPTTION BUTTON ( 1 - 11 )
scrool bar ( untuk meliha data yang sudah diinput )

pada waktu penginputan dan disimpan di sheetF20 secara otomatis sudah bisa 
tersimpan sesuai harapan 
disertai value untuk disimpan di cells tertuju menggnakan OPTION BUTTON..

tetapi masalah yang saya hadapi sekarang,,,( udah buntu,,,hehehe,,,ngoprek 
sana sini gk ketemu,,,)
 1.  ketika scroll digeser, untuk Value dan dan option button kosong,,,tidak 
terisi data yang telah tersimpan,,,
 2.  untuk tombol EDIT,,,ketika saya mencoba merubah nilai value dan OPTION 
BUTTON,,,dan saya simpan data yang baru..
 data tidak mau tersimpan di
 data sebelumnya,,,malah menumpuk di baris terakhir,,,
3. dan 
terakhir,,pada waktu menyimpan data,,, OPTION BUTTON harus dipilih salah
 satu,,,apabila tidak ada peringatan seperti yang ada di texbox value...

lebih jelasnya saya lampirkan lagi,,file yang baru,,

terimakasih banyak atas bantuanya para master,,,

 

Bls: Re: Re: [belajar-excel] (unknown)

[achmad adi]

saya sudah membuat yang baru Mr kid,,lebih spesifik lagi,,mohon bantuannya





 Dari: Mr. Kid mr.nm...@gmail.com
Kepada: BeExcel belajar-excel@yahoogroups.com 
Dikirim: Selasa, 28 Mei 2013 19:02
Judul: Re: Re: Re: [belajar-excel] (unknown)
 


  
Kok gak disertakan hasil uji cobanya.

End    sub



Wassalam,
Kid.




2013/5/28 dido...@ymail.com

 
  
 Trimakasih sebelumnya...mr kid..atas bantuannya...
Kok gak jalan ya..setelah saya terapkan..

Endsub

Hehehe..
Powered by Telkomsel BlackBerry®


From:  Mr. Kid mr.nm...@gmail.com 
Sender:  belajar-excel@yahoogroups.com 
Date: Mon, 27 May 2013 17:01:44 +0700
To: BeExcelbelajar-excel@yahoogroups.com
ReplyTo:  belajar-excel@yahoogroups.com 
Subject: Re: Re: [belajar-excel] (unknown)

  
Oke.

Daftar nama langsung diletakkan di kolom B saja (mulai B6). Jadi combobox 
merujuk pada daftar nama di kolom B ini.
misal :
1. object worksheet tujuan adalah sheet1 [bukan nama sheet di tab sheet, tapi 
di VBE frame Project Explorer]
2. combo nama bernama Combobox1, combo lokasi bernama combobox2, textbox nilai 
bernama textbox1

Copas prosedur berikut ke lembar script userform :
private sub Simpan()

 dim rng as range    'anchor

 set rng=sheet1.range(c6)


 'validasi input

 if combobox1.listindex0 then

   exit sub

 elseif combobox2.listindex0 then

   exit sub

 elseif lenb(textbox1.text)=0 then

   exit sub

 endif


 'tulis nilai ke worksheet

 rng.offset( combobox1.listindex , combobox2.listindex ).value = 
textbox1.text



 'pesan

 msgbox Done.,vbinformation,Simpan

end sub



kemudian di setiap event change milik combobox1,combobox2, dan textbox1 diberi 
perintah untuk memanggil prosedur Simpan di atas tadi dengan menuliskan :

Simpan


Wassalam,

Kid.














2013/5/27 dido...@ymail.com

 
  
 Trimakasih masulannya...cuma ingin mencoba..sebelumnya..mr kid sudah 
 mengajari paksi option buton untuk memilih cell tertuju..nah ini mo mencoba 
 dengan combobox langsung
Powered by Telkomsel BlackBerry®


From:  Mr. Kid mr.nm...@gmail.com 
Sender:  belajar-excel@yahoogroups.com 
Date: Fri, 24 May 2013 23:21:53 +0700
To: BeExcelbelajar-excel@yahoogroups.com
ReplyTo:  belajar-excel@yahoogroups.com 
Subject: Re: [belajar-excel] (unknown)

  
Kenapa kok disimpan dengan orientasi kekanan (horisontal).
Bagaimana jika disimpan dengan orientasi vertikal.
Pada sheet baru dibuat tabel (mulai A1 sebagai header) dengan kolom :
  NAMA  ALOKASI    NILAI TGL_INPUT

ndak perlu kolom Total dan ndak perlu kolom NO.


Menampilkan output seperti cara Anda menyimpan itu lebih mudah jika tabelnya 
seperti di atas ( 4 kolom di atas)


Wassalam,

Kid.








2013/5/24 achmad adi dido...@ymail.com

 
  
dear master,

setelah mengaplikasikan apa yng telah saya dapat,,,saya menemui kebuntuan 
lagi..tentang pointer untuk disimpan di cell tertentu ( ada di combobox 
)..att saya lampirkan..
mohon petunjuk dari para master.




terima kasih





 

Bls: [belajar-excel] input edit simpan sesuai cell

[achmad adi]

mohon masukan nya,,mr kid





 Dari: achmad adi dido...@ymail.com
Kepada: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com 
Dikirim: Selasa, 28 Mei 2013 16:37
Judul: [belajar-excel] input edit simpan sesuai cell
 


  
dear mr kid,,
ini lanjutan dari masalah saya sebelumnya,,,
agar lebih jelasnya saya lampirkan att yang abru,,,
sebelumnya banyak terimakasih 
 

[belajar-excel] (unknown)

[achmad adi]

dear master,
setelah mengaplikasikan apa yng telah saya dapat,,,saya menemui kebuntuan 
lagi..tentang pointer untuk disimpan di cell tertentu ( ada di combobox )..att 
saya lampirkan..
mohon petunjuk dari para master.



terima kasih


SIMPAN DATA ke Cell yang ada di COMBOBOX.rar
Description: application/rar

[belajar-excel] rumus eomonth berjalan di combobox

[achmad adi]

saya lampirkan filenyamohon pencerahaanya,,,karena saya telah 
mencoba,,tetapi ketika bulan terakhir dan pergantian tahun,,,rumus tidak 
jalan,,,


contoh.rar
Description: Binary data

Bls: [belajar-excel] rumus eomonth berjalan di combobox

[achmad adi]

ini malah sangat membantu,,,trima kasih mbk,,,to mas nih...hehehehe :)


tapi bukan itu maksd saya,,,VBA untuk Teks box dari agar sesuai dengan rumus 
eomonth yamh di sheet 1,,,
misal :

USERFORM-- angsuran =  2

    dari    = Dec-13
maka otomatis---sampai    = Feb-14

trimakasih sebelumnya





 Dari: WIRAnata Kemala Deng kwiran...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 6 Mei 2013 20:46
Judul: Re: [belajar-excel] rumus eomonth berjalan di combobox
 


  
seperti ini bukan yah jawaban (one of many ways) untuk pertanyaan nya ? pencet 
button 2 

untuk referensi yah, silakan dikotak-katik :)
maap kalo VBA nya berantakan , maklum baru belajar. 

regards, wira 

6/5/2013 8:44:04 PM




2013/5/6 achmad adi dido...@ymail.com

 
  
saya lampirkan filenyamohon pencerahaanya,,,karena saya telah 
mencoba,,tetapi ketika bulan terakhir dan pergantian tahun,,,rumus tidak 
jalan,,,


 

Bls: [belajar-excel] edit data..tidak mau berubah...?

[achmad adi]

mau berubah mr kid dimasing masing SHEET tertuju,,,mantap
tapi di Sheet Data siswa kok malah nambah data bukan merubah data?


mantapmr kid.trimakasih bantuanya...






 Dari: Mr. Kid mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Jumat, 30 November 2012 11:42
Judul: Re: [belajar-excel] edit data..tidak mau berubah...?
 

  
Ganti event click tombol edit dengan yang ini :
Private Sub Cmd_EditInput_Click()
    Dim rng As Range
    If Sheets(input).ComboBox.ListIndex = -1 Then
    Exit Sub
    End If
    Set rng = Sheets(Sheets(input).ComboBox.Text) _
    .Range(b5).CurrentRegion.Resize(, 
1).Find(Sheets(input).Range(b16).Value)
    If rng Is Nothing Then
    Exit Sub
    End If
    Sheets(input).Range(b16:h16).Copy
    rng.PasteSpecial xlPasteValues

    RefreshTabels
   
    ' sebelum records dlm tabel induk diubah,
    ' diselamatkan dulu (=dicopy) ke IndTBL histori
    ' sesuai saran jitu dari mas Kid
    IndTBL(Me.ScrollBar1 + 1, 1).Resize(1, IndTBL.Columns.Count).Copy
    HisTBL(hRow, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    HisTBL(hRow, 2).Offset(0, tCol) = Now
   
    ' Form Kanan (FORM2) yg mungkin telah diedit,
    ' data disave ke Tabel induk
    ' pelaksanaan entrying nya dgn dibantu prosedur EntryData
    Call EntryData2(Me.ScrollBar1 + 2, Form2)
End Sub

Wassalam,
Kid.


2012/11/29 achmad adi dido...@ymail.com

 
  
masih belum mengerti MrKid bingung
bisa sertakanlampiran file nya?






 Dari: Mr. Kid mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Rabu, 24 Oktober 2012 16:39

Judul: Re: [belajar-excel] edit data..tidak mau berubah...?
 


  
Coba lihat pada event click milik tombol edit.
Disana ada baris berbunyi :
Call EntryData2(Me.ScrollBar1 + 2, Form2)
Biru : indeks baris penulisan
Merah : range yang dikenai si indeks baris penulisan

Coba ganti dengan :
Call EntryData2(7, Form2)

Kalau masih gak cocok, coba ganti dengan :
Call EntryData2(Me.ScrollBar1, Form2)

Masih gak cocok juga, coba ganti dengan :
Call EntryData2(Me.ScrollBar1 + 7, Form2)

Masih gak cocok juga ?
Pantesnya berapa ya ?
baris inilah yang harus Anda mengertikenapa dan mengapa mbake Siti memaksa 
adanya nilai yang dibiru itu.
Dengan begitu, pemakainya yang suka copas tinggal ubah-ubah sampai sesuai 
selera mereka.

Wassalam,
Kid.









2012/10/13 Mr. Kid mr.nm...@gmail.com

Untuk penulisan ke sheet masing-masing kelas mestinya sudah jalan. 
Mungkin Anda belum menghapus baris 
RefreshTabels ComboBox.Text 

Kalau yang dimaksud belum jalan adalah tentang penulisan ke sheet datasiswa, 
itu karena kesalahan dalam menentukan nomor baris dalam tabel disheet 
datasiswa. Bagian ini memang ndak diubah-ubah. Semuanya adalah asli ujicoba 
Anda. 
Cukup memperbaiki baris pemanggilan prosedur penulis ke sheet datasiswa. 
Kalau ndak salah ingat, Anda ingin membuatnya dengan memanggil prosedur baru 
yang namanya entry2 atau apalah itu. 
Penentuan nilai parameter pada sisi barislah yang harus diperbaiki. Kalau 
ndak salah inget lagi, sepertinya waktu itu Anda menggunakan nilai dari 
scroll bar atau spin yang ada di sheet Input. Nah bagian ini yang harus 
disesuaikan. Mungkin proses penambahan atau pengurangan terhadap nilai ini 
(nilai scrollbar atau spin ini) yang harus diubah supaya baris penulisannya 
ke sheet datasiswa nantinya menjadi tepat sasaran.

Wassalam,
Kid.





2012/10/13 achmad adi dido...@ymail.com

 
  
Masih belum jalan mr Kid.








 Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Jumat, 12 Oktober 2012 16:39
Judul: Re: [belajar-excel] edit data..tidak mau berubah...?
 


  
Oh gitu...

kalau gitu baris :
RefreshTabels ComboBox.Text 
tidak boleh dipakai. Hapus saja dan ganti dengan yang ini.
dim rng as range
if sheets(input).combobox.listindex=-1 then
   exit sub
endif
set rng=sheets( sheets(input).combobox.text ) _
 .range(b5).currentregion.resize(,1).find( 
sheets(input).range(b16).value )
if rng is nothing then
    exit sub
endif
sheets(input).range(b16:h16).copy
rng.pastespecial xlpastevalues

moga-moga gak error

Wassalam,
Kid.



2012/10/12 dido...@ymail.com

 
  
 Iya mrkid..thanks...sekarang permasalahanya..kebalik...disheet tertuju mau 
 berubah..tapi didatasiswa tidak Ada perubahan Setelah pengeditan..

Yang saya maksud setelah Ada pengeditan 
Datasiswa berubah 
Di sheet kelas jg berubah 
Sesuai pengeditan 

Trimakasih
Powered by Telkomsel BlackBerry®


From:  Kid Mr. mr.nm...@gmail.com 
Sender:  belajar-excel@yahoogroups.com 
Date: Fri, 12 Oct 2012 15:51:46 +0700
To: belajar-excel@yahoogroups.com
ReplyTo:  belajar-excel@yahoogroups.com 
Subject: Re: [belajar-excel] edit data..tidak mau berubah...?

  
Bukankah sudah disarankan :
1. persis setelah deklarasi prosedur (alias baris pertama dalam 
prosedur)  diberi perintah untuk refreshtable berdasar isi

Bls: [belajar-excel] edit data..tidak mau berubah...?

[achmad adi]

masih belum mengerti MrKid bingung
bisa sertakanlampiran file nya?





 Dari: Mr. Kid mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Rabu, 24 Oktober 2012 16:39
Judul: Re: [belajar-excel] edit data..tidak mau berubah...?
 

  
Coba lihat pada event click milik tombol edit.
Disana ada baris berbunyi :
Call EntryData2(Me.ScrollBar1 + 2, Form2)
Biru : indeks baris penulisan
Merah : range yang dikenai si indeks baris penulisan

Coba ganti dengan :
Call EntryData2(7, Form2)

Kalau masih gak cocok, coba ganti dengan :
Call EntryData2(Me.ScrollBar1, Form2)

Masih gak cocok juga, coba ganti dengan :
Call EntryData2(Me.ScrollBar1 + 7, Form2)

Masih gak cocok juga ?
Pantesnya berapa ya ?
baris inilah yang harus Anda mengertikenapa dan mengapa mbake Siti memaksa 
adanya nilai yang dibiru itu.
Dengan begitu, pemakainya yang suka copas tinggal ubah-ubah sampai sesuai 
selera mereka.

Wassalam,
Kid.









2012/10/13 Mr. Kid mr.nm...@gmail.com

Untuk penulisan ke sheet masing-masing kelas mestinya sudah jalan. 
Mungkin Anda belum menghapus baris 
RefreshTabels ComboBox.Text 

Kalau yang dimaksud belum jalan adalah tentang penulisan ke sheet datasiswa, 
itu karena kesalahan dalam menentukan nomor baris dalam tabel disheet 
datasiswa. Bagian ini memang ndak diubah-ubah. Semuanya adalah asli ujicoba 
Anda. 
Cukup memperbaiki baris pemanggilan prosedur penulis ke sheet datasiswa. Kalau 
ndak salah ingat, Anda ingin membuatnya dengan memanggil prosedur baru yang 
namanya entry2 atau apalah itu. 
Penentuan nilai parameter pada sisi barislah yang harus diperbaiki. Kalau ndak 
salah inget lagi, sepertinya waktu itu Anda menggunakan nilai dari scroll bar 
atau spin yang ada di sheet Input. Nah bagian ini yang harus disesuaikan. 
Mungkin proses penambahan atau pengurangan terhadap nilai ini (nilai scrollbar 
atau spin ini) yang harus diubah supaya baris penulisannya ke sheet datasiswa 
nantinya menjadi tepat sasaran.

Wassalam,
Kid.





2012/10/13 achmad adi dido...@ymail.com

 
  
Masih belum jalan mr Kid.








 Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Jumat, 12 Oktober 2012 16:39
Judul: Re: [belajar-excel] edit data..tidak mau berubah...?
 


  
Oh gitu...

kalau gitu baris :
RefreshTabels ComboBox.Text 
tidak boleh dipakai. Hapus saja dan ganti dengan yang ini.
dim rng as range
if sheets(input).combobox.listindex=-1 then
   exit sub
endif
set rng=sheets( sheets(input).combobox.text ) _
 .range(b5).currentregion.resize(,1).find( 
sheets(input).range(b16).value )
if rng is nothing then
    exit sub
endif
sheets(input).range(b16:h16).copy
rng.pastespecial xlpastevalues

moga-moga gak error

Wassalam,
Kid.



2012/10/12 dido...@ymail.com

 
  
 Iya mrkid..thanks...sekarang permasalahanya..kebalik...disheet tertuju mau 
 berubah..tapi didatasiswa tidak Ada perubahan Setelah pengeditan..

Yang saya maksud setelah Ada pengeditan 
Datasiswa berubah 
Di sheet kelas jg berubah 
Sesuai pengeditan 

Trimakasih
Powered by Telkomsel BlackBerry®


From:  Kid Mr. mr.nm...@gmail.com 
Sender:  belajar-excel@yahoogroups.com 
Date: Fri, 12 Oct 2012 15:51:46 +0700
To: belajar-excel@yahoogroups.com
ReplyTo:  belajar-excel@yahoogroups.com 
Subject: Re: [belajar-excel] edit data..tidak mau berubah...?

  
Bukankah sudah disarankan :
1. persis setelah deklarasi prosedur (alias baris pertama dalam 
prosedur)  diberi perintah untuk refreshtable berdasar isi combobox
   RefreshTabels ComboBox.Text 'pastikan combobox sudah ada itemnya, 
bila perlu lakukan cek lebih dulu


Wassalam,
Kid.


2012/10/12 dido...@ymail.com

 
  
 Untuk tombol edit masih eror..
Subscript out of range

Set IndTBL=sheets(sShtName).range(A4).currentregion
Powered by Telkomsel BlackBerry®



From:  Kid Mr. mr.nm...@gmail.com 
Sender:  belajar-excel@yahoogroups.com 
Date: Fri, 12 Oct 2012 00:55:48 +0700
To: belajar-excel@yahoogroups.com
ReplyTo:  belajar-excel@yahoogroups.com 
Subject: Re: [belajar-excel] edit data..tidak mau berubah...?

  
Deklarasi prosedur refreshtable diubah menjadi :

Private Sub RefreshTabels(Optional sShtName As String = datasiswa)

Baris dalam prosedur refreshtable yang berbunyi :
Set IndTBL = Sheets(datasiswa).Range(A4).CurrentRegion
diubah menjadi :
Set IndTBL = Sheets(sShtName).Range(A4).CurrentRegion

Tambahkan pada event click tombol Edit :
1. persis setelah deklarasi prosedur (alias baris pertama dalam prosedur)  
diberi perintah untuk refreshtable berdasar isi combobox
   RefreshTabels ComboBox.Text 'pastikan combobox sudah ada 
itemnya, bila perlu lakukan cek lebih dulu

2. persis sebelum end sub diberi perintah untuk refresh table ke sheet 
datasiswa lagi
   RefreshTabels 

Wassalam,
Kid.


2012/10/11 achmad adi dido...@ymail.com

 
  
dear master,

mohon bantuanya masalah yang saya hadapi,,,
setelah menggabungkan beberapa

Bls: [belajar-excel] edit data..tidak mau berubah...?

[achmad adi]

trimakasih sebelumnya Mr. Kid...
saya oprek2 ampe pusing masih aja belum mau berubah juga,,,
coding dan prosedure mana yang harus diganti,dirubah to dihapus,,,
suapaya pada waktu EDIT...datasiswa berubah,,,dan data dimasing2 Sheet tertuju 
juga berubah,,,
to punya solusi yang lebih sederhana yang cara dan maksdnya sama?




 Dari: Mr. Kid mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Sabtu, 13 Oktober 2012 9:45
Judul: Re: [belajar-excel] edit data..tidak mau berubah...?
 

  
Untuk penulisan ke sheet masing-masing kelas mestinya sudah jalan. 
Mungkin Anda belum menghapus baris 
RefreshTabels ComboBox.Text 

Kalau yang dimaksud belum jalan adalah tentang penulisan ke sheet datasiswa, 
itu karena kesalahan dalam menentukan nomor baris dalam tabel disheet 
datasiswa. Bagian ini memang ndak diubah-ubah. Semuanya adalah asli ujicoba 
Anda. 
Cukup memperbaiki baris pemanggilan prosedur penulis ke sheet datasiswa. Kalau 
ndak salah ingat, Anda ingin membuatnya dengan memanggil prosedur baru yang 
namanya entry2 atau apalah itu. 
Penentuan nilai parameter pada sisi barislah yang harus diperbaiki. Kalau ndak 
salah inget lagi, sepertinya waktu itu Anda menggunakan nilai dari scroll bar 
atau spin yang ada di sheet Input. Nah bagian ini yang harus disesuaikan. 
Mungkin proses penambahan atau pengurangan terhadap nilai ini (nilai scrollbar 
atau spin ini) yang harus diubah supaya baris penulisannya ke sheet datasiswa 
nantinya menjadi tepat sasaran.

Wassalam,
Kid.




2012/10/13 achmad adi dido...@ymail.com

 
  
Masih belum jalan mr Kid.








 Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Jumat, 12 Oktober 2012 16:39
Judul: Re: [belajar-excel] edit data..tidak mau berubah...?
 


  
Oh gitu...

kalau gitu baris :
RefreshTabels ComboBox.Text 
tidak boleh dipakai. Hapus saja dan ganti dengan yang ini.
dim rng as range
if sheets(input).combobox.listindex=-1 then
   exit sub
endif
set rng=sheets( sheets(input).combobox.text ) _
 .range(b5).currentregion.resize(,1).find( 
sheets(input).range(b16).value )
if rng is nothing then
    exit sub
endif
sheets(input).range(b16:h16).copy
rng.pastespecial xlpastevalues

moga-moga gak error

Wassalam,
Kid.



2012/10/12 dido...@ymail.com

 
  
 Iya mrkid..thanks...sekarang permasalahanya..kebalik...disheet tertuju mau 
 berubah..tapi didatasiswa tidak Ada perubahan Setelah pengeditan..

Yang saya maksud setelah Ada pengeditan 
Datasiswa berubah 
Di sheet kelas jg berubah 
Sesuai pengeditan 

Trimakasih
Powered by Telkomsel BlackBerry®


From:  Kid Mr. mr.nm...@gmail.com 
Sender:  belajar-excel@yahoogroups.com 
Date: Fri, 12 Oct 2012 15:51:46 +0700
To: belajar-excel@yahoogroups.com
ReplyTo:  belajar-excel@yahoogroups.com 
Subject: Re: [belajar-excel] edit data..tidak mau berubah...?

  
Bukankah sudah disarankan :
1. persis setelah deklarasi prosedur (alias baris pertama dalam 
prosedur)  diberi perintah untuk refreshtable berdasar isi combobox
   RefreshTabels ComboBox.Text 'pastikan combobox sudah ada itemnya, 
bila perlu lakukan cek lebih dulu


Wassalam,
Kid.


2012/10/12 dido...@ymail.com

 
  
 Untuk tombol edit masih eror..
Subscript out of range

Set IndTBL=sheets(sShtName).range(A4).currentregion
Powered by Telkomsel BlackBerry®



From:  Kid Mr. mr.nm...@gmail.com 
Sender:  belajar-excel@yahoogroups.com 
Date: Fri, 12 Oct 2012 00:55:48 +0700
To: belajar-excel@yahoogroups.com
ReplyTo:  belajar-excel@yahoogroups.com 
Subject: Re: [belajar-excel] edit data..tidak mau berubah...?

  
Deklarasi prosedur refreshtable diubah menjadi :

Private Sub RefreshTabels(Optional sShtName As String = datasiswa)

Baris dalam prosedur refreshtable yang berbunyi :
Set IndTBL = Sheets(datasiswa).Range(A4).CurrentRegion
diubah menjadi :
Set IndTBL = Sheets(sShtName).Range(A4).CurrentRegion

Tambahkan pada event click tombol Edit :
1. persis setelah deklarasi prosedur (alias baris pertama dalam prosedur)  
diberi perintah untuk refreshtable berdasar isi combobox
   RefreshTabels ComboBox.Text 'pastikan combobox sudah ada itemnya, 
bila perlu lakukan cek lebih dulu

2. persis sebelum end sub diberi perintah untuk refresh table ke sheet 
datasiswa lagi
   RefreshTabels 

Wassalam,
Kid.


2012/10/11 achmad adi dido...@ymail.com

 
  
dear master,

mohon bantuanya masalah yang saya hadapi,,,
setelah menggabungkan beberapa rumusdari milis...ada yang bingung,,
saya sertakan file lebih jelasnya,,,
terimakasih







 

Bls: [belajar-excel] edit data..tidak mau berubah...?

[achmad adi]

Masih belum jalan mr Kid.






 Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Jumat, 12 Oktober 2012 16:39
Judul: Re: [belajar-excel] edit data..tidak mau berubah...?
 

  
Oh gitu...

kalau gitu baris :
RefreshTabels ComboBox.Text 
tidak boleh dipakai. Hapus saja dan ganti dengan yang ini.
dim rng as range
if sheets(input).combobox.listindex=-1 then
   exit sub
endif
set rng=sheets( sheets(input).combobox.text ) _
 .range(b5).currentregion.resize(,1).find( 
sheets(input).range(b16).value )
if rng is nothing then
    exit sub
endif
sheets(input).range(b16:h16).copy
rng.pastespecial xlpastevalues

moga-moga gak error

Wassalam,
Kid.



2012/10/12 dido...@ymail.com

 
  
 Iya mrkid..thanks...sekarang permasalahanya..kebalik...disheet tertuju mau 
 berubah..tapi didatasiswa tidak Ada perubahan Setelah pengeditan..

Yang saya maksud setelah Ada pengeditan 
Datasiswa berubah 
Di sheet kelas jg berubah 
Sesuai pengeditan 

Trimakasih
Powered by Telkomsel BlackBerry®


From:  Kid Mr. mr.nm...@gmail.com 
Sender:  belajar-excel@yahoogroups.com 
Date: Fri, 12 Oct 2012 15:51:46 +0700
To: belajar-excel@yahoogroups.com
ReplyTo:  belajar-excel@yahoogroups.com 
Subject: Re: [belajar-excel] edit data..tidak mau berubah...?

  
Bukankah sudah disarankan :
1. persis setelah deklarasi prosedur (alias baris pertama dalam 
prosedur)  diberi perintah untuk refreshtable berdasar isi combobox
   RefreshTabels ComboBox.Text 'pastikan combobox sudah ada itemnya, 
bila perlu lakukan cek lebih dulu


Wassalam,
Kid.


2012/10/12 dido...@ymail.com

 
  
 Untuk tombol edit masih eror..
Subscript out of range

Set IndTBL=sheets(sShtName).range(A4).currentregion
Powered by Telkomsel BlackBerry®



From:  Kid Mr. mr.nm...@gmail.com 
Sender:  belajar-excel@yahoogroups.com 
Date: Fri, 12 Oct 2012 00:55:48 +0700
To: belajar-excel@yahoogroups.com
ReplyTo:  belajar-excel@yahoogroups.com 
Subject: Re: [belajar-excel] edit data..tidak mau berubah...?

  
Deklarasi prosedur refreshtable diubah menjadi :

Private Sub RefreshTabels(Optional sShtName As String = datasiswa)

Baris dalam prosedur refreshtable yang berbunyi :
Set IndTBL = Sheets(datasiswa).Range(A4).CurrentRegion
diubah menjadi :
Set IndTBL = Sheets(sShtName).Range(A4).CurrentRegion

Tambahkan pada event click tombol Edit :
1. persis setelah deklarasi prosedur (alias baris pertama dalam prosedur)  
diberi perintah untuk refreshtable berdasar isi combobox
   RefreshTabels ComboBox.Text 'pastikan combobox sudah ada itemnya, 
bila perlu lakukan cek lebih dulu

2. persis sebelum end sub diberi perintah untuk refresh table ke sheet 
datasiswa lagi
   RefreshTabels 

Wassalam,
Kid.


2012/10/11 achmad adi dido...@ymail.com

 
  
dear master,

mohon bantuanya masalah yang saya hadapi,,,
setelah menggabungkan beberapa rumusdari milis...ada yang bingung,,
saya sertakan file lebih jelasnya,,,
terimakasih




 

Bls: [belajar-excel] Nomer urut ID secara otomatis

[achmad adi]

Kalau untuk nomer depannya saja,,,urut sesuai dengan waktu Tombol 
Simpan,,,01/PS-a/06/12 
Penyimpanan Pertama
 
0/PS-a/06/12 
Penyimpanan Kedua
 
Contoh :
 
Penginputan Pertama:
01/PS-a/06/12 
05 Juni 2012 
 Bp. Pendi Hartadi  
 / 004 BX  
 ( Toko )  
 Rp 2.000.000  
    -  
10 kali 
Juni 2012 
Maret 2013 
setelah Disimpan
 
untuk Tabel Data nya
langsung berubah seperti ini :
02/PS-a/07/12 
  
  
#N/A 
#N/A 
  
    -  
  
  
#NUM! 
bgitu juga seterusnya
Karena ini untuk laporan bulanan,,,untuk bulan dan tahun konstan
perubahan bulan dan tahun terjadi pada waktu awal bulan di Data Base Yang baru 
( mulai dari awal lagi )


Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Selasa, 12 Juni 2012 10:25
Judul: Re: [belajar-excel] Nomer urut ID secara otomatis


  
File terlampir menggunakan formula pada beberapa cell bantu untuk menyusun 
nomor dokumen baru.
Field input no PV berisi formula yang merujuk ke nomor dokumen baru tersebut.

Nomor baru diperoleh dari database berdasar jumlah cacah record dokumen di 
bulan dan tahun hari ini ditambah 1.

Script untuk event click tombol simpan data baru ditambahkan proses penulisan 
formula di field no PV (formula merujuk ke i1) dan proses kalkulasi sheet.

Wassalam,
Kid.


2012/6/12 achmad adi dido...@ymail.com

  
salam hangat untuk Semua Master Excel...
terimakasih untuk Mr Kid,,,( ngrepotin trus ..) 
 kelanjutan dari yang saya tanya sebelumnya,,,
dari file tsb yang telah saya ubah,,tetapi untuk nomer ID
belum bisa urut otomatis ( masih Manual )
ini saya lampirkan file nya,,,
mohon pencerahaannya,,,terimakasih.

Bls: [belajar-excel] Nomer urut ID secara otomatis

[achmad adi]

REVISI :
 
Kalau untuk nomer depannya saja,,,urut sesuai dengan waktu Tombol 
Simpan,,,01/PS-a/06/12 
Penyimpanan Pertama

02/PS-a/06/12 
Penyimpanan Kedua
 
Contoh :

Penginputan Pertama:
01/PS-a/06/12 
05 Juni 2012 
 Bp. Pendi Hartadi  
 / 004 BX  
 ( Toko )  
 Rp 2.000.000  
    -  
10 kali 
Juni 2012 
Maret 2013 
setelah Disimpan
 
untuk Tabel Data nya
langsung berubah seperti ini 
untuk Penginputan kedua:
02/PS-a/06/12 
  
  
#N/A 
#N/A 
  
    -  
  
  
#NUM! 
bgitu juga seterusnya
Karena ini untuk laporan bulanan,,,untuk bulan dan tahun konstan
perubahan bulan dan tahun terjadi pada waktu awal bulan di Data Base Yang baru 
( mulai dari awal lagi )




Dari: achmad adi dido...@ymail.com
Kepada: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com 
Dikirim: Selasa, 12 Juni 2012 11:03
Judul: Bls: [belajar-excel] Nomer urut ID secara otomatis

  
Kalau untuk nomer depannya saja,,,urut sesuai dengan waktu Tombol 
Simpan,,,01/PS-a/06/12 
Penyimpanan Pertama

0/PS-a/06/12 
Penyimpanan Kedua
 
Contoh :

Penginputan Pertama:
01/PS-a/06/12 
05 Juni 2012 
 Bp. Pendi Hartadi  
 / 004 BX  
 ( Toko )  
 Rp 2.000.000  
    -  
10 kali 
Juni 2012 
Maret 2013 
setelah Disimpan
 
untuk Tabel Data nya
langsung berubah seperti ini :
02/PS-a/07/12 
  
  
#N/A 
#N/A 
  
    -  
  
  
#NUM! 
bgitu juga seterusnya
Karena ini untuk laporan bulanan,,,untuk bulan dan tahun konstan
perubahan bulan dan tahun terjadi pada waktu awal bulan di Data Base Yang baru 
( mulai dari awal lagi )


Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Selasa, 12 Juni 2012 10:25
Judul: Re: [belajar-excel] Nomer urut ID secara otomatis

  
File terlampir menggunakan formula pada beberapa cell bantu untuk menyusun 
nomor dokumen baru.Field input no PV berisi formula yang merujuk ke nomor 
dokumen baru tersebut.Nomor baru diperoleh dari database berdasar jumlah cacah 
record dokumen di bulan dan tahun hari ini ditambah 1.Script untuk event click 
tombol simpan data baru ditambahkan proses penulisan formula di field no PV 
(formula merujuk ke i1) dan proses kalkulasi sheet.Wassalam,Kid. 
2012/6/12 achmad adi dido...@ymail.com 
  
salam hangat untuk Semua Master Excel...
terimakasih untuk Mr Kid,,,( ngrepotin trus ..) 
 kelanjutan dari yang saya tanya sebelumnya,,,
dari file tsb yang telah saya ubah,,tetapi untuk nomer ID
belum bisa urut otomatis ( masih Manual )
ini saya lampirkan file nya,,,
mohon pencerahaannya,,,terimakasih. 
 

Bls: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet tertentu

[achmad adi]

makasih banyak mbk raraakhirnya sesuai dengan maksud saya,,,
terimakasih pada semua master excel di Belajar excel,,
untuk mbk rara,,,mau dong alamat untuk down loadnya


Dari: Rara Wilis ra2wi...@gmail.com
Dikirim: Rabu, 23 Mei 2012 12:45
file yang saya kirim adalah filexls (excel 2003) tetapi hanya dikompress 
menjadi rar
agar tidak terlalu besar
Bapak dapat meng-Extrak nya menjadi xls lagi dengan software WinZip atau WinRar
(bahkan jika bapak penguna o/s windows pun juga punya kemampuan untuk itu)

selain itusebagai penguna office 2003 pada jaman 2007/2010 sebaiknya bapak 
punya file-converternya
(software dari microsoft, gratis) dapat didownload di sini
http://www.microsoft.com/en-us/download/details.aspx?id=3 

atau paling tidak main ke tetangga sebelah yg pc-nya pakai excel 2007
file dibuka dengan 2007 dan di save as sbg 97-2003  (*.xls)

gunanya barangkali mendapat file xlsx, xlsm, xlsb dari milis dan tertarik 
mempelajarinya;
bapak dapat membukanya, terutama jika file tsb tidak mengandung fungsi2 yg 
belum dikenal / belum ada di excel 2003


2012/5/23 achmad adi dido...@ymail.com
wahhh,,trimakasih mbk rara,,,telah membantu,,,
saya pake excel 2003,,,gk kebuka,,, :(

Bls: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet tertentu

[achmad adi]

trimakasih atas bantuannya mbk rara,,,
kok langsung ke wooksheet yang dituju ya,,,setelah memilih di COMBOBOX,,,
padahal saya belum pencet menyimpan data?




Dari: Rara Wilis ra2wi...@gmail.com
Dikirim: Rabu, 23 Mei 2012 4:01

Dear Pak Ahmad Adi,
Mbak Connie-nya (nickname 'Markonah')mohon maaf,sedang suibuk dari kemarin, 
terpaksa dia mewakilkan saya untuk menjawab sbb:
1. buka properties-window untuk Cbo_Alokasi
2. hilangkan/kosongkan isi untuk property ListFillRange

 (bisa juga butir 2 ini dilakukan dengan coding), misal
 Sheets(dataentri).cboAlokasi.ListFillRange = 

3. tambahkan event-procedure di module sheet dataentry seperti ini

Private Sub Worksheet_Activate()
Dim lembar As Worksheet
Cbo_Alokasi.Clear
For Each lembar In ThisWorkbook.Worksheets
If Not (lembar.Name = dataentri Or lembar.Name = SUMMARY) Then
Cbo_Alokasi.AddItem lembar.Name
End If
Next lembar
End Sub

Prosedur ini (salah satu cara mengisi list di Combobox) akan selalu memperbarui
LIST di combobox Cbo_Alokasi sesuai sheets yg ada (selain sheet SUMMARY
dan sheet dataentri)setiap kali user mengaktifkan sheet dataentri)

~rara / onbehalf of connie


CATATAN 'GAK PENTING
#:
pilih event prosedur yg akanJALAN SENDIRI jika sheet tertentu diaktifkan
deklarasikan variable bernama lembar, yg akan mewakili object worksheet
hapus isian list pada combobox cbo_alokasi
selenggarakan looping yg mau  mampu mengunjungi semua sheet dlm workbook ini
( =workbook di mana makro ditulis)
suruh vba mengetahui bahwa nantinya di tiap loop-step, setiap worksheet yg 
sedang dikunjungi
akan dikenali sebagai 'lembar'
setiap kunjungan ke worksheet, tanya namanya !
jika BUKAN dataentri atau bukan SUMMARY, maka
Nama sheet tsb diciduk untuk dijadikan item di LIST combobox 'cbo_alokasi'
'--
walaupun penamaan object boleh sembarang yg kita maui, mohon dilihat lagi apakah
pemakaian NAMA cbo_ALOKASI sudah tepat, ALOKASI bukan LOKASI

Bls: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet tertentu

[achmad adi]

wahhh,,trimakasih mbk rara,,,telah membantu,,,
saya pake excel 2003,,,gk kebuka,,, :(



Dari: Rara Wilis ra2wi...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Rabu, 23 Mei 2012 12:03
Judul: Re: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet 
tertentu


  
kalau di pc ku kok gak seperti itu ya?

jangan jangan pak ahmad masih pakai workbook yg prosedur Cbo_Alokasi_Change -nya
belum di non-aktipkan?!!? (pada workbook kiriman Connie maupun Rara, prosedur 
tsb sudah
dinon-aktipkan (dengan menambah aphostrof (' ) di depan setiap statements

tapi begini saja; sambil minta maaf ada kurang 1 pesan dari Connie, yg belum 
disampaikan 
pada email tadi pagi; begini:

editlah prosedur event CommandButton2_Click
hingga menjadi seperti ini (perubahan hanya di statements yg di beri backcolor 
pink


Private Sub CommandButton2_Click()
'--menyimpan data--
'--modifidifiedBy Markonah 16Mei2012/Rara 22mei2012
'---
Dim InPutRng As Range, Tabel7an As Range, IdxBaris7an As Long
Application.EnableEvents = False
If Not Sheets(dataentri).Cbo_Alokasi.ListIndex = -1 Then
Set InPutRng = Sheets(dataentri).Range(A15:L15)
Set Tabel7an = Sheets(Cbo_Alokasi.Value).Range(A5:L5).CurrentRegion
IdxBaris7an = Tabel7an.Rows.Count + 1
InPutRng.Copy
Tabel7an(IdxBaris7an, 1).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Sheets(Cbo_Alokasi.Value).Activate
MsgBox Data telah disimpan. Terima kasih, 64
Else
MsgBox Pilih Alokasi !!, 48
End If
Application.EnableEvents = True
End Sub

oiya ada pesan satu lagi:
kalau belajar VBA, sebaiknya sambil dibarengi baca text-book-nya, yg 
membicaraan secara sistematis
dari ujung awal. Kalau pak Ahmad belajar dari TENAG seperti ini, ya seperti ni 
jadinya, kelamaan maju-mundurnya

sementara belum sempat buku kertas; jika berminat VBA eBooks, nanti akan 
dikirim LINKs
tempat mengunduh eBooks tsb (gratis)..

rara


2012/5/23 achmad adi dido...@ymail.com

trimakasih atas bantuannya mbk rara,,,
kok langsung ke wooksheet yang dituju ya,,,setelah memilih di COMBOBOX,,,
padahal saya belum pencet menyimpan data?


Dari: Rara Wilis ra2wi...@gmail.com
Dikirim: Rabu, 23 Mei 2012 4:01

Dear Pak Ahmad Adi,
Mbak Connie-nya (nickname 'Markonah')mohon maaf,sedang suibuk dari kemarin, 
terpaksa dia mewakilkan saya untuk menjawab sbb:
1. buka properties-window untuk Cbo_Alokasi 
2. hilangkan/kosongkan isi untuk property ListFillRange


(bisa juga butir 2 ini dilakukan dengan coding), misal
Sheets(dataentri).cboAlokasi.ListFillRange = 

3. tambahkan event-procedure di module sheet dataentry seperti ini

Private Sub Worksheet_Activate()
Dim lembar As Worksheet
Cbo_Alokasi.Clear
For Each lembar In ThisWorkbook.Worksheets
If Not (lembar.Name = dataentri Or lembar.Name = SUMMARY) Then
Cbo_Alokasi.AddItem lembar.Name
End If
Next lembar
End Sub

Prosedur ini (salah satu cara mengisi list di Combobox) akan selalu memperbarui
LIST di combobox Cbo_Alokasi sesuai sheets yg ada (selain sheet SUMMARY
dan sheet dataentri)setiap kali user mengaktifkan sheet dataentri) 

 ~rara / onbehalf of connie

Bls: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet tertentu

[achmad adi]

trimakasih Ms. Markonah atas bantuannya
tetapi kok combo boxnya gak ada  listdown nya,,,diketik manual,,,minta 
untuk memeasukan ALOKASI,,,mohon pencerahaanya



Dari: Markonah markona...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Rabu, 16 Mei 2012 18:04
Judul: Re: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet 
tertentu


  
Option Explicit

' Pertanyaan Markonah 16Mei2012-
' kalau prosedur ini diberlakukan truss bgmana dong cara untuk
' mengKlik Tombol SIMPAN KE yg ada di sheet dataentry ???
'--
'Private Sub Cbo_Alokasi_Change()
'If Cbo_Alokasi.ListIndex  -1 Then
'ThisWorkbook.Sheets(Cbo_Alokasi.Value).Activate
'End If
'End Sub

Private Sub CommandButton2_Click()
'--menyimpan data--
'--modifidifiedBy Markonah 16Mei2012
'---
Dim InPutRng As Range, Tabel7an As Range, IdxBaris7an As Long
If Not Sheets(dataentri).Cbo_Alokasi.ListIndex = -1 Then
Set InPutRng = Sheets(dataentri).Range(A15:L15)
Set Tabel7an = Sheets(Cbo_Alokasi.Value).Range(A5:L5).CurrentRegion
IdxBaris7an = Tabel7an.Rows.Count + 1
InPutRng.Copy
Tabel7an(IdxBaris7an, 1).PasteSpecial xlPasteValuesAndNumberFormats

Application.CutCopyMode = False
Sheets(Cbo_Alokasi.Value).Activate
MsgBox Data telah disimpan. Terima kasih, 64
Else
MsgBox Pilih Alokasi !!
End If
End Sub

--

2012/5/16 achmad adi dido...@ymail.com

 Dear Master Excel,
 Sebelumnya saya ucapkan terima kasih kepada Mr kid
 yang telah membantu masalah Excel sebelumnya,,

 Post kali ini lanjutan dari post saya sebelumnya,,,
 kali ini membahas
 Combo box untuk menentukan tempat simpan di sheet tertuju,,,
 - Pada saya memilih data di COMBO BOX = A maka data tersimpan pada Sheet A
 - Pada saya memilih data di COMBO BOX = B maka data tersimpan pada Sheet B dst
 ( COmbo Box Berisi Nama Sheet = A,B,C )
 - Dan jika saya memilih shet sama berulang-ulang, maka data akan disimpan 
 pada baris setelah baris terakhir ( tidak menimpa ).

 mohon pencerahanya,,,
 sya lampirkan file,,

Bls: Bls: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet tertentu

[achmad adi]

mohon pencerahaannya,,,tetep gk bisa,,,heee,,,




Dari: the_x_mi...@yahoo.com the_x_mi...@yahoo.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Selasa, 22 Mei 2012 9:07
Judul: Re: Bls: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di 
sheet tertentu


  
Hi pak Achmad

Ada beberapa cara agar combo box terisi otomatis:
Salah satu nya adalah
Men define name yg merefer ke kolom yg diinginkan, lalu isikan name tersebut di 
rowsource pada properties combo box 



From: achmad adi dido...@ymail.com 
Sender: belajar-excel@yahoogroups.com 
Date: Tue, 22 May 2012 09:48:39 +0800 (SGT)
To: belajar-excel@yahoogroups.combelajar-excel@yahoogroups.com
ReplyTo: belajar-excel@yahoogroups.com 
Subject: Bls: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet 
tertentu
  
trimakasih Ms. Markonah atas bantuannya
tetapi kok combo boxnya gak ada  listdown nya,,,diketik manual,,,minta 
untuk memeasukan ALOKASI,,,mohon pencerahaanya



Dari: Markonah markona...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Rabu, 16 Mei 2012 18:04
Judul: Re: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet 
tertentu


  
Option Explicit

' Pertanyaan Markonah 16Mei2012-
' kalau prosedur ini diberlakukan truss bgmana dong cara untuk
' mengKlik Tombol SIMPAN KE yg ada di sheet dataentry ???
'--
'Private Sub Cbo_Alokasi_Change()
'If Cbo_Alokasi.ListIndex  -1 Then
'ThisWorkbook.Sheets(Cbo_Alokasi.Value).Activate
'End If
'End Sub

Private Sub CommandButton2_Click()
'--menyimpan data--
'--modifidifiedBy Markonah 16Mei2012
'---
Dim InPutRng As Range, Tabel7an As Range, IdxBaris7an As Long
If Not Sheets(dataentri).Cbo_Alokasi.ListIndex = -1 Then
Set InPutRng = Sheets(dataentri).Range(A15:L15)
Set Tabel7an = Sheets(Cbo_Alokasi.Value).Range(A5:L5).CurrentRegion
IdxBaris7an = Tabel7an.Rows.Count + 1
InPutRng.Copy
Tabel7an(IdxBaris7an, 1).PasteSpecial xlPasteValuesAndNumberFormats

Application.CutCopyMode = False
Sheets(Cbo_Alokasi.Value).Activate
MsgBox Data telah disimpan. Terima kasih, 64
Else
MsgBox Pilih Alokasi !!
End If
End Sub

--

2012/5/16 achmad adi dido...@ymail.com

 Dear Master Excel,
 Sebelumnya saya ucapkan terima kasih kepada Mr kid
 yang telah membantu masalah Excel sebelumnya,,

 Post kali ini lanjutan dari post saya sebelumnya,,,
 kali ini membahas
 Combo box untuk menentukan tempat simpan di sheet tertuju,,,
 - Pada saya memilih data di COMBO BOX = A maka data tersimpan pada Sheet A
 - Pada saya memilih data di COMBO BOX = B maka data tersimpan pada Sheet B dst
 ( COmbo Box Berisi Nama Sheet = A,B,C )
 - Dan jika saya memilih shet sama berulang-ulang, maka data akan disimpan 
 pada baris setelah baris terakhir ( tidak menimpa ).

 mohon pencerahanya,,,
 sya lampirkan file,,

Bls: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet tertentu

[achmad adi]

takutnay yang njawab bukan Mr.kid,,hee,,biar mempermudah pemahaman Mr Kid



 Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Rabu, 16 Mei 2012 16:33
Judul: Re: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet 
tertentu
 

  
Kenapa datanya dipisah menjadi sheet A,B,C ?

Kid.


2012/5/16 achmad adi dido...@ymail.com

 
  
Dear 
Master Excel,
 
Sebelumnya saya ucapkan terima kasih kepada Mr kid
yang telah membantu masalah Excel sebelumnya,,
 
Post kali ini lanjutan dari post saya sebelumnya,,,
 
kali ini membahas
Combo box untuk menentukan tempat simpan di sheet tertuju,,,
- Pada saya memilih data di COMBO BOX = A maka data tersimpan pada Sheet A  
- Pada saya memilih data di COMBO BOX = B maka data tersimpan pada Sheet B dst
 ( COmbo Box Berisi Nama Sheet = A,B,C )
 
- Dan jika saya memilih shet sama berulang-ulang, maka data akan disimpan pada 
baris setelah baris terakhir ( tidak menimpa ).
 
mohon pencerahanya,,,
sya lampirkan file,,

 

Bls: [belajar-excel] COMBO BOX untuk menentukan letak Simpan di sheet tertentu

[achmad adi]

contohnya seperti gimana Mr Kid,,,untuk Pivot table,,,
saya belum pernah mengetahui n menggunakannya



Dari: Kid Mr. mr.nm...@gmail.com
Dikirim: Rabu, 16 Mei 2012 17:01
 
Ketika data semakin banyak, langkah demikian akan mempersulit proses 
selanjutnya.
Cobalah memulainya untuk menyusun secara sederhana.

Buat sebuah sheet data yang isinya seperti kolom-kolom di sheet A,B,C itu, 
tetapi ditambah sebuah kolom yang menjelaskan lokasinya (misal data cabang atau 
apalah).

cabang, tgl, mris,no,dsb

Lebih bagus lagi jika 010 sampai 090 tersebut berupa 1 kolom tersendiri (misal 
channel) kemudian nilai di satu kolom sendiri
cabang, tgl, mris,no,channel,nilai

Kemudian susunlah sebuah sheet template output untuk menampilkan data per cabang
Kemudian susunlah sebuah sheet template output untuk menampilkan data summary

Demikianlah cara sederhana menyusun data di Excel.
Kesederhanaannya tidak tampak mudah di awal pembentukan, tetapi akan tampak 
manfaatnya ketika datanya mulai banyak, sampai tahunan atau sampai cabang yang 
banyak sekali.

Pelajari juga tentang fitur pivot table untuk menyusun summary sederhana 
seperti di sheet summary Anda. Pivot table akan butuh tabel data yang sederhana 
seperti tabel dengan kolom :
cabang, tgl, mris,no,channel,nilai

Wassalam,
Kid.


2012/5/16 achmad adi dido...@ymail.com
takutnay yang njawab bukan Mr.kid,,hee,,biar mempermudah pemahaman Mr Kid

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

Trimakasih banyak ats bantuannya Mr. Kid.
ini ada satu lagi,,,hee,,
untuk menonaktifkan Teks Box ( txtTGL ) 
Teks Box ( txtMRIS )
setelah Penginputan data Pertama...
teks box tersebut langsung non aktif untuk penginputan data selanjutnya...
tujuan ini supaya mendapatkan TANGGAL dan MRIS satu data aja,,

If Trim(txtJUMLAH.Value) = "" Then txtJUMLAH.SetFocus MsgBox " masukanJumlah mriss !!"  Exit Sub End If

Jadi untuk penginputan kedua dan selanjutnyalangsung berada di Teks Box Jumlah




Dari: Kid Mr. mr.nm...@gmail.comKepada: belajar-excel@yahoogroups.com Dikirim: Selasa, 15 Mei 2012 1:05Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

 

Jadi kasus Option Control Object sudah kelar.Untuk tentang ComboBox, mungkin buat thread baru dengan penjelasan yang detil disertai contoh hasil dan contoh filenya.Jangan lupa batas file dimilis diusahakan maksimal 250KB.Wassalam,Kid.
2012/5/15 achmad adi dido...@ymail.com



oalah 
a sayamake nya koma ( , ) ,50
harusnya titik ( . ) .50

heee,,,ok trimakasih banyak Mr Kid,,,atas bantuannya
masih da lagi nh pertanyaan,,he,,,bolehkan,,,
untuk penyimapan TOTAL SUM,,,ke work sheet,,,menurut dtata di COMBO BOX,,





Dari: Kid Mr. mr.nm...@gmail.comKepada: belajar-excel@yahoogroups.com Dikirim: Selasa, 15 Mei 2012 0:06
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN





Terus terang saya ndak mudeng maksud 2 angka dibelakang koma itu ndak ada.Berikut contoh hasilnya bukan ?Semua ada 2 angka dibelakang koma.Cell terkanan adalah hasil penjumlahan seluruh cell di kirinya.Penjumlahan yang Anda lakukan seperti apa ?Jika dengan VBA, coba sertakan baris yang menjumlahkan tersebut.Wassalam,Kid.
2012/5/14 achmad adi dido...@ymail.com

 



terimakasih baynak Mr Kid,,,dah membantu masalah ini,,,tetapi untuk desimal,,,,xx ,xx ditambahkanhasilnya tetep aja O,tidak bisa dua angka dibelakang koma( pecahan )

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

kok langsung non aktif,,,
maksudnya,,,
pertama input tanggal,,mris,n jumlah aktif
kedua input dan seterusnya tanggal,,mris non aktif,,hanya jumlahnya aja yang 
aktif...
ini berlangsung terus sebelum KELUAR dari FORM

apabila sudah keluar FORM dan memanggil kembali,,,
mulai dari pertama lagi,
begitu Mr.Kid







 Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Selasa, 15 Mei 2012 15:03
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
 

  
Buat event UserForm Initialize
Kemudian isi dengan :
if lenb( sheets(dataentri).range(b6).value )  0 then
 txttgl.enabled=false
 txtmris.enabled=false
endif


Wassalam,
Kid.


2012/5/15 achmad adi dido...@ymail.com

Trimakasih banyak ats bantuannya Mr. Kid.
ini ada satu lagi,,,hee,,
untuk menonaktifkan Teks Box ( txtTGL )  
Teks Box ( txtMRIS )
setelah Penginputan data Pertama...
teks box tersebut langsung non aktif untuk penginputan data selanjutnya...
tujuan ini supaya mendapatkan TANGGAL dan MRIS satu data aja,,
 
If Trim(txtJUMLAH.Value) =  Then
    txtJUMLAH.SetFocus
    MsgBox  masukan Jumlah mriss !!  
    Exit Sub
    End If
 
Jadi untuk penginputan kedua dan selanjutnya langsung berada di Teks Box Jumlah


Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Selasa, 15 Mei 2012 1:05

Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN


  
Jadi kasus Option Control Object sudah kelar.
Untuk tentang ComboBox, mungkin buat thread baru dengan penjelasan yang detil 
disertai contoh hasil dan contoh filenya.
Jangan lupa batas file dimilis diusahakan maksimal 250KB.

Wassalam,
Kid.




 

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

terimkasih Mr.Kid,,
mantapatas bantuannya,





 Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Selasa, 15 Mei 2012 17:29
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
 

  
Kalau gitu, ide yang tadi dihapus saja.

Sekarang yang bagian ini aja : (di event klik milik  tambahkan)
khusus baris ini saja yang diganti :
    'hapus data
    'txtTGL.Value = 
    'txtMRIS.Value = 

jadi 
    'hapus data
    txtTGL.enabled= false
    txtMRIS.enabled = false

Wassalam,
Kid.


2012/5/15 achmad adi dido...@ymail.com

 
  
kok langsung non aktif,,,
maksudnya,,,
pertama input tanggal,,mris,n jumlah aktif
kedua input dan seterusnya tanggal,,mris non aktif,,hanya jumlahnya aja yang 
aktif...
ini berlangsung terus sebelum KELUAR dari FORM

apabila sudah keluar FORM dan memanggil kembali,,,
mulai dari pertama lagi,
begitu Mr.Kid











 
Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Selasa, 15 Mei 2012 15:03

Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
 


  
Buat event UserForm Initialize
Kemudian isi dengan :
if lenb( sheets(dataentri).range(b6).value )  0 then
 txttgl.enabled=false
 txtmris.enabled=false
endif


Wassalam,
Kid.


2012/5/15 achmad adi dido...@ymail.com

Trimakasih banyak ats bantuannya Mr. Kid.
ini ada satu lagi,,,hee,,
untuk menonaktifkan Teks Box ( txtTGL )  
Teks Box ( txtMRIS )
setelah Penginputan data Pertama...
teks box tersebut langsung non aktif untuk penginputan data selanjutnya...
tujuan ini supaya mendapatkan TANGGAL dan MRIS satu data aja,,
 
If Trim(txtJUMLAH.Value) =  Then
    txtJUMLAH.SetFocus
    MsgBox  masukan Jumlah mriss !!  
    Exit Sub
    End If
 
Jadi untuk penginputan kedua dan selanjutnya langsung berada di Teks Box 
Jumlah


Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Selasa, 15 Mei 2012 1:05

Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN


  
Jadi kasus Option Control Object sudah kelar.
Untuk tentang ComboBox, mungkin buat thread baru dengan penjelasan yang detil 
disertai contoh hasil dan contoh filenya.
Jangan lupa batas file dimilis diusahakan maksimal 250KB.

Wassalam,
Kid.







 

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

tetep belum mudeng ,,heeeSeperti bagaimana contohnya pak,,,?
untuk SUM TOTAL-nya yang dengan angka 2 digit dibelakang koma,,,secara 
otomatis,,
SUM TOTAL ini nantinya yang dipakai untuk dipindahkan Ke WorkSheet Lain,,,( 
Pertanyaan Berikutnya :) )
 
 



Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 14:42
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN


  
Pak Achmad,

Sebaiknya Bapak mulai mempelajari tentang datatype. Coba tulis di VBE kata 
datatype, blok dan tekan F1.

Ini adalah tipe data yang Bapak gunakan :
   Dim intTotal As Integer
Tipedata Integer pasti hanya bisa menampung data numerik bilangan bulat pada 
range tertentu. Yang lebih luas adalah Long. 

Ketika data memiliki karakteristik salah satunya berupa jenis bilangannya bukan 
bilangan bulat, maka perlu penetapan tipe data lain.
Misal dengan Single atau Double. Jika tentang uang, tipe data Currency lebih 
pas meski tidak harus. Atau nilainya bisa memiliki digit yang banyak sekali 
(tapi kan cell Excel hanya 15 digit presisi maksimum), bisa menggunakan Decimal.

Jangan lupa,. tipe data.

Wassalam,
Kid.




2012/5/14 achmad adi dido...@ymail.com

  
Total otomatis dari Data Entri...saya lampirkan file nya,,,
nantinya boleh nanya lagikan Mr Kid,,,h,,,
 






( rumusnya saya kanibal sana sini,,h)

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

total Sum pada cells 15 tetep gak mau keluar.




Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 15:03
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN


  
Ganti Dim intTotal As Integer
Jadi Dim intTotal As Double 
Atau Dim intTotal As Currency

Kid.

2012/5/14 achmad adi dido...@ymail.com

  
tetep belum mudeng ,,heee
( rumusnya saya kanibal sana sini,,h)
 
 Seperti bagaimana contohnya pak,,,?
untuk SUM TOTAL-nya yang dengan angka 2 digit dibelakang koma,,,secara 
otomatis,,
SUM TOTAL ini nantinya yang dipakai untuk dipindahkan Ke WorkSheet Lain,,,( 
Pertanyaan Berikutnya :) )
 
 


Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 14:42 

Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN


  
Pak Achmad,

Sebaiknya Bapak mulai mempelajari tentang datatype. Coba tulis di VBE kata 
datatype, blok dan tekan F1.

Ini adalah tipe data yang Bapak gunakan :
   Dim intTotal As Integer
Tipedata Integer pasti hanya bisa menampung data numerik bilangan bulat pada 
range tertentu. Yang lebih luas adalah Long. 

Ketika data memiliki karakteristik salah satunya berupa jenis bilangannya 
bukan bilangan bulat, maka perlu penetapan tipe data lain.
Misal dengan Single atau Double. Jika tentang uang, tipe data Currency lebih 
pas meski tidak harus. Atau nilainya bisa memiliki digit yang banyak sekali 
(tapi kan cell Excel hanya 15 digit presisi maksimum), bisa menggunakan 
Decimal.

Jangan lupa,. tipe data.

Wassalam,
Kid.




2012/5/14 achmad adi dido...@ymail.com

  
Total otomatis dari Data Entri...saya lampirkan file nya,,,
nantinya boleh nanya lagikan Mr Kid,,,h,,,
 

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

dah q coba kalau di SUM langsung gak mau nongopl juga,,,
kalo make formula dengan VBA :

sheet1.range(L6:L13).formula==Sum(d6:k6)
sheet1.range(d15:L15).formula==Sum(d6:d13)

Jika akan di-values-kan, setelah ada pemasangan formula di atas :
sheet1.calculate
sheet1.range(L6:L13).value=sheet1.range(L6:L13).value
sheet1.range(d15:L15).value=sheet1.range(d15:L15).value

diletakkan dimana?



Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 15:31
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN


  
Kenapa gak pakai formula Sum di cell nya langsung ?
Jika pasang formula dengan VBA :

sheet1.range(L6:L13).formula==Sum(d6:k6)
sheet1.range(d15:L15).formula==Sum(d6:d13)

Jika akan di-values-kan, setelah ada pemasangan formula di atas :
sheet1.calculate
sheet1.range(L6:L13).value=sheet1.range(L6:L13).value
sheet1.range(d15:L15).value=sheet1.range(d15:L15).value

Kid.


2012/5/14 achmad adi dido...@ymail.com

  
total Sum pada cells 15 tetep gak mau keluar.



Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 15:03 

Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN



  
Ganti Dim intTotal As Integer
Jadi Dim intTotal As Double 
Atau Dim intTotal As Currency

Kid.

2012/5/14 achmad adi dido...@ymail.com

  
tetep belum mudeng ,,heee
( rumusnya saya kanibal sana sini,,h)
 
 Seperti bagaimana contohnya pak,,,?
untuk SUM TOTAL-nya yang dengan angka 2 digit dibelakang koma,,,secara 
otomatis,,
SUM TOTAL ini nantinya yang dipakai untuk dipindahkan Ke WorkSheet Lain,,,( 
Pertanyaan Berikutnya :) )
 
 


Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 14:42 

Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN


  
Pak Achmad,

Sebaiknya Bapak mulai mempelajari tentang datatype. Coba tulis di VBE kata 
datatype, blok dan tekan F1.

Ini adalah tipe data yang Bapak gunakan :
   Dim intTotal As Integer
Tipedata Integer pasti hanya bisa menampung data numerik bilangan bulat pada 
range tertentu. Yang lebih luas adalah Long. 

Ketika data memiliki karakteristik salah satunya berupa jenis bilangannya 
bukan bilangan bulat, maka perlu penetapan tipe data lain.
Misal dengan Single atau Double. Jika tentang uang, tipe data Currency lebih 
pas meski tidak harus. Atau nilainya bisa memiliki digit yang banyak sekali 
(tapi kan cell Excel hanya 15 digit presisi maksimum), bisa menggunakan 
Decimal.

Jangan lupa,. tipe data.

Wassalam,
Kid.




2012/5/14 achmad adi dido...@ymail.com

  
Total otomatis dari Data Entri...saya lampirkan file nya,,,
nantinya boleh nanya lagikan Mr Kid,,,h,,,
 

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

terima kaih sebelumnya Mr. kid,,,heee
untuk pertamakali edit data ,,,SUMTOTAL,,bekerja dengan baik,,,tetapi itu hanya 
Kolom pertama (010) aja yang ketotal,,,lainnya gak bisa
trus kalo hasil Total,  2 angka dibelakang koma Langsung Pembulatan,,,tidak ada 
komanya,,

untuk edit kedua kalinya,,,malah gak ketotal semua




 Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 16:08
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
 

  
Mengganti baris intotal yang pernah anda sebutkan, tetapi bukan bagian baris 
Dim inttotal as bla nya, tapi dibawah sana, mestinya ada inttotal yang anda 
gunakan untuk men-total. Hapus baris itu dan ganti dengan script tadi.

Kid.


2012/5/14 achmad adi dido...@ymail.com

 
  
dah q coba kalau di SUM langsung gak mau nongopl juga,,,
kalo make formula dengan VBA :


sheet1.range(L6:L13).formula==Sum(d6:k6)
sheet1.range(d15:L15).formula==Sum(d6:d13)

Jika akan di-values-kan, setelah ada pemasangan formula di atas :
sheet1.calculate
sheet1.range(L6:L13).value=sheet1.range(L6:L13).value
sheet1.range(d15:L15).value=sheet1.range(d15:L15).value

diletakkan dimana?

Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 15:31

Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN



  
Kenapa gak pakai formula Sum di cell nya langsung ?
Jika pasang formula dengan VBA :

sheet1.range(L6:L13).formula==Sum(d6:k6)
sheet1.range(d15:L15).formula==Sum(d6:d13)

Jika akan di-values-kan, setelah ada pemasangan formula di atas :
sheet1.calculate
sheet1.range(L6:L13).value=sheet1.range(L6:L13).value
sheet1.range(d15:L15).value=sheet1.range(d15:L15).value

Kid.


2012/5/14 achmad adi dido...@ymail.com

 
  
total Sum pada cells 15 tetep gak mau keluar.



Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 15:03 

Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN



  
Ganti Dim intTotal As Integer
Jadi Dim intTotal As Double 
Atau Dim intTotal As Currency

Kid.

2012/5/14 achmad adi dido...@ymail.com

 
  
tetep belum mudeng ,,heee
( rumusnya saya kanibal sana sini,,h)
 
 Seperti bagaimana contohnya pak,,,? 
untuk SUM TOTAL-nya yang dengan angka 2 digit dibelakang koma,,,secara 
otomatis,,
SUM TOTAL ini nantinya yang dipakai untuk dipindahkan Ke WorkSheet Lain,,,( 
Pertanyaan Berikutnya :) )
 
 


Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 14:42 

Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN


  
Pak Achmad,

Sebaiknya Bapak mulai mempelajari tentang datatype. Coba tulis di VBE kata 
datatype, blok dan tekan F1.

Ini adalah tipe data yang Bapak gunakan :
   Dim intTotal As Integer
Tipedata Integer pasti hanya bisa menampung data numerik bilangan bulat pada 
range tertentu. Yang lebih luas adalah Long. 

Ketika data memiliki karakteristik salah satunya berupa jenis bilangannya 
bukan bilangan bulat, maka perlu penetapan tipe data lain.
Misal dengan Single atau Double. Jika tentang uang, tipe data Currency lebih 
pas meski tidak harus. Atau nilainya bisa memiliki digit yang banyak sekali 
(tapi kan cell Excel hanya 15 digit presisi maksimum), bisa menggunakan 
Decimal.

Jangan lupa,. tipe data.

Wassalam,
Kid.




2012/5/14 achmad adi dido...@ymail.com

 
  
Total otomatis dari Data Entri...saya lampirkan file nya,,,
nantinya boleh nanya lagikan Mr Kid,,,h,,,
 












 

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

Option Explicit

Private Sub CmdTAMBAH_Click()

Dim iRow As Long
Dim intTotal As Double
Dim ws As Worksheet
Set ws = Worksheets(dataentri)

    Application.ScreenUpdating = False ' biar screen tetep diem selama proses 
ndak kayak TV kurang sinyal
    Application.DisplayAlerts = False ' biar excel ndak munculin pesen 
peringatan
    Application.Calculation = xlManual ' biar excel ndak ngitung mulu saat 
proses


'''find  first empty row in database
''iRow = ws.Cells(Rows.Count, 1) _
''  .End(xlUp).Offset(1, 0).Row
'revised code to avoid problems with Excel tables in newer versions
iRow = ws.Cells.Find(What:=*, SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'cek input data
If Trim(Me.txtMRIS.Value) =  Then
  Me.txtMRIS.SetFocus
  MsgBox  masukan no mriss !!
  Exit Sub
End If
Dim lOpt As Long, lCol As Long
    
    For lOpt = 1 To 9
    If Controls(OB  lOpt).Value Then
    lCol = 3 + lOpt
    Exit For
    End If
    Next lOpt

'posisi data baru (baris excel)
iRow = Evaluate(=Count(dataentri!b:b)) + 6

'copy  data
ws.Cells(iRow, 2).Value = Me.txtTGL.Value
ws.Cells(iRow, 3).Value = Me.txtMRIS.Value
ws.Cells(iRow, lCol).Value = Me.txtJUMLAH.Value


'hapus data
Me.txtTGL.Value = 
Me.txtMRIS.Value = 
Me.txtJUMLAH.Value = 

Me.txtMRIS.SetFocus



If IsEmpty(ws.Cells(6, 1)) Then
    ws.Cells(6, 1) = 1

    
  Sheet1.Range(L6:L14).Formula = =Sum(d6:k6)
Sheet1.Range(d15:L15).Formula = =Sum(d6:d13)


Sheet1.Calculate
Sheet1.Range(L6:L14).Value = Sheet1.Range(L6:L14).Value
Sheet1.Range(d15:L15).Value = Sheet1.Range(d15:L15).Value

End If
End Sub

Private Sub CommandButton2_Click()
 Unload Me
End Sub






 Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 17:01
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
 

  
Coba anda copas hasil pengubahan script Anda
Untuk format angka, blok cell di worksheet, klik kanan, 
pilih format cells - number - Number - ganti isian Decimal Places dengan 0 
- OK

Kid.


2012/5/14 achmad adi dido...@ymail.com

 
  
terima kaih sebelumnya Mr. kid,,,heee
untuk pertamakali edit data ,,,SUMTOTAL,,bekerja dengan baik,,,tetapi itu 
hanya Kolom pertama (010) aja yang ketotal,,,lainnya gak bisa
trus kalo hasil Total,  2 angka dibelakang koma Langsung Pembulatan,,,tidak 
ada komanya,,


untuk edit kedua kalinya,,,malah gak ketotal semua





 


 

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

tetep pak,,,hee,,tambah pusing,,hee




 Dari: achmad adi dido...@ymail.com
Kepada: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 17:09
Judul: Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
 

  
Option Explicit

Private Sub CmdTAMBAH_Click()

Dim iRow As Long
Dim intTotal As Double
Dim ws As Worksheet
Set ws = Worksheets(dataentri)

    Application.ScreenUpdating = False ' biar screen tetep diem selama proses 
ndak kayak TV kurang sinyal
    Application.DisplayAlerts = False ' biar excel ndak munculin pesen 
peringatan
    Application.Calculation = xlManual ' biar excel ndak ngitung mulu saat 
proses


'''find  first empty row in database
''iRow = ws.Cells(Rows.Count, 1) _
''  .End(xlUp).Offset(1, 0).Row
'revised code to avoid problems with Excel tables in newer versions
iRow = ws.Cells.Find(What:=*, SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row +
 1

'cek input data
If Trim(Me.txtMRIS.Value) =  Then
  Me.txtMRIS.SetFocus
  MsgBox  masukan no mriss !!
  Exit Sub
End If
Dim lOpt As Long, lCol As Long
    
    For lOpt = 1 To 9
    If Controls(OB  lOpt).Value Then
    lCol = 3 + lOpt
    Exit For
    End If
    Next lOpt

'posisi data baru (baris excel)
iRow = Evaluate(=Count(dataentri!b:b)) + 6

'copy  data
ws.Cells(iRow, 2).Value = Me.txtTGL.Value
ws.Cells(iRow, 3).Value = Me.txtMRIS.Value
ws.Cells(iRow, lCol).Value = Me.txtJUMLAH.Value


'hapus data
Me.txtTGL.Value = 
Me.txtMRIS.Value = 
Me.txtJUMLAH.Value
 = 

Me.txtMRIS.SetFocus



If IsEmpty(ws.Cells(6, 1)) Then
    ws.Cells(6, 1) = 1

    
  Sheet1.Range(L6:L14).Formula = =Sum(d6:k6)
Sheet1.Range(d15:L15).Formula = =Sum(d6:d13)


Sheet1.Calculate
Sheet1.Range(L6:L14).Value = Sheet1.Range(L6:L14).Value
Sheet1.Range(d15:L15).Value = Sheet1.Range(d15:L15).Value

End If
End Sub

Private Sub CommandButton2_Click()
 Unload Me
End Sub





 Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Senin, 14 Mei 2012 17:01
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
 

  
Coba anda copas hasil pengubahan script Anda
Untuk format angka, blok cell di worksheet, klik kanan, 
pilih format cells - number - Number - ganti isian Decimal Places dengan 0 
- OK

Kid.


2012/5/14 achmad adi dido...@ymail.com

 
  
terima kaih sebelumnya Mr. kid,,,heee
untuk pertamakali edit data ,,,SUMTOTAL,,bekerja dengan baik,,,tetapi itu 
hanya Kolom pertama (010) aja yang ketotal,,,lainnya gak bisa
trus kalo hasil Total,  2 angka dibelakang koma Langsung Pembulatan,,,tidak 
ada komanya,,


untuk edit kedua kalinya,,,malah gak ketotal semua





 




 

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

terimakasih baynak Mr Kid,,,dah membantu masalah ini,,,
tetapi untuk desimal,,,
,xx

,xx  ditambahkanhasilnya tetep aja O,tidak bisa dua angka dibelakang 
koma( pecahan )

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

oalah a sayamake nya koma ( , ) ,50harusnya titik ( . ) .50heee,,,ok trimakasih banyak Mr Kid,,,atas bantuannyamasih da lagi nh pertanyaan,,he,,,bolehkan,,,untuk penyimapan TOTAL SUM,,,ke work sheet,,,menurut dtata di COMBO BOX,,Dari: Kid Mr. mr.nm...@gmail.com Kepada:
 belajar-excel@yahoogroups.com  Dikirim: Selasa, 15 Mei 2012 0:06 Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN   



















  
  
  Terus terang saya ndak mudeng maksud 2 angka dibelakang koma itu ndak ada.Berikut contoh hasilnya bukan ?Semua ada 2 angka dibelakang koma.Cell terkanan adalah hasil penjumlahan seluruh cell di kirinya.

Penjumlahan yang Anda lakukan seperti apa ?Jika dengan VBA, coba sertakan baris yang menjumlahkan tersebut.Wassalam,Kid.2012/5/14 achmad adi dido...@ymail.com




















  



  
  
  terimakasih baynak Mr Kid,,,dah membantu masalah ini,,,
tetapi untuk desimal,,,
,xx 

,xx ditambahkanhasilnya tetep aja O,tidak bisa dua angka dibelakang koma( pecahan )





 






 

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

terima kasih Mr. Kid,,,sangat membantu saya,,,
kalo boleh tau ,,,SUM ( total ) kebawah dan kesamping kok gak bisa ya,,,padahal 
proyeksi saya,,,SUM ini lah yang mau dipakai, untuk Penyimpanan du WorkSheet 
lain,,,
Mohon pencerahaanya,,sebelumnya, saya ucapkan terimakasih,,,



Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Minggu, 13 Mei 2012 9:30
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN


  
Oh error ya...
Coba pastikan hanya beberapa baris yang dimulai dari 'copy data dan baris 
penulisan ke cell saja yang diganti.
Kayanya gak mungkin kalau errornya variable not defined.

Jadi,
Public Sub bla..
    dim bla
    
    


    'copy data
    ws
    ws...
 ws...

 .
 .
 .
end sub

yang warna merah ganti dengan :
'cari option button yang dipilih
    Dim lOpt As Long, lCol As Long
    
    For lOpt = 1 To 9
    If Controls(OB  lOpt).Value Then
    lCol = 3 + lOpt
    Exit For
    End If
    Next lOpt

'posisi data baru (baris excel)
iRow = Evaluate(=Count(dataentri!b:b)) + 6

'copy  data
ws.Cells(iRow, 2).Value = Me.txtTGL.Value
ws.Cells(iRow, 3).Value = Me.txtMRIS.Value
ws.Cells(iRow, lCol).Value = Me.txtJUMLAH.Value

Kemudian, fungsi Evaluate digunakan untuk mengkalkulasi suatu ekspresi formula. 
Jadi
Evaluate(=Count(dataentri!b:b)) adalah proses mengkalkulasi formula 
=Count(dataentri!b:b)
Sedangkan kegunaan dari iRow = Evaluate(=Count(dataentri!b:b)) + 6
adalah mendapatkan 'posisi data baru (baris excel)
dengan Syarat dan ketentuan berlaku

Wassalam,
Kid.


2012/5/13 achmad adi dido...@ymail.com

  
sih sebelumnya Mr. Kid atas koreksi dan bantuannya
setelah dijalankan error..


Compile error:
Variable not defined


iRow = Evaluate(=Count(dataentri!b:b)) + 6


maksudnya bagaimana?









Dari: Kid Mr. mr.nm...@gmail.com
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Sabtu, 12 Mei 2012 15:52
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN



  
Asumsi : (sesuaikan script jika ada yang tidak sama dengan asumsi)
1. Nama option button di userform selalu diawali 'OB' diakhir angka berurutan 
sesuai posisi kolom di worksheet
2. data tanggal selalu bertipe datetime
3. nama sheet 'dataentri'
4. tabel hasil mulai baris 6
5. kolom penulisan data mulai kolom B (kolom ke-2)

Ganti script dalam prosedur event click milik tombol Tambahkan (cmdTambah) 
bagian copy data menjadi :
'cari option button yang dipilih
    Dim lOpt As Long, lCol As Long
    
    For lOpt = 1 To 9
    If Controls(OB  lOpt).Value Then
    lCol = 3 + lOpt
    Exit For
    End If
    Next lOpt

'posisi data baru (baris excel)
iRow = Evaluate(=Count(dataentri!b:b)) + 6

'copy  data
ws.Cells(iRow, 2).Value = Me.txtTGL.Value
ws.Cells(iRow, 3).Value = Me.txtMRIS.Value
ws.Cells(iRow, lCol).Value = Me.txtJUMLAH.Value

Wassalam,
Kid.

Bls: [belajar-excel] Tanya : input kertas kerja sampai jurnal secara otomatis

[achmad adi]

Sebelumnya terimakasih atas masukanya Kid Mr.,,,
tapi malah bikin saya pusing,,heee,,,memasukan datanya...
permasalahannya itu saya buat sederhan utuk datanya,,dan sesungguhnya ada 
banyak kode2 barang yang harus diinput,,
mohon pencerahan lagi untuk dibuatkan yang lebih simple,,,

kalo bisa si yang ada USER FORMnya,,,h,,,thanks,,


Dari: Kid Mr. mr.nm...@gmail.com
Dikirim: Rabu, 14 Maret 2012 16:23
 
Pak Adi,
Bagaimana jika seperti file terlampir saja ?
Sedikit diubah alurnya.

Dari sheet input - masuk ke sheet myData yang berkaidah database - bisa 
disusun berbagai macam output.

Salam,
Kid.



On Sat, Mar 10, 2012 at 10:32, achmad adi dido...@ymail.com wrote:
Kepada
Master Exel semua,
salam hormat,,,
saya Adi...
Mohon informasi dan penjelasan akan
pertanyaan saya dengan situasi dan kondisi sebagai berikut:
saya mempunayai laporan Bulanan dimana yang saya inginkan sbb:
1. apabila Kita mengisi form di Kertas kerja,,secara otomatis
   langsung tersimpan di masing2 sheet sesuai dengan bagianya
   dan masing2 sheet terdapaty button print untuk langsung masuk
ke print area
 
unutk lebih jelasnya saya lampirkasn file...
atas bimbingan dan penjelasanya saya ucapkan terima kasih.

Bls: [belajar-excel] Tanya : input kertas kerja sampai jurnal secara otomatis

[achmad adi]

ini ada contoh yang pernah di MILIS
DATABASE_DAERAH (modified form - iHaps V2)

saya lampirkan file nay...
terimakasih sebelumnya...

==
Mods Note:
Lampirannya ketinggalan ya ?

Note: Untuk menunjuk ke suatu Posting dan Lampiran
yg pernah ada di MILIS INI, cukup dengan memberikan
link-nya saja
http://tech.groups.yahoo.com/group/belajar-excel/message/15589

lampiran bisa diunduh di sini
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-mohon-bantuan-para-master-gt-gt-KAMI-UBAH-JUDULNYA-MENJADI-ENTRI-DATA-td5443944.html#a5453086
===


Dari: achmad adi dido...@ymail.com
Dikirim: Senin, 19 Maret 2012 13:56
 
Sebelumnya terimakasih atas masukanya Kid Mr.,,,
tapi malah bikin saya pusing,,heee,,,memasukan datanya...
permasalahannya itu saya buat sederhan utuk datanya,,dan sesungguhnya ada 
banyak kode2 barang yang harus diinput,,
mohon pencerahan lagi untuk dibuatkan yang lebih simple,,,

kalo bisa si yang ada USER FORMnya,,,h,,,thanks,,


Dari: Kid Mr. mr.nm...@gmail.com
Dikirim: Rabu, 14 Maret 2012 16:23
 
Pak Adi,
Bagaimana jika seperti file terlampir saja ?
Sedikit diubah alurnya.

Dari sheet input - masuk ke sheet myData yang berkaidah database - bisa 
disusun berbagai macam output.

Salam,
Kid.