Kamis, 07 Januari 2016

[belajar-excel] Digest Number 3713

15 Messages

Digest #3713
2a
Fwd: FORMAT TGL by "Darto Chandra"
2b
Re: Fwd: FORMAT TGL [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
3a
3b
Re: tanya rumus untuk data bedakolom [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
4a
Re: Sumifs secara horizontal & Vertikal by "Mr. Kid" nmkid.family@ymail.com
5a
Re: Tombol hapus pd userform by "Mr. Kid" nmkid.family@ymail.com
5b
Re: Tombol hapus pd userform by "Toby kenzo" tobykenzo
5d
Re: Tombol hapus pd userform by "Mr. Kid" nmkid.family@ymail.com
6a
Re: VBA Expand Form [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com
7a
Re: macro print data terfilter by "Mr. Kid" nmkid.family@ymail.com
8a
Re: Footer dengan rumus by "Mr. Kid" nmkid.family@ymail.com

Messages

Thu Jan 7, 2016 2:30 am (PST) . Posted by:

"odong nando"

yoo matzen
pertama-tama, blok dulu yang akan dibericonditional formating dalam hal ini range I4:X59, di new rule pada conditional formating bisa di beri formula :
=$C4<SUM($I4:I4)

OK dan enter .... silahkan di coba br,

odong nando


Pada Kamis, 7 Januari 2016 16:23, "'Subroto, Matzen' matzen.subroto@akzonobel.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Assalamu alaikum Wr. Wb.   Dear Master   Mohon pencerahannya dengan kasus yang saya hadapi, formula dengan conditional formating   Terima kasih atas perhatian dan kerjasamanya, dan saya mohon maaf apabila ada kata-kata yang kurang berkenan     Terima Kasih Wassalam   Matzen   #yiv0165211403 #yiv0165211403 -- #yiv0165211403ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0165211403 #yiv0165211403ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0165211403 #yiv0165211403ygrp-mkp #yiv0165211403hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0165211403 #yiv0165211403ygrp-mkp #yiv0165211403ads {margin-bottom:10px;}#yiv0165211403 #yiv0165211403ygrp-mkp .yiv0165211403ad {padding:0 0;}#yiv0165211403 #yiv0165211403ygrp-mkp .yiv0165211403ad p {margin:0;}#yiv0165211403 #yiv0165211403ygrp-mkp .yiv0165211403ad a {color:#0000ff;text-decoration:none;}#yiv0165211403 #yiv0165211403ygrp-sponsor #yiv0165211403ygrp-lc {font-family:Arial;}#yiv0165211403 #yiv0165211403ygrp-sponsor #yiv0165211403ygrp-lc #yiv0165211403hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0165211403 #yiv0165211403ygrp-sponsor #yiv0165211403ygrp-lc .yiv0165211403ad {margin-bottom:10px;padding:0 0;}#yiv0165211403 #yiv0165211403actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0165211403 #yiv0165211403activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0165211403 #yiv0165211403activity span {font-weight:700;}#yiv0165211403 #yiv0165211403activity span:first-child {text-transform:uppercase;}#yiv0165211403 #yiv0165211403activity span a {color:#5085b6;text-decoration:none;}#yiv0165211403 #yiv0165211403activity span span {color:#ff7900;}#yiv0165211403 #yiv0165211403activity span .yiv0165211403underline {text-decoration:underline;}#yiv0165211403 .yiv0165211403attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0165211403 .yiv0165211403attach div a {text-decoration:none;}#yiv0165211403 .yiv0165211403attach img {border:none;padding-right:5px;}#yiv0165211403 .yiv0165211403attach label {display:block;margin-bottom:5px;}#yiv0165211403 .yiv0165211403attach label a {text-decoration:none;}#yiv0165211403 blockquote {margin:0 0 0 4px;}#yiv0165211403 .yiv0165211403bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0165211403 .yiv0165211403bold a {text-decoration:none;}#yiv0165211403 dd.yiv0165211403last p a {font-family:Verdana;font-weight:700;}#yiv0165211403 dd.yiv0165211403last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0165211403 dd.yiv0165211403last p span.yiv0165211403yshortcuts {margin-right:0;}#yiv0165211403 div.yiv0165211403attach-table div div a {text-decoration:none;}#yiv0165211403 div.yiv0165211403attach-table {width:400px;}#yiv0165211403 div.yiv0165211403file-title a, #yiv0165211403 div.yiv0165211403file-title a:active, #yiv0165211403 div.yiv0165211403file-title a:hover, #yiv0165211403 div.yiv0165211403file-title a:visited {text-decoration:none;}#yiv0165211403 div.yiv0165211403photo-title a, #yiv0165211403 div.yiv0165211403photo-title a:active, #yiv0165211403 div.yiv0165211403photo-title a:hover, #yiv0165211403 div.yiv0165211403photo-title a:visited {text-decoration:none;}#yiv0165211403 div#yiv0165211403ygrp-mlmsg #yiv0165211403ygrp-msg p a span.yiv0165211403yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0165211403 .yiv0165211403green {color:#628c2a;}#yiv0165211403 .yiv0165211403MsoNormal {margin:0 0 0 0;}#yiv0165211403 o {font-size:0;}#yiv0165211403 #yiv0165211403photos div {float:left;width:72px;}#yiv0165211403 #yiv0165211403photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0165211403 #yiv0165211403photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0165211403 #yiv0165211403reco-category {font-size:77%;}#yiv0165211403 #yiv0165211403reco-desc {font-size:77%;}#yiv0165211403 .yiv0165211403replbq {margin:4px;}#yiv0165211403 #yiv0165211403ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0165211403 #yiv0165211403ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0165211403 #yiv0165211403ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0165211403 #yiv0165211403ygrp-mlmsg select, #yiv0165211403 input, #yiv0165211403 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0165211403 #yiv0165211403ygrp-mlmsg pre, #yiv0165211403 code {font:115% monospace;}#yiv0165211403 #yiv0165211403ygrp-mlmsg * {line-height:1.22em;}#yiv0165211403 #yiv0165211403ygrp-mlmsg #yiv0165211403logo {padding-bottom:10px;}#yiv0165211403 #yiv0165211403ygrp-msg p a {font-family:Verdana;}#yiv0165211403 #yiv0165211403ygrp-msg p#yiv0165211403attach-count span {color:#1E66AE;font-weight:700;}#yiv0165211403 #yiv0165211403ygrp-reco #yiv0165211403reco-head {color:#ff7900;font-weight:700;}#yiv0165211403 #yiv0165211403ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0165211403 #yiv0165211403ygrp-sponsor #yiv0165211403ov li a {font-size:130%;text-decoration:none;}#yiv0165211403 #yiv0165211403ygrp-sponsor #yiv0165211403ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0165211403 #yiv0165211403ygrp-sponsor #yiv0165211403ov ul {margin:0;padding:0 0 0 8px;}#yiv0165211403 #yiv0165211403ygrp-text {font-family:Georgia;}#yiv0165211403 #yiv0165211403ygrp-text p {margin:0 0 1em 0;}#yiv0165211403 #yiv0165211403ygrp-text tt {font-size:120%;}#yiv0165211403 #yiv0165211403ygrp-vital ul li:last-child {border-right:none !important;}#yiv0165211403

Thu Jan 7, 2016 5:22 am (PST) . Posted by:

"Darto Chandra"

> dear, sifu sifu excel
> Mohon bantuan sifu sifu terkait masalah terlampir. Uraian singkat kasus,
pengennya jika cell berwarna merah di isi nama bulan maka cel kuning akan
menampilkan seluruh tanggal bulan tersebut secara urut, dan tgl yang jatuh
pada hari libur, sabtu dan minggu otomatis berwarna merah. Mohon
pencerahannya.
>
> --
> Darto Chandra
>

Thu Jan 7, 2016 6:17 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Semoga file terlampir bisa mudah dikembangkan.

2016-01-07 20:22 GMT+07:00 Darto Chandra d_c@gmx.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
>
> > dear, sifu sifu excel
> > Mohon bantuan sifu sifu terkait masalah terlampir. Uraian singkat kasus,
> pengennya jika cell berwarna merah di isi nama bulan maka cel kuning akan
> menampilkan seluruh tanggal bulan tersebut secara urut, dan tgl yang jatuh
> pada hari libur, sabtu dan minggu otomatis berwarna merah. Mohon
> pencerahannya.
> >
> > --
> > Darto Chandra
> >
>
>
>

Thu Jan 7, 2016 5:33 am (PST) . Posted by:

"leo" adityos2003

gan mau nanya bisa ngga ya memvlooup dengan data yg berbeda tapi hampir mirip ? file excel terlampirkan

contoh :
|
|
|
|
|
|
|

| produk asal | id asal | produk tujuan | id tujuan (inputan dari id asal)  |
| ALLOPURINOL 300 MG TABLET @100 |                 5 | ALLOPURINOL 300 MG (100 TABLET) TABLET |   |
| ALLOPURINOL 300 MG TABLET @30 |                 6 | ALLOPURINOL 300 MG (30 TABLET) TABLET |   |
| ALLYLESTRENOL 5 MG TABLET |                 7 | ALLYLESTRENOL 5 MG (100 tab) TABLET |   |

kira2 rumus utk id tujuan apa ya soalnya datanya barisnya ada banyak (seperti vlookup tetapi data tidak sama), tq

|
|

best regards,

Leonardus Adityo T.P

http://pujanggamu.wordpress.com

"alon-alon asal kelakon"

Thu Jan 7, 2016 5:51 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Tidak bisa jika dengan data seperti itu.

Lebih baik dimulai untuk menyusun data dalam beberapa kolom dan menjadi
standar.
Misal :
kolom ke-1 nama produk, kolom ke-2 berat, kolom ke-3 volume, kolom ke-4
satuan atau jenis, kolom ke-5 kuantiti per pack, kolom ke-0 id
dsb...

Data tersebut disimpan di sebuah sheet khusus.
Inputan juga berupa daftar kolom-kolom tersebut (jumlah kolom yang sama).

tapi, jawaban umumnya selalu : tidak memungkinkan untuk membuat data dengan
banyak kolom seperti itu.. apalagi input data banyak kolom
jadi, gimana dong ?

2016-01-07 20:30 GMT+07:00 leo adityos2003@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> gan mau nanya bisa ngga ya memvlooup dengan data yg berbeda tapi hampir
> mirip ? file excel terlampirkan
>
> contoh :
>
>
>
>
>
>
>
> produk asal id asal produk tujuan id tujuan (inputan dari id asal) ALLOPURINOL
> 300 MG TABLET @100 5 ALLOPURINOL 300 MG (100 TABLET)
> TABLET ALLOPURINOL 300 MG TABLET @30 6 ALLOPURINOL 300
> MG (30 TABLET) TABLET ALLYLESTRENOL 5 MG TABLET 7 ALLYLESTRENOL
> 5 MG (100 tab) TABLET
> kira2 rumus utk id tujuan apa ya soalnya datanya barisnya ada banyak
> (seperti vlookup tetapi data tidak sama), tq
>
>
>
>
> best regards,
>
> Leonardus Adityo T.P
>
> http://pujanggamu.wordpress.com
>
> "alon-alon asal kelakon"
>
>
>

Thu Jan 7, 2016 6:17 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai juga...
Sudah sejak pertengahan tahun lalu kok...

Malah kemarin dah sempet mau ajak-ajak BeExceller nongkrong... Sayangnya
gak ketemu...

On Thu, Jan 7, 2016 at 1:17 PM, Iman Darusman idz.iman@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Hai Mr.Kid.
>
> gimana sudah kembali ke Indonesia?
>
> Btw ok banget pencerahannya, sepertinya harus saya harus mempelajari yang
> lebih luas tentang Fungsi Index.
>
> Terima kasih Mr.Kid
>
> salam
> Iman
>
>
> Pada Kamis, 7 Januari 2016 12:40, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Iman,
>
> Fungsi Index bisa dimanfaatkan. Contohnya seperti file terlampir.
>
> Wassalam,
> Kid
>
>
>
>
>
>
> 2016-01-07 10:32 GMT+07:00 idz.iman@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>
> Hallo rekans Master.
>
> Happy new year 2016 #telat :)
>
> saya mau nanya nih, saya ada kesulitan untuk Short data dengan menggunakan
> rumus SUMIFS secara horizontal dan Vertikal.
>
> mungkin lebih jelasnya bisa liat di file terlampir.
>
> Terima kaasih sebelumnya.
>
> salam
> Iman DZ
>
>
>
>
>
>

Thu Jan 7, 2016 6:46 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Ozan,

File terlampir memanfaatkan fitur Excel Table (xl2007 ke atas) atau disebut
List (xl2003)

Regards,
Kid

2016-01-07 5:31 GMT+07:00 Pauzan Ozan b3ki_cot@yahoo.co.id [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Dear para pkar excel Salam Sya mw mnanyakn bgaimna vba tombl hapus data
> pda userform yg sy buat pd lmpiran ni .yg sy ingnkn stlh mnghpus slh stu
> bris dta mka no urut pda dta trsbut ttp berurutan. Brkut sy lmpirkn file
> biar lbih jlas Ats bntuan pra mr excel sy ucpkn trmksih
>
>

Thu Jan 7, 2016 7:24 am (PST) . Posted by:

"Toby kenzo" tobykenzo

Hai Ozan,

Coba file ini..

TerimaKasih.

Sent from Yahoo Mail on Android

Thu Jan 7, 2016 7:48 am (PST) . Posted by:

"Pauzan Ozan" b3ki_cot


Trima ksih mr Kid jwbn sdh ssuai keingnan sya. Tp ad prtnyaan bru
lg.Bsakh mr Kid mmbrikn pnjlsan pda stiap baris code vba yg ad
pda userform, agr sy basa mmpljari n mmhmi fungsi2 ddlmnya..ma'af
merepotkn
Trmksih..
Pada tanggal 7 Jan 2016 06.46, "'Mr. Kid' mr.nmkid@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
 

Hai Ozan,

File terlampir memanfaatkan fitur Excel Table (xl2007 ke atas)
atau disebut List (xl2003)

Regards,
Kid


2016-01-07 5:31 GMT+07:00 Pauzan Ozan b3ki_cot@yahoo.co.id
<mailto:b3ki_cot@yahoo.co.id> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:
 
Dear para pkar excel Salam Sya mw mnanyakn bgaimna vba tombl
hapus data pda userform yg sy buat pd lmpiran ni .yg sy ingnkn
stlh mnghpus slh stu bris dta mka no urut pda dta trsbut ttp
berurutan. Brkut sy lmpirkn file biar lbih jlas Ats bntuan pra mr
excel sy ucpkn trmksih


Thu Jan 7, 2016 7:54 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Ozan,

Dim lOffset As Long 'deklarasi variabel offset dari header table data

'ambil nomor urut yang akan dihapus, karena itu adalah nilai offset
dari header table
'nomor urut 3 adalah dari header table lompat 3 baris kebawah.
lOffset = CLng(0 & Txtno.Text)

If lOffset > 0 Then 'kalau ada nomor urut yang akan dihapus
Beep 'bunyiin beep
'tanya ke user apa bener mau dihapus
If MsgBox("Yakin ?", vbYesNo + vbDefaultButton2 + vbQuestion,
"Hapus Record") = vbYes Then
'karena beneran mo dihapus,

'dari header, lompat sebanyak loffset, lalu mendarat di sebuah
cells dan hapus barisnya
Sheet1.Range("a1").Offset(lOffset).EntireRow.Delete

'bersihkan form
Txtno.Text = vbNullString 'text nya textbox bernama
txtno diisi dengan nullstring (string kosong)
Txtnama.Text = vbNullString
Txtnip.Text = vbNullString
Txtunitkerja.Text = vbNullString
MsgBox "Done.", vbInformation, "Hapus Record" 'kirim pesan
ke user kalau sudah selesai hapus baris
End If 'akhir blok cek beneran mo dihapus atau tidak
End If 'akhir blok cek ada nomor urut yang akan dihapus

Regards,
Kid

2016-01-08 13:38 GMT+07:00 Pauzan Ozan b3ki_cot@yahoo.co.id [belajar-excel]
<belajar-excel@yahoogroups.com>:

>
>
> Trima ksih mr Kid jwbn sdh ssuai keingnan sya. Tp ad prtnyaan bru lg.Bsakh
> mr Kid mmbrikn pnjlsan pda stiap baris code vba yg ad pda userform, agr sy
> basa mmpljari n mmhmi fungsi2 ddlmnya..ma'af merepotkn
> Trmksih..
> Pada tanggal 7 Jan 2016 06.46, "'Mr. Kid' mr.nmkid@gmail.com
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> Hai Ozan,
>
> File terlampir memanfaatkan fitur Excel Table (xl2007 ke atas) atau
> disebut List (xl2003)
>
> Regards,
> Kid
>
>
> 2016-01-07 5:31 GMT+07:00 Pauzan Ozan b3ki_cot@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>
>
> Dear para pkar excel Salam Sya mw mnanyakn bgaimna vba tombl hapus data
> pda userform yg sy buat pd lmpiran ni .yg sy ingnkn stlh mnghpus slh stu
> bris dta mka no urut pda dta trsbut ttp berurutan. Brkut sy lmpirkn file
> biar lbih jlas Ats bntuan pra mr excel sy ucpkn trmksih
>
>
>
>

Thu Jan 7, 2016 4:46 pm (PST) . Posted by:

"Pauzan Ozan" b3ki_cot


Trmksh mr Kid ats pnjlsnnya yg sngt detail sy bsa mmhmi mksd
prnth2 dr vba nya.
O ya thnk jg buat mas toby yg mmbrikn lpran cnth untk ksus ini.
Ad prtnyaan buat mas Toby Apkh bisa combobox pda form hapus yg
dtnpilkn jgn cma no urut tp lgkp dgn nama,nip serta unit kerjanya
spya user lbh gmpang mmilih dta yg akn dhpus

Thnk

Pada tanggal 7 Jan 2016 22.38, Pauzan Ozan <b3ki_cot@yahoo.co.id>
menulis:

Trima ksih mr Kid jwbn sdh ssuai keingnan sya. Tp ad prtnyaan bru
lg.Bsakh mr Kid mmbrikn pnjlsan pda stiap baris code vba yg ad
pda userform, agr sy basa mmpljari n mmhmi fungsi2 ddlmnya..ma'af
merepotkn
Trmksih..
Pada tanggal 7 Jan 2016 06.46, "'Mr. Kid' mr.nmkid@gmail.com
[belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
 

Hai Ozan,

File terlampir memanfaatkan fitur Excel Table (xl2007 ke atas)
atau disebut List (xl2003)

Regards,
Kid


2016-01-07 5:31 GMT+07:00 Pauzan Ozan b3ki_cot@yahoo.co.id
<mailto:b3ki_cot@yahoo.co.id> [belajar-excel]
<belajar-excel@yahoogroups.com
<mailto:belajar-excel@yahoogroups.com> >:
 
Dear para pkar excel Salam Sya mw mnanyakn bgaimna vba tombl
hapus data pda userform yg sy buat pd lmpiran ni .yg sy ingnkn
stlh mnghpus slh stu bris dta mka no urut pda dta trsbut ttp
berurutan. Brkut sy lmpirkn file biar lbih jlas Ats bntuan pra mr
excel sy ucpkn trmksih


Thu Jan 7, 2016 7:27 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

File terlampir

Regards,
Kid

2016-01-05 21:53 GMT+07:00 Septian Eko Saputro monnalissa0809@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Dear Para Master Excel
>
> saya mempunyai sebuah kasus dengan VBA.
> 1. Data yang saya sisipkan adalah data antara inputan awal dan hasil
> inputan nantinya.
> 2. Saya mempunyai sebuah data surat perjanjian yang mempunyai berbagai
> termin pembayaran.
> 3. Dalam 1 surat perjanjian tersebut misalnya mempunyai 4 termin
> pembayaran.
> 4. Proses inputan yang dilakukan melalui sebuah Form inputan, dan ketika
> memasukkan jumlah termin surat perjanjian tersebut akan *expand* dengan
> jumlah kolom inputan sesuai dengan jumlah termin tersebut dengan kolom
> tambahan nilai termin dan tanggal jatuh tempo termin.
> 5. aktivitas inputan tersebut akan menghasilkan data seperti di sheet data
> inputan termin
> pertanyaan:
> a. Apakah VBA bisa memunculkan hal tersebut dengan *automatic* ketika
> isikan jumlah termin pada form inputan surat perjanjian? dengan fungsi VBA
> apa terkait dengan prosedur tersebut?
> b. jika tidak, apakah ada alternatif lain terkait dengan prosedur yang
> bisa dilakukan guna mendapatkan hasil data seperti pada sheet inputan data
> termin tersebut.
>
> Demikian para master, mohon percerahan terkait dengan case tersebut.
>
> Salam,
> Monnalissa
>
>
>
>

Thu Jan 7, 2016 7:47 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Hai Liem,

Coba lakukan manual seperti ini :
0. turnoff autofilter
1. area datanya di select semua, klik B1 lalu tekan CTRL A
2. Lalu set print area (ribbon PageLayout -> group PageSetup -> PrintArea
-> pilih Set Print Area)
3. Coba lakukan filter di kolom yang Anda suka,
4. lalu di print preview
5. Kalau sudah cocok, tutup print preview
6. coba filter dengan yang lain dan print preview lagi
7. sudah cocok juga, tutup print preview dan mulailah record macro kemudian
jalankan langkah 0 sampai langkah 4
8. sesuaikan bunyi baris kode hasil record macro yang berupa proses
autofilternya.

Kira-kira bunyinya begini kalau dirapikan :
with activesheet
.autofiltermode=false
.pagesetup.printarea=.range("b1").currentregion.address
.range("b1").currentregion.autofilter 9,"Aan"
.printpreview
end with

Regards,
Kid

On Tue, Dec 15, 2015 at 9:49 AM, Lazuardi Biru lazuardi_biru84@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> liem
>
> sambil nunggu jawaban dari ahlinya
> coba setelah melakukan xldown langsung di prin priview
> jadi kurang lebih macronya seperti di bawah.
>
>
> Public Sub Aan()
> ActiveSheet.Range("$B$1:$J$1048576").AutoFilter Field:=9,
> Criteria1:="Aan"
> Range("C1:H1").Select
> Range(Selection, Selection.End(xlDown)).PrintPreview
> End Sub
>
>
>
> salam
>
> lb
>
>
>
>
>
> Pada Senin, 14 Desember 2015 15:25, "Liem Suliem liemsuliem@yahoo.co.id
> [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:
>
>
>
> dh
> dear master
> saya coba rekam macro untuk filter data selanjutnya data yang di filter di
> prin area
>
> Public Sub Aan()
> ActiveSheet.Range("$B$1:$J$1048576&quot;).AutoFilter Field:=9,
> Criteria1:="Aan"
> Range("C1:H1").Select
> Range(Selection, Selection.End(xlDown)).Select
> ActiveSheet.PageSetup.PrintArea = "$C$1:$H$112"
> ActiveWindow.SelectedSheets.PrintPreview
> End Sub
>
> masalahnya bunyi skrip yang wa merah rangenya ber ubah2.
> mohon petunjuknya untuk membetulkan
>
> untuk jelasnya data terlampir.
>
>
> salam
>
> liem
>
>
>
>

Thu Jan 7, 2016 7:55 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Tidak ada.

2015-12-29 16:50 GMT+07:00 Rian Sutarsa riansutarsa@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> selamat sore Be-exeler adakah cara membuat footer di kolom excel dengan
> rumus/cara tertentu tanpa format footer?
> terimakasih
>
>
>

Thu Jan 7, 2016 4:47 pm (PST) . Posted by:

"imam cahyo yuwono"

Mr KID
he ... he.. mungkin juga saya yang lemot
terima kasih Mr KID


On Thursday, January 7, 2016 3:02 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Coba diikuti baris prosesnya satu per satu. Nanti bisa tampak seberapa banyak proses yang dilakukan.
Biasanya, hal seperti ini disebabkan karena ada proses berulang yang harus dikerjakan.
Contoh :
di userform event init ada proses loop untuk mengisi sebuah combobox atau listbox dengan proses loop.
eh... baru loop item pertama, event change si combobox atau listbox bekerja, jadinya mengerjakan event change si combobox atau listbox dulu.
ndilalahnya, di event change si combo atau listbox ada proses mengisi sebuah textbox....
lah apesnya, si textbox yang diisi punya event change yang kerjanya ngecek apakah isinya begini begitu yang cukup panjang, disertai cek control lainnya dan sebagainya...
terus menerus seperti itu sampai seluruh event selesai dikerjakan, baru kembali lagi sedikit demi sedikit dan sampai di init lagi untuk mengerjakan item loop ke-2. Di item loop ke-2 juga terjadi begitu... Kalau ada 1000 item yang diloop, maka jadilah ada kesan not responding.

Jadi, silakan dilacak dengan sabar setiap baris kodenya... Kalau kodenya hasil copas, pelajari maksud SETIAP baris kode yang di-copas dan kemudian baru dilacak berdasar maksud baris kode tersebut.

Akan bijak jika ada permasalahan, berusaha mencari masalah pada diri sendiri lebih dulu sebelum menduga ada masalah dipihak lain, apalagi pihak lain tersebut adalah sebuah komputer yang pasif, yang bekerja megikuti perintah saja... Bukankah artinya kalau komputer bekerja lemot disebabkan karena pemberi perintahnya memberi tugas yang lemot ?
 
gitu kan ya...

Wassalam,
Kid

On Thu, Jan 7, 2016 at 2:32 PM, imam cahyo yuwono chyywn@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  terima kasih sebelumnya sudah saya coba namun tetap tidak ada perubahan mungkin comp nya ya.. di task manager performa CPU meningkat ketika user form di munculkan setelah tampilan ada turun lagi
terima kasih pa Iman nambah referensi saya ....


On Thursday, January 7, 2016 10:40 AM, "Iman Darusman idz.iman@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> wrote:


  Dear Pak Imam.
Pengalaman saya, itu karena autosave nya aktif. coba saja di non aktifkan dengan cara :
file => Option => save => unchecklist pada "save auto recover"
semoga info ini membantu

salamIman DZ

Pada Kamis, 7 Januari 2016 10:36, "imam cahyo yuwono chyywn@yahoo.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Assalamualaikaum Wr. Wb.Dear para master saya membuat user form dai excel namun ketika ditampilkan malah not responding munculnya aga lama kira-kira penyebabnya apa ya ?terima kasih
Wasalammualaikum Wr. Wb.


#yiv8059290249 #yiv8059290249 -- #yiv8059290249ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8059290249 #yiv8059290249ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8059290249 #yiv8059290249ygrp-mkp #yiv8059290249hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8059290249 #yiv8059290249ygrp-mkp #yiv8059290249ads {margin-bottom:10px;}#yiv8059290249 #yiv8059290249ygrp-mkp .yiv8059290249ad {padding:0 0;}#yiv8059290249 #yiv8059290249ygrp-mkp .yiv8059290249ad p {margin:0;}#yiv8059290249 #yiv8059290249ygrp-mkp .yiv8059290249ad a {color:#0000ff;text-decoration:none;}#yiv8059290249 #yiv8059290249ygrp-sponsor #yiv8059290249ygrp-lc {font-family:Arial;}#yiv8059290249 #yiv8059290249ygrp-sponsor #yiv8059290249ygrp-lc #yiv8059290249hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8059290249 #yiv8059290249ygrp-sponsor #yiv8059290249ygrp-lc .yiv8059290249ad {margin-bottom:10px;padding:0 0;}#yiv8059290249 #yiv8059290249actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8059290249 #yiv8059290249activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8059290249 #yiv8059290249activity span {font-weight:700;}#yiv8059290249 #yiv8059290249activity span:first-child {text-transform:uppercase;}#yiv8059290249 #yiv8059290249activity span a {color:#5085b6;text-decoration:none;}#yiv8059290249 #yiv8059290249activity span span {color:#ff7900;}#yiv8059290249 #yiv8059290249activity span .yiv8059290249underline {text-decoration:underline;}#yiv8059290249 .yiv8059290249attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8059290249 .yiv8059290249attach div a {text-decoration:none;}#yiv8059290249 .yiv8059290249attach img {border:none;padding-right:5px;}#yiv8059290249 .yiv8059290249attach label {display:block;margin-bottom:5px;}#yiv8059290249 .yiv8059290249attach label a {text-decoration:none;}#yiv8059290249 blockquote {margin:0 0 0 4px;}#yiv8059290249 .yiv8059290249bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8059290249 .yiv8059290249bold a {text-decoration:none;}#yiv8059290249 dd.yiv8059290249last p a {font-family:Verdana;font-weight:700;}#yiv8059290249 dd.yiv8059290249last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8059290249 dd.yiv8059290249last p span.yiv8059290249yshortcuts {margin-right:0;}#yiv8059290249 div.yiv8059290249attach-table div div a {text-decoration:none;}#yiv8059290249 div.yiv8059290249attach-table {width:400px;}#yiv8059290249 div.yiv8059290249file-title a, #yiv8059290249 div.yiv8059290249file-title a:active, #yiv8059290249 div.yiv8059290249file-title a:hover, #yiv8059290249 div.yiv8059290249file-title a:visited {text-decoration:none;}#yiv8059290249 div.yiv8059290249photo-title a, #yiv8059290249 div.yiv8059290249photo-title a:active, #yiv8059290249 div.yiv8059290249photo-title a:hover, #yiv8059290249 div.yiv8059290249photo-title a:visited {text-decoration:none;}#yiv8059290249 div#yiv8059290249ygrp-mlmsg #yiv8059290249ygrp-msg p a span.yiv8059290249yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8059290249 .yiv8059290249green {color:#628c2a;}#yiv8059290249 .yiv8059290249MsoNormal {margin:0 0 0 0;}#yiv8059290249 o {font-size:0;}#yiv8059290249 #yiv8059290249photos div {float:left;width:72px;}#yiv8059290249 #yiv8059290249photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv8059290249 #yiv8059290249photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8059290249 #yiv8059290249reco-category {font-size:77%;}#yiv8059290249 #yiv8059290249reco-desc {font-size:77%;}#yiv8059290249 .yiv8059290249replbq {margin:4px;}#yiv8059290249 #yiv8059290249ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8059290249 #yiv8059290249ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8059290249 #yiv8059290249ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8059290249 #yiv8059290249ygrp-mlmsg select, #yiv8059290249 input, #yiv8059290249 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8059290249 #yiv8059290249ygrp-mlmsg pre, #yiv8059290249 code {font:115% monospace;}#yiv8059290249 #yiv8059290249ygrp-mlmsg * {line-height:1.22em;}#yiv8059290249 #yiv8059290249ygrp-mlmsg #yiv8059290249logo {padding-bottom:10px;}#yiv8059290249 #yiv8059290249ygrp-msg p a {font-family:Verdana;}#yiv8059290249 #yiv8059290249ygrp-msg p#yiv8059290249attach-count span {color:#1E66AE;font-weight:700;}#yiv8059290249 #yiv8059290249ygrp-reco #yiv8059290249reco-head {color:#ff7900;font-weight:700;}#yiv8059290249 #yiv8059290249ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8059290249 #yiv8059290249ygrp-sponsor #yiv8059290249ov li a {font-size:130%;text-decoration:none;}#yiv8059290249 #yiv8059290249ygrp-sponsor #yiv8059290249ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8059290249 #yiv8059290249ygrp-sponsor #yiv8059290249ov ul {margin:0;padding:0 0 0 8px;}#yiv8059290249 #yiv8059290249ygrp-text {font-family:Georgia;}#yiv8059290249 #yiv8059290249ygrp-text p {margin:0 0 1em 0;}#yiv8059290249 #yiv8059290249ygrp-text tt {font-size:120%;}#yiv8059290249 #yiv8059290249ygrp-vital ul li:last-child {border-right:none !important;}#yiv8059290249

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar