Selasa, 28 Mei 2013

[belajar-excel] Digest Number 2322

3 New Messages

Digest #2322
1a
Re: (unknown) by "Mr. Kid" nmkid.family@ymail.com
2a
Re: Bagaimana cetak amplop data autofilter by "hendrik karnadi" hendrikkarnadi

Messages

Tue May 28, 2013 5:03 am (PDT) . Posted by:

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

Kok gak disertakan hasil uji cobanya.

End sub

Wassalam,
Kid.

2013/5/28 <didon13@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.nmkid@gmail.com>
> *Sender: * belajar-excel@yahoogroups.com
> *Date: *Mon, 27 May 2013 17:01:44 +0700
> *To: *BeExcel<belajar-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.listindex<0 then
> exit sub
> elseif combobox2.listindex<0 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&quot;
>
> 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 <didon13@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.nmkid@gmail.com>
>> *Sender: * belajar-excel@yahoogroups.com
>> *Date: *Fri, 24 May 2013 23:21:53 +0700
>> *To: *BeExcel<belajar-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 <didon13@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
>>>
>>>
>>
>
>

Tue May 28, 2013 5:13 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Coba buat Macronya seperti ini:
Sub CtkOto()
Range("A6").Select
Selection.AutoFilter
For i = 1 To Range("G2").Value
    Range("G1") = i
    ActiveSheet.Range("$A$6:$G$129";).AutoFilter Field:=7, Criteria1:=Range("D4")
    ActiveSheet.PrintPreview
Next i
End Sub

Range("G1") adalah Counter, Range("G2") diisi dengan jumlah guru dan Range("D4") merupakan fungsi Vlookup dengan Reference Nama Guru sesuai No Urut pada Range("G1").

Setelah Ok dengan PrintPreview ganti dengan PrintOut.

Salam,
HK

________________________________
From: Herman Medan <hermanmedan08@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 28 May 2013, 11:16
Subject: [belajar-excel] Bagaimana cetak amplop data autofilter


 
Tolong bantuannya dari para ahli.

Bagaimana caranya sekaligus cetak data yang menggunakan autofilter ke satu-satu amplop.
Semoga penjelasan saya dapat dimengerti.

Terima kasih sebelumnya

Tue May 28, 2013 7:06 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

2 Baris perintah pertama,
Range("A6").Select
Selection.AutoFilter

bisa dihapus.

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, 28 May 2013, 19:13
Subject: Re: [belajar-excel] Bagaimana cetak amplop data autofilter


Coba buat Macronya seperti ini:
Sub CtkOto()
Range("A6").Select
Selection.AutoFilter
For i = 1 To Range("G2").Value
    Range("G1") = i
    ActiveSheet.Range("$A$6:$G$129";).AutoFilter Field:=7, Criteria1:=Range("D4")
    ActiveSheet.PrintPreview
Next i
End Sub

Range("G1") adalah Counter, Range("G2") diisi dengan jumlah guru dan Range("D4") merupakan fungsi Vlookup dengan Reference Nama Guru sesuai No Urut pada Range("G1").

Setelah Ok dengan PrintPreview ganti dengan PrintOut.

Salam,
HK

________________________________
From: Herman Medan <hermanmedan08@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 28 May 2013, 11:16
Subject: [belajar-excel] Bagaimana cetak amplop data autofilter


 
Tolong bantuannya dari para ahli.

Bagaimana caranya sekaligus cetak data yang menggunakan autofilter ke satu-satu amplop.
Semoga penjelasan saya dapat dimengerti.

Terima kasih sebelumnya

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

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

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

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

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

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

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

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)