Minggu, 03 Maret 2013

[belajar-excel] Digest Number 2130

11 New Messages

Digest #2130
1a
1b
3a
cara mem-password macro by "jeprey waluyo" greencap4914
3b
Re: cara mem-password macro by "Mr. Kid" nmkid.family@ymail.com
4
kelebihan converter excel to .exe by "dhen.baguse" bagusejogja
6a
Masalah code untuk pivottable by "Kanzu Giusto" kanzu1430
6b
Re: Masalah code untuk pivottable by "Mr. Kid" nmkid.family@ymail.com
7
stok barang by "depi Hariyanto" depi.hari_yanto

Messages

Sat Mar 2, 2013 10:02 pm (PST) . Posted by:

"Suyatno"

Makasih Mr Kid telah berbagi dg panjang lebar akan sy cermati pelan-2

Salam

Ocha

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Mr. Kid
Sent: 02 Maret 2013 20:59
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] VBA Sumif ke-n

Hai Ocha,

Mau belajar Macro ya...

Coba :
1. di worksheet (di kolom SumIF cell pertama hasil -> misalkan itu di C2),
tulis formula berikut :
=n(C1) + B2
2. copy formula ke cell C3 dan C4 dan periksa hasilnya.
3. kalau sudah cocok, lanjutkan ke langkah 4. Jika belum cocok, lampirkan
workbook hasil uji coba 2 langkah di atas ke milis.
4. hapus semua formula di C2:C4
5. lihat ke jejeran menu (ribbon di xl2007), dan cari yang namanya Developer
6. jika tidak ada, munculkan dengan cara (xl2007) [sesuaikan langkahnya
untuk versi 2010. versi 2003 ndak perlu]
- klik office button (bunder di pojok kiri atas layar) -> tekan Excel
Options (kanan bawah dikiri Exit di menu yang terhampar)
- lihat sisi kiri (page) -> pilih Popular -> lihat sisi kanan (details)
-> centang Show developer blablabla -> tekan OK sampai kembali ke worksheet
- lihat jejeran ribbon lagi, mestinya sudah ada
7. mulai record macro
- klik ribbon Developer -> lihat grup Code -> ada tombol Record Macro
(tombol ini kalau dipencet, akan berubah menjadi bertuliskan Stop Recording,
ingat ini ya)
- klik si tombol Record Macro
- tulis nama macronya (disebut nama prosedur), misal KidGanteng -> lalu
tekan OK
- klik cell C2
- tulis formual tadi itu, yang bunyinya : (tekan ENTER kalau dah selesai
nulis formula ya)
=n(C1) + B2
- klik lagi C2 -> tekan CTRL C untuk Copy
- blok C2 sampai C4
- tekan CTRL V untuk paste formula
8. sekarang stop recording
- tekan tombol Stop Recording (itu loh, tombol yang tadi tulisannya
Record Macro)
9. lakukan save dengan cara :
- tekan ALT F lalu ikuti dengan menekan A -> ALT F A
- cari dan lihat tulisan Save as type
- pilih dari pilihan yang ada yang ada bunyi .xls
- kalau gak nemu, pilih yang .xlsm
- masih gak nemu ?, coba pilih .xlsb
- kalau dah nemu salah satu, tekan tombol Save
10. selesai

Cara run macro :
ke ribbon Developer -> grup Code -> klik tombol Macro -> pilih nama macro
(atau nama prosedur) -> tekan tombol Run
>> karena tadi nama macro waktu record adalah KidGanteng, maka pilih
nama itu

Biasanya belajar Macro dimulai dengan kenal yang namanya Macro.
Cara di atas adalah salah satu sisi pintu masuk untuk mengenal Macro.
Setelah masuk, silakan baca-baca file (unduh dulu kali ya) dari website
milis (butuh login Yahoo) yang ada di folder Files
yang nama filenya ada bunyi VBA At Glance gitu (ini file warisane mbake loh)

oh iya, kalau ada yang ndak pas, mohon dimaafken

Wassalam,
Kid.

2013/3/2 Suyatno ocha.yatno@gmail.com>

Dear Master

Saya lagi belajar macro pingin tahu kode row ke-n itu bagaimana mudahnya

u/ mepermudah maksudnya contoh sbb

Item

Qty

SumiF

a

1

1

a

2

3

a

3

6

Sebelum & sesudahnya makasih

Salam

Ocha

_____

No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1430 / Virus Database: 2641/5643 - Release Date: 03/02/13

Sat Mar 2, 2013 10:02 pm (PST) . Posted by:

"Suyatno"

Makasih ilmunya P'Hendrik pasti banyak manfaatnya

Salam

Ocha

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi
Sent: 02 Maret 2013 20:54
To: belajar-excel@yahoogroups.com
Subject: Fw: [belajar-excel] VBA Sumif ke-n

Mudah2an contoh terlampir bisa memberikan gambaran dan sesuai dengan yang diharapkan.

Salam,

HK

----- Forwarded Message -----
From: Hendrik Karnadi hendrikkarnadi@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Saturday, 2 March 2013, 18:04
Subject: RE: [belajar-excel] VBA Sumif ke-n

Cara termudah adalah dgn macro recording, tulis function yg diinginkan kmdn stop recording.

Salam,

HK

Sent from Samsung Mobile

Cara termudah adalah dgn macro recording, tulis function yg diinginkan kmdn stop recording.

Salam,
HK

Sent from Samsung Mobile
Suyatno ocha.yatno@gmail.com> wrote:

Dear Master

Saya lagi belajar macro pingin tahu kode row ke-n itu bagaimana mudahnya

u/ mepermudah maksudnya contoh sbb

Item

Qty

SumiF

a

1

1

a

2

3

a

3

6

Sebelum & sesudahnya makasih

Salam

Ocha

Dear Master

Saya lagi belajar macro pingin tahu kode row ke-n itu bagaimana mudahnya

u/ mepermudah maksudnya contoh sbb

Item

Qty

SumiF

a

1

1

a

2

3

a

3

6

Sebelum & sesudahnya makasih

Salam

Ocha

_____

No virus found in this message.
Checked by AVG - www.avg.com
Version: 10.0.1430 / Virus Database: 2641/5643 - Release Date: 03/02/13

Sat Mar 2, 2013 10:04 pm (PST) . Posted by:

"Tedi" rustiadi.tedi

Assalamualaikum....
saya ingin di bantu punya masalah ingin memindahkan data pembelanjaan perorangan di sheet 1 agar menjadi pembelajaan secara umum di sheet 2 bagai mana caranya ya

--- Mods ---
Contoh data dalam sebuah workbook yang dilampirkan (max 250KB) akan memudahkan BeExceller yang ingin membantu.
Agar bisa menyertakan file lampiran, lakukan posting melalui akun email pribadi (Compose email dari Inbox email pribadi).
------------

Sun Mar 3, 2013 1:10 am (PST) . Posted by:

"jeprey waluyo" greencap4914

Mohon pencerahan.
bagaimana cara mem-password macro?
saya sudah coba dengan
VBA Project Properties
- Pilih Protection
- Centang kotak Lock Project for Viewing
- Masukkan Password dan Confirm Password
- Klik OK
- Saya close VBA
- Saya close file
- done

Kemudian file saya buka lagi,
saya masuk kembali ke macro,
dengan mudahnya saya ubah kembali sheet properties
tidak ada permintaan password.

Mohon bantuan.
terima kasih...

Sun Mar 3, 2013 1:15 am (PST) . Posted by:

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

Hai Jeprey,

Coba ke VBE (tekan ALT F11)
kemudian menu Insert -> Module
setelah itu, kembali ke worksheet (ALT F11)
lalu save as workbook dan pilih save as type adalah salas satu dari .xls,
.xlsm, atau .xlsb
tutup workbook atau excel sekalian juga boleh
buka workbook dan ke vbe

Jadi, mininal harus ada 1 object selain object sheet atau ada sebuah script
di object sheet

Wassalam,
Kid.

2013/3/3 jeprey waluyo greencap4914@yahoo.com>

> **
>
>
> Mohon pencerahan.
> bagaimana cara mem-password macro?
> saya sudah coba dengan
> VBA Project Properties
> - Pilih Protection
> - Centang kotak Lock Project for Viewing
> - Masukkan Password dan Confirm Password
> - Klik OK
> - Saya close VBA
> - Saya close file
> - done
>
> Kemudian file saya buka lagi,
> saya masuk kembali ke macro,
> dengan mudahnya saya ubah kembali sheet properties
> tidak ada permintaan password.
>
> Mohon bantuan.
> terima kasih...
>
>
>

Sun Mar 3, 2013 5:59 am (PST) . Posted by:

"dhen.baguse" bagusejogja

salam para sahabat excel,
bulan kemaren (feb 2013) pernah ada yg membahas dan melampirkan program convertter excel to exe dan baru saya mencoba dan ada yang saya tanyakan apa kelbihan jika excel di convert ke exe selain excel berubah format ke aplikasi dan ada fasilitas backup yg mna klo backup di excel biasa jg ada.  mohon masukkan para sahabt excel..
terimakasih..
wassalam

Dikirim dari Yahoo! Mail pada Android

Sun Mar 3, 2013 7:11 am (PST) . Posted by:

"Selvrida Kusumawati" selvri_k

Assalammu 'alaikum Om Kid

Selvri sangat berterima kasih atas bantuannya. Semoga senantiasa membawa keberkahan.

Om... di PC Selvri yang datanya banyak ada error disini..
 rngData.Offset(lOffset).Resize(lNeed, 3).Copy rngHasil.Offset(lRows)

run time error 1004 - pas Selvri sorot ada angka lOffset = 15320, 

Selvri ada sedikit tambahkan satu kolom kriteria di sheet parameter.

Terus logikanya formula bantu ini gimana seh om..
"=IF(COUNTIF( INDEX(_myData_ ,0,1),A2) ,MATCH(A2, INDEX(_myData_ ,0,1),0)- 1,0)"

Terima kasih banyak dan wassalammu 'alaikum wr wb
Nb :
"Maaf lampirannya melebihi kuota, tidak bisa dilampirkan di millist"

Sun Mar 3, 2013 7:23 am (PST) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Baris ini :
rngData.Offset(lOffset).Resize(lNeed, 3).Copy rngHasil.Offset(lRows)
akan mengalami kegagalan bila data (rngData) memiliki jumlah baris yang
banyak yang membuat jumlah baris data ditambah nilai lRows akan melebihi
jumlah baris Excel.

Coba ubah ubah menjadi :
rngData.Resize(lNeed, 3).Offset(lOffset).Copy rngHasil.Offset(lRows)
agar mengiuti jumlah yang dikehendaki dan bukan mengikuti jumlah baris data
seluruhnya.

Wassalamu'alaikum Wr. Wb.,
Kid.

2013/3/3 Selvrida Kusumawati selvri_k@yahoo.com>

> **
>
>
> Assalammu 'alaikum Om Kid
>
> Selvri sangat berterima kasih atas bantuannya. Semoga senantiasa membawa
> keberkahan.
>
> Om... di PC Selvri yang datanya banyak ada error disini..
> rngData.Offset(lOffset).Resize(lNeed, 3).Copy rngHasil.Offset(lRows)
>
> run time error 1004 - pas Selvri sorot ada angka lOffset = 15320,
>
> Selvri ada sedikit tambahkan satu kolom kriteria di sheet parameter.
>
> Terus logikanya formula bantu ini gimana seh om..
> "=IF(COUNTIF( INDEX(_myData_ ,0,1),A2) ,MATCH(A2, INDEX(_myData_ ,0,1),0)-
> 1,0)"
>
> Terima kasih banyak dan wassalammu 'alaikum wr wb
> Nb :
> "Maaf lampirannya melebihi kuota, tidak bisa dilampirkan di millist"
>
>
>
>
>

Sun Mar 3, 2013 7:11 am (PST) . Posted by:

"Kanzu Giusto" kanzu1430

Assalamu 'alaikum, 

Perkenalkan, sudah lama saya mengakses milis ini untuk menyelesaikan berbagai persoalan excel. (Sebelumnya saya ucapkan banyak terima kasih, terutama untuk para moderator).

Saya baru mulai belajar macro dan visual Basic, dan aplikasinya di Excel. Kini ada masalah yang ingin dikemukakan, semoga para 'warga' bersedia membantu. 

Pada data yang dilampirkan, ada beberapa pivottable pada sheet 'Input'. Yang dikehendaki adalah:
> Ketika sel IDPengirim diubah, maka pivot Table U1 berubah menjadi value IDPengirim. 
> Ketika sel IDPenerima diubah maka pivottable di w1 berubah  menjadi value IDPenerima, w4 dicopy ke IDPayment, dan W5 dicopy ke IDNamaBarang.

Mohon pencerahannya untuk pembuatan code dengan private sub (Saya kira mungkin dengan pivottableupdate)

Sun Mar 3, 2013 11:43 am (PST) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Hal-hal berikut ini baru sekedar imajinasi, jadi sesuaikan dengan keadaan
nyatanya.

>> sel IDPengirim diubah
Pada event change milik worksheet diberi proses cek (bisa dengan IF THEN
atau SELECT CASE), jika yang berubah adalah cell milik IDPengirim, maka
lakukan pengubahan item terfilter dalam pivot table.

Contoh :
cell *IDPengirim *ada dalam *worksheet bernama myInput *pada yang persisnya
ada di sebuah cell dengan* alamat B7*
cell *U1* pasti ada pivot tablenya, dan proses filter di *U1* tersebut
dilakukan pada object* Page* milik Pivot Table.
anggap saja nama field dalam pivot table yang difilter adalah *myPengirim*.

Pada event change milik worksheet diisi : (misal pakai IF)
IF target.address="*$B$7*" then
with sheets("*myInput*").range("*U1*").pivottable.pivotfields("*
myPengirim*")
.clearallfilters
.currentpage=sheets("*myInput*").range("*B7*").value
end with
endif

**** Kira-kira, untuk IDPenerima juga sudah bisa ya ***
*
>> Copy W4 ke IDPayment dan W5 ke IDNamaBarang
Paling aman adalah satu persatu. Jika data yang akan dicopy berurutan
(vertikal atau horisontal), bisa sekaligus meski butuh di transpose saat
paste.

Misal IDPayment ada di cell B8 dan IDNamaBarang ada di cell B9
-> pakai satu per satu saja ya
range("b8").value=range("w4").value
range("b9").value=range("w5").value

-> kalau data yang di salin berurutan (w4:w5) akan disalin ke lokasi
berurutan (b8:b9)
range("b8:b9").value=range("w4:w5").value
bisa juga dengan copas values (supaya cell berformula tidak buat
masalah)
range("w4:w5").copy
range("b8:b9").pastespecial xlpastevalues

**** Pelajari juga parameter lain dalam pastespecial ****

Wassalamu'alaikum Wr. Wb.
Kid.

2013/3/3 Kanzu Giusto kanzu1430@yahoo.com>

> **
>
>
> Assalamu 'alaikum,
> Perkenalkan, sudah lama saya mengakses milis ini untuk menyelesaikan
> berbagai persoalan excel. (Sebelumnya saya ucapkan banyak terima kasih,
> terutama untuk para moderator).
>
> Saya baru mulai belajar macro dan visual Basic, dan aplikasinya di Excel. Kini
> ada masalah yang ingin dikemukakan, semoga para 'warga' bersedia membantu.
>
> Pada data yang dilampirkan, ada beberapa pivottable pada sheet 'Input'.
> Yang dikehendaki adalah:
> > Ketika sel IDPengirim diubah, maka pivot Table U1 berubah menjadi value
> IDPengirim.
> > Ketika sel IDPenerima diubah maka pivottable di w1 berubah menjadi
> value IDPenerima, w4 dicopy ke IDPayment, dan W5 dicopy ke IDNamaBarang.
>
> Mohon pencerahannya untuk pembuatan code dengan private sub (Saya kira
> mungkin dengan pivottableupdate)
>
>
>
>
>
>

Sun Mar 3, 2013 8:08 am (PST) . Posted by:

"depi Hariyanto" depi.hari_yanto

Kepada :
Para master excel,
 
Semoga email ini menjumpai rekan2 semua dalam keadaan prima dan sehat selalu.
 
Mohon bantuannya bagai mana rumus formula untuk mengetahui sisa stok barang ..?
Terlampir detail pertanyaan dan excelnya.
 
Salam
Dep_Har
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

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

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

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

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

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

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)