15 New Messages
Digest #2397
1a
Re: BelajarVBA, sudah tahu cara menulis kode program VBA atau belum by "Scorpio Alone" sc0rpi0_b0y82
Messages
Tue Jul 2, 2013 12:03 am (PDT) . Posted by:
"Scorpio Alone" sc0rpi0_b0y82
Wow..Akhirnya episode 3 muncul....
Ditunggu episode berikutnya Mr. Kid
--- On Tue, 7/2/13, Mr. Kid <mr.nmkid@gmail.com > wrote:
From: Mr. Kid <mr.nmkid@gmail.com >
Subject: [belajar-excel] BelajarVBA, sudah tahu cara menulis kode program VBA atau belum ?
To: "BeExcel" <belajar-excel@yahoogroups.com >
Date: Tuesday, July 2, 2013, 5:41 AM
Dear BeExceller,
Setelah menyeragamkan lingkungan belajar VBA dan keliling VBE, saatnya mulai menulis kode program.
Supaya ndak bingung, yuk kita sempatkan untuk melihat hal-hal dasar dalam penulisan kode program... disini
Wassalam,
Kid.
Ditunggu episode berikutnya Mr. Kid
--- On Tue, 7/2/13, Mr. Kid <mr.nmkid@gmail.
From: Mr. Kid <mr.nmkid@gmail.
Subject: [belajar-excel] BelajarVBA, sudah tahu cara menulis kode program VBA atau belum ?
To: "BeExcel" <belajar-excel@
Date: Tuesday, July 2, 2013, 5:41 AM
Dear BeExceller,
Setelah menyeragamkan lingkungan belajar VBA dan keliling VBE, saatnya mulai menulis kode program.
Supaya ndak bingung, yuk kita sempatkan untuk melihat hal-hal dasar dalam penulisan kode program... disini
Wassalam,
Kid.
Tue Jul 2, 2013 2:52 am (PDT) . Posted by:
"Haer Talib" haery
Rekan-rekan,
Silahkan berlangganan update di kolom kanan blog (
http://b-excel.blogspot.com ) agar tidak ketinggalan seri-seri berikutnya.
Terima kasih Mr. Kid
Jazakallah khairan katsiira...
HAER
2013/7/2 Scorpio Alone <sc0rpi0_b0y82@yahoo.com >
>
>
> Wow..Akhirnya episode 3 muncul....
> Ditunggu episode berikutnya Mr. Kid
>
> --- On *Tue, 7/2/13, Mr. Kid <mr.nmkid@gmail.com >* wrote:
>
>
> From: Mr. Kid <mr.nmkid@gmail.com >
> Subject: [belajar-excel] BelajarVBA, sudah tahu cara menulis kode program
> VBA atau belum ?
> To: "BeExcel" <belajar-excel@yahoogroups.com >
> Date: Tuesday, July 2, 2013, 5:41 AM
>
>
>
>
> Dear BeExceller,
>
> Setelah menyeragamkan lingkungan belajar VBA<http://b-excel.blogspot.com/2013/06/belajarvba-000-kenalan.html >dan keliling
> VBE<http://b-excel.blogspot.com/2013/06/belajarvba-001-vbe-visual-basic-editor.html >,
> saatnya mulai menulis kode program.
>
> Supaya ndak bingung, yuk kita sempatkan untuk melihat hal-hal dasar dalam
> penulisan kode program... disini<http://b-excel.blogspot.com/2013/07/belajarvba-002-gimana-sih-cara-nulis.html >
>
> Wassalam,
> Kid.
>
>
>
>
>
--
Haer Talib
*RumahAccess Indonesia* <http://www.rumahaccess.com >
*Tempatnya Belajar Microsoft Access*
Artikel | Forum | Milis | Download | Training | Links | Blog | Event
Silahkan berlangganan update di kolom kanan blog (
http://b-excel.
Terima kasih Mr. Kid
Jazakallah khairan katsiira...
HAER
2013/7/2 Scorpio Alone <sc0rpi0_b0y82@
>
>
> Wow..Akhirnya episode 3 muncul....
> Ditunggu episode berikutnya Mr. Kid
>
> --- On *Tue, 7/2/13, Mr. Kid <mr.nmkid@gmail.
>
>
> From: Mr. Kid <mr.nmkid@gmail.
> Subject: [belajar-excel] BelajarVBA, sudah tahu cara menulis kode program
> VBA atau belum ?
> To: "BeExcel" <belajar-excel@
> Date: Tuesday, July 2, 2013, 5:41 AM
>
>
>
>
> Dear BeExceller,
>
> Setelah menyeragamkan lingkungan belajar VBA<http://b-excel.
> VBE<http://b-excel.
> saatnya mulai menulis kode program.
>
> Supaya ndak bingung, yuk kita sempatkan untuk melihat hal-hal dasar dalam
> penulisan kode program... disini<http://b-excel.
>
> Wassalam,
> Kid.
>
>
>
>
>
--
Haer Talib
*RumahAccess Indonesia* <http://www.rumahacc
*Tempatnya Belajar Microsoft Access*
Artikel | Forum | Milis | Download | Training | Links | Blog | Event
Tue Jul 2, 2013 12:04 am (PDT) . Posted by:
"De Premor"
Apakah maksudnya adalah mencari tanggal akhir bulan ?
Coba menggunakan =DATE(YEAR(A1),MONTH(A1)+1,0)
Dimana A1 adalah data dengan format Tanggal => Misal: 23 Februari 2013
Fungsi DATE
DATE(Tahun,Bulan,Tanggal)
Jika Fungsi ini diisi sbb: DATE(2013,4,19) maka akan menghasilkan data
tanggal => 19 April 2013
Jika Fungsi ini diisi sbb: DATE(2013,4,1) maka akan menghasilkan data
tanggal => 1 April 2013
Jika Fungsi ini diisi sbb: DATE(2013,1,0) maka akan menghasilkan data
tanggal => 31 Desember 2012
Jika Fungsi ini diisi sbb: DATE(2013,1,-1) maka akan menghasilkan data
tanggal => 30 Desember 2012
Rgds,
[dp]
On 02/07/2013 7:46, Jamil Makhmudin wrote:
>
> Terima kasih Mr. Kid dan De Premor atas pencerahannya...
>
> oh ya satu yang saya lupa tanya kan, bagaimana rumus akhir bulan jika
> bulan pebruari di tahun kabisat dan bukan kabisat????
>
> --------------------------------------------
> Pada Sen, 1/7/13, Mr. Kid <mr.nmkid@gmail.com
> <mailto:mr.nmkid%40gmail.com>> menulis:
>
> Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
> Kepada: "BeExcel" <belajar-excel@yahoogroups.com
> <mailto:belajar-excel%40yahoogroups.com>>
> Tanggal: Senin, 1 Juli, 2013, 6:03 PM
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Bisa pakai :
> =A1-(Mod(A1,7)=1)
>
> Wassalam,
> Kid.
>
>
>
> 2013/7/2 De Premor
> <de@premor.net <mailto:de%40premor.net>>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Nambah lagi pake model rumus lain berikut
>
>
>
> =A1---(WEEKDAY(A1)=1)
>
>
>
> :: Rumus: Weekday(A1)=1
>
> Jika A1 adalah hari minggu, maka result nya adalah TRUE,
> jika tidak
> maka FALSE
>
>
>
> :: Double Minus "--" didepan rumus Weekday
>
> Minus Pertama adalah untuk mengconvert Nilai TRUE ke
> bilangan
> Negatif => -1
>
> Minus Kedua adalah untuk mengembalikan lagi menjadi
> positif
>
>
>
> Dikarenakan Operasi kita adalah operasi pengurangan,
> maka formula
> Triple Minus diatas dapat diubah menjadi 1 buah minus
> saja, menjadi
> sbb:
>
>
>
> =A1-(WEEKDAY(A1)=1)
>
>
>
> Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal
> sebelumnya,
> yaitu
>
> =A1-IF(WEEKDAY(A1)=1,1) :: 23
> Huruf
>
> =A1---(WEEKDAY(A1)=1) ::
> 21 Huruf
>
> =A1-(WEEKDAY(A1)=1)
> :: 19 Huruf
>
>
>
> Rgds,
>
> [dp]
>
> On 01/07/2013 23:21, Jamil Makhmudin
> wrote:
>
>
>
>
>
>
>
> Assalamu'alaikum Wr. Wb.
>
>
>
> Pakar excel terhormat...
>
>
>
> Di setiap akhir bulan, kami diminta
> membuat
> laporan kepada atasan, dengan data dan
> tanggal yang
> tepat.
> Beberapa laporan kami buat
> penanggalan
> otomatis, namun menjadi masalah jika hari
> terakhir
> adalah hari AHad (Minggu)
> karena hari tersebut bukan hari
> dinas dan tidak
> diperbolehkan mengeluarkan surat pada hari
> libur...
>
>
>
> Adakah formula excel tentang
> penanggalan,
> berubah ke
> tanggal sebelumnya jika hari terakhir di
> bulan
> tersebut merupakan hari Ahad
> (Minggu)
>
>
>
> atas
> bantuannya disampaikan Terima
> kasih...
>
>
>
> Wassalam
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Coba menggunakan =DATE(YEAR(A1)
Dimana A1 adalah data dengan format Tanggal => Misal: 23 Februari 2013
Fungsi DATE
DATE(Tahun,Bulan,
Jika Fungsi ini diisi sbb: DATE(2013,4,
tanggal => 19 April 2013
Jika Fungsi ini diisi sbb: DATE(2013,4,
tanggal => 1 April 2013
Jika Fungsi ini diisi sbb: DATE(2013,1,
tanggal => 31 Desember 2012
Jika Fungsi ini diisi sbb: DATE(2013,1,
tanggal => 30 Desember 2012
Rgds,
[dp]
On 02/07/2013 7:46, Jamil Makhmudin wrote:
>
> Terima kasih Mr. Kid dan De Premor atas pencerahannya.
>
> oh ya satu yang saya lupa tanya kan, bagaimana rumus akhir bulan jika
> bulan pebruari di tahun kabisat dan bukan kabisat????
>
> ------------
> Pada Sen, 1/7/13, Mr. Kid <mr.nmkid@gmail.
> <mailto:mr.
>
> Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
> Kepada: "BeExcel" <belajar-excel@
> <mailto:belajar-
> Tanggal: Senin, 1 Juli, 2013, 6:03 PM
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Bisa pakai :
> =A1-(Mod(A1,
>
> Wassalam,
> Kid.
>
>
>
> 2013/7/2 De Premor
> <de@premor.net <mailto:de%
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Nambah lagi pake model rumus lain berikut
>
>
>
> =A1---(WEEKDAY(
>
>
>
> :: Rumus: Weekday(A1)=
>
> Jika A1 adalah hari minggu, maka result nya adalah TRUE,
> jika tidak
> maka FALSE
>
>
>
> :: Double Minus "--" didepan rumus Weekday
>
> Minus Pertama adalah untuk mengconvert Nilai TRUE ke
> bilangan
> Negatif => -1
>
> Minus Kedua adalah untuk mengembalikan lagi menjadi
> positif
>
>
>
> Dikarenakan Operasi kita adalah operasi pengurangan,
> maka formula
> Triple Minus diatas dapat diubah menjadi 1 buah minus
> saja, menjadi
> sbb:
>
>
>
> =A1-(WEEKDAY(
>
>
>
> Jadi ada 3 Rumus untuk Jika Minggu maka ambil tanggal
> sebelumnya,
> yaitu
>
> =A1-IF(WEEKDAY(
> Huruf
>
> =A1---(WEEKDAY(
> 21 Huruf
>
> =A1-(WEEKDAY(
> :: 19 Huruf
>
>
>
> Rgds,
>
> [dp]
>
> On 01/07/2013 23:21, Jamil Makhmudin
> wrote:
>
>
>
>
>
>
>
> Assalamu'
>
>
>
> Pakar excel terhormat...
>
>
>
> Di setiap akhir bulan, kami diminta
> membuat
> laporan kepada atasan, dengan data dan
> tanggal yang
> tepat.
> Beberapa laporan kami buat
> penanggalan
> otomatis, namun menjadi masalah jika hari
> terakhir
> adalah hari AHad (Minggu)
> karena hari tersebut bukan hari
> dinas dan tidak
> diperbolehkan mengeluarkan surat pada hari
> libur...
>
>
>
> Adakah formula excel tentang
> penanggalan,
> berubah ke
> tanggal sebelumnya jika hari terakhir di
> bulan
> tersebut merupakan hari Ahad
> (Minggu)
>
>
>
> atas
> bantuannya disampaikan Terima
> kasih...
>
>
>
> Wassalam
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Tue Jul 2, 2013 12:48 am (PDT) . Posted by:
"Jamil Makhmudin" jamil_kbm
Terima kasih semuanya yang telah membantu. Dari berbagai masukkan dari Mr. Kid. Bpk Hendrik Karnadi, De Premor saya kombinasikan..... Alhamdulillah sudah sesuai dengan yang saya harapkan.
fungsi ini untuk daftar hadir pegawai yang dicetak di awal tahun pelajaran (Juni) yang pelaporannya pada setiap akhir bulan.
dokumen yang saya buat terlampir..... (ada kritik saya terima)
Terima kasih ilmunya....
Jazzakallah
--------------------------------------------
Pada Sel, 2/7/13, De Premor <de@premor.net> menulis:
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: belajar-excel@yahoogroups.com
Tanggal: Selasa, 2 Juli, 2013, 4:33 AM
fungsi ini untuk daftar hadir pegawai yang dicetak di awal tahun pelajaran (Juni) yang pelaporannya pada setiap akhir bulan.
dokumen yang saya buat terlampir...
Terima kasih ilmunya....
Jazzakallah
------------
Pada Sel, 2/7/13, De Premor <de@premor.net> menulis:
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: belajar-excel@
Tanggal: Selasa, 2 Juli, 2013, 4:33 AM
Tue Jul 2, 2013 1:22 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Kira-kira, bagaimana cara merekap per triwulan atau per semester-nya ?
Wassalam,
Kid.
2013/7/2 Jamil Makhmudin <jamil_kbm@yahoo.co.id >
> **
>
>
> Terima kasih semuanya yang telah membantu. Dari berbagai masukkan dari Mr.
> Kid. Bpk Hendrik Karnadi, De Premor saya kombinasikan..... Alhamdulillah
> sudah sesuai dengan yang saya harapkan.
>
> fungsi ini untuk daftar hadir pegawai yang dicetak di awal tahun pelajaran
> (Juni) yang pelaporannya pada setiap akhir bulan.
>
> dokumen yang saya buat terlampir..... (ada kritik saya terima)
>
> Terima kasih ilmunya....
>
> Jazzakallah
>
> --------------------------------------------
> Pada Sel, 2/7/13, De Premor <de@premor.net> menulis:
>
>
> Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
> Kepada: belajar-excel@yahoogroups.com
> Tanggal: Selasa, 2 Juli, 2013, 4:33 AM
>
>
>
Wassalam,
Kid.
2013/7/2 Jamil Makhmudin <jamil_kbm@yahoo.
> **
>
>
> Terima kasih semuanya yang telah membantu. Dari berbagai masukkan dari Mr.
> Kid. Bpk Hendrik Karnadi, De Premor saya kombinasikan.
> sudah sesuai dengan yang saya harapkan.
>
> fungsi ini untuk daftar hadir pegawai yang dicetak di awal tahun pelajaran
> (Juni) yang pelaporannya pada setiap akhir bulan.
>
> dokumen yang saya buat terlampir...
>
> Terima kasih ilmunya....
>
> Jazzakallah
>
> ------------
> Pada Sel, 2/7/13, De Premor <de@premor.net> menulis:
>
>
> Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
> Kepada: belajar-excel@
> Tanggal: Selasa, 2 Juli, 2013, 4:33 AM
>
>
>
Tue Jul 2, 2013 1:37 am (PDT) . Posted by:
"Jamil Makhmudin" jamil_kbm
ada saran Mr Kid????
--------------------------------------------
Pada Sel, 2/7/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: "BeExcel" <belajar-excel@yahoogroups.com >
Tanggal: Selasa, 2 Juli, 2013, 8:21 AM
Kira-kira, bagaimana cara
merekap per triwulan atau per semester-nya ?
Wassalam,
Kid.
2013/7/2 Jamil
Makhmudin <jamil_kbm@yahoo.co.id >
Terima kasih semuanya yang telah membantu. Dari
berbagai masukkan dari Mr. Kid. Bpk Hendrik Karnadi, De
Premor saya kombinasikan..... Alhamdulillah sudah sesuai
dengan yang saya harapkan.
fungsi ini untuk daftar hadir pegawai yang dicetak di awal
tahun pelajaran (Juni) yang pelaporannya pada setiap akhir
bulan.
dokumen yang saya buat terlampir..... (ada kritik saya
terima)
Terima kasih ilmunya....
Jazzakallah
--------------------------------------------
Pada Sel, 2/7/13, De Premor <de@premor.net>
menulis:
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: belajar-excel@yahoogroups.com
Tanggal: Selasa, 2 Juli, 2013, 4:33 AM
------------
Pada Sel, 2/7/13, Mr. Kid <mr.nmkid@gmail.
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: "BeExcel" <belajar-excel@
Tanggal: Selasa, 2 Juli, 2013, 8:21 AM
Kira-kira, bagaimana cara
merekap per triwulan atau per semester-nya ?
Wassalam,
Kid.
2013/7/2 Jamil
Makhmudin <jamil_kbm@yahoo.
Terima kasih semuanya yang telah membantu. Dari
berbagai masukkan dari Mr. Kid. Bpk Hendrik Karnadi, De
Premor saya kombinasikan.
dengan yang saya harapkan.
fungsi ini untuk daftar hadir pegawai yang dicetak di awal
tahun pelajaran (Juni) yang pelaporannya pada setiap akhir
bulan.
dokumen yang saya buat terlampir...
terima)
Terima kasih ilmunya....
Jazzakallah
------------
Pada Sel, 2/7/13, De Premor <de@premor.net>
menulis:
Judul: Re: [belajar-excel] Tanggal akhir ditiap bulan...
Kepada: belajar-excel@
Tanggal: Selasa, 2 Juli, 2013, 4:33 AM
Tue Jul 2, 2013 2:04 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
1. Pertanyaan saya apakah bisa criteria diganti variable memory ?
>> tidak bisa, karena dari pembuat fungsi AdvancedFilter ditetakan bahwa
criteriarange berupa range berisi kriteria, meskipun tipe input
parameternya menggunakan tipe data variant yang bisa menerima array.
2. Sehingga lembar kerja bersih, hanya muncul hasil filer aja.
>> letakkan tabel kriteria di sheet lainnya (bukan di sheet output) juga
bisa membuat sheet output hanya menampilkan hasil filternya
*** bisa dengan opsi xlfiltercopy juga loh
>> buat tabel kriteria, isi tabelnya, lakukan advanced filter, kemudian
hapus tabel kriterianya juga bisa membuat sheet output hanya menampilkan
hasil filternya saja.
Wassalam,
Kid.
2013/7/2 Heru Safrudin <superheruu@gmail.com >
> **
>
>
> Dear Master,****
>
> ** **
>
> Saya biasa menggunakan macro Advanced Filter untuk masalah filtering data,
> ****
>
> Salah satu syarat yang harus dipenuhi dalam advanced filter adalah harus
> ada criteria, ****
>
> Sedangkan criteria harus diletakkan di dalam cell tertentu****
>
> Pertanyaan saya apakah bisa criteria diganti variable memory ?****
>
> Sehingga lembar kerja bersih, hanya muncul hasil filer aja.****
>
> ** **
>
> Semoga para master bisa memberi pencerahan****
>
> ** **
>
> Terima kasih ****
>
> ** **
>
>
>
>> tidak bisa, karena dari pembuat fungsi AdvancedFilter ditetakan bahwa
criteriarange berupa range berisi kriteria, meskipun tipe input
parameternya menggunakan tipe data variant yang bisa menerima array.
2. Sehingga lembar kerja bersih, hanya muncul hasil filer aja.
>> letakkan tabel kriteria di sheet lainnya (bukan di sheet output) juga
bisa membuat sheet output hanya menampilkan hasil filternya
*** bisa dengan opsi xlfiltercopy juga loh
>> buat tabel kriteria, isi tabelnya, lakukan advanced filter, kemudian
hapus tabel kriterianya juga bisa membuat sheet output hanya menampilkan
hasil filternya saja.
Wassalam,
Kid.
2013/7/2 Heru Safrudin <superheruu@gmail.
> **
>
>
> Dear Master,****
>
> ** **
>
> Saya biasa menggunakan macro Advanced Filter untuk masalah filtering data,
> ****
>
> Salah satu syarat yang harus dipenuhi dalam advanced filter adalah harus
> ada criteria, ****
>
> Sedangkan criteria harus diletakkan di dalam cell tertentu****
>
> Pertanyaan saya apakah bisa criteria diganti variable memory ?****
>
> Sehingga lembar kerja bersih, hanya muncul hasil filer aja.****
>
> ** **
>
> Semoga para master bisa memberi pencerahan**
>
> ** **
>
> Terima kasih ****
>
> ** **
>
>
>
Tue Jul 2, 2013 2:57 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Kalau mau bersih juga (kriteria diinput kata kuncinya) bisa pake contoh macro Auto Filter --> macro hasil modifikasi dari buku database (lupa judul dan pengarangnya).
Database Penjualan Peralatan Kantor
Salesman Tanggal Nama barang Jumlah Harga Total
Firman 03/01/2010 Pita Mesin Tik 1 8,000 8,000
Dinu 04/01/2010 Pita Mesin Tik Elektrik 2 25,000 50,000
Citra 07/01/2010 Pita Mesin Tik 5 8,000 40,000
Citra 08/01/2010 Pita Mesin Absensi 5 75,000 375,000
Citra 10/01/2010 Pita Mesin Tik Elektrik 5 25,000 125,000
Wulan 10/01/2010 Pita Printer 2 27,500 55,000
Wulan 12/01/2010 Pita Mesin Tik 3 8,000 24,000
Firman 15/01/2010 Pita Mesin Tik Elektrik 5 25,000 125,000
Agus 16/01/2010 Pita Mesin Tik 5 8,000 40,000
Dinu 17/01/2010 Pita Mesin Tik Elektrik 4 25,000 100,000
Agus 18/01/2010 Pita Printer 3 27,500 82,500
Agus 21/01/2010 Pita Printer 2 27,500 55,000
Dinu 22/01/2010 Pita Mesin Tik Elektrik 5 25,000 125,000
Wulan 23/01/2010 Pita Printer 2 27,500 55,000
Firman 24/01/2010 Pita Printer 3 27,500 82,500
Macronya
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Krit As String
Krit = InputBox("Masukkan Kata Kunci untuk Filter", "Filter berdasarkan Kata Kunci Nama Barang")
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
Range("Tabel").AutoFilter field:=3, Criteria1:="*" & Krit & "*"
Cancel = True
End Sub
Kata kuncinya "Pita"
File tidak diattach karena over size
Salam,
HK
----- Forwarded Message -----
From: Mr. Kid <mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com >
Sent: Tuesday, 2 July 2013, 16:04
Subject: Re: [belajar-excel] Macro : Advanced Filter
1. Pertanyaan saya apakah bisa criteria
diganti variable memory ?
>> tidak bisa, karena dari pembuat fungsi AdvancedFilter ditetakan bahwa criteriarange berupa range berisi kriteria, meskipun tipe input parameternya menggunakan tipe data variant yang bisa menerima array.
2. Sehingga lembar kerja bersih, hanya muncul
hasil filer aja.
>> letakkan tabel kriteria di sheet lainnya (bukan di sheet output) juga bisa membuat sheet output hanya menampilkan hasil filternya
*** bisa dengan opsi xlfiltercopy juga loh
>> buat tabel kriteria, isi tabelnya, lakukan advanced filter, kemudian hapus tabel kriterianya juga bisa membuat sheet output hanya menampilkan hasil filternya saja.
Wassalam,
Kid.
2013/7/2 Heru Safrudin <superheruu@gmail.com >
>
>Dear Master,
>
>Saya biasa menggunakan macro Advanced
Filter untuk masalah filtering data,
>Salah satu syarat yang harus dipenuhi dalam
advanced filter adalah harus ada criteria,
>Sedangkan criteria harus diletakkan di
dalam cell tertentu
>Pertanyaan saya apakah bisa criteria
diganti variable memory ?
>Sehingga lembar kerja bersih, hanya muncul
hasil filer aja.
>
>Semoga para master bisa memberi pencerahan
>
>Terima kasih
>
>
>
Database Penjualan Peralatan Kantor
Salesman Tanggal Nama barang Jumlah Harga Total
Firman 03/01/2010 Pita Mesin Tik 1 8,000 8,000
Dinu 04/01/2010 Pita Mesin Tik Elektrik 2 25,000 50,000
Citra 07/01/2010 Pita Mesin Tik 5 8,000 40,000
Citra 08/01/2010 Pita Mesin Absensi 5 75,000 375,000
Citra 10/01/2010 Pita Mesin Tik Elektrik 5 25,000 125,000
Wulan 10/01/2010 Pita Printer 2 27,500 55,000
Wulan 12/01/2010 Pita Mesin Tik 3 8,000 24,000
Firman 15/01/2010 Pita Mesin Tik Elektrik 5 25,000 125,000
Agus 16/01/2010 Pita Mesin Tik 5 8,000 40,000
Dinu 17/01/2010 Pita Mesin Tik Elektrik 4 25,000 100,000
Agus 18/01/2010 Pita Printer 3 27,500 82,500
Agus 21/01/2010 Pita Printer 2 27,500 55,000
Dinu 22/01/2010 Pita Mesin Tik Elektrik 5 25,000 125,000
Wulan 23/01/2010 Pita Printer 2 27,500 55,000
Firman 24/01/2010 Pita Printer 3 27,500 82,500
Macronya
Private Sub Worksheet_BeforeDou
Dim Krit As String
Krit = InputBox("
If ActiveSheet.
ActiveSheet.
End If
Range("
Cancel = True
End Sub
Kata kuncinya "Pita"
File tidak diattach karena over size
Salam,
HK
----- Forwarded Message -----
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Tuesday, 2 July 2013, 16:04
Subject: Re: [belajar-excel] Macro : Advanced Filter
1. Pertanyaan saya apakah bisa criteria
diganti variable memory ?
>> tidak bisa, karena dari pembuat fungsi AdvancedFilter ditetakan bahwa criteriarange berupa range berisi kriteria, meskipun tipe input parameternya menggunakan tipe data variant yang bisa menerima array.
2. Sehingga lembar kerja bersih, hanya muncul
hasil filer aja.
>> letakkan tabel kriteria di sheet lainnya (bukan di sheet output) juga bisa membuat sheet output hanya menampilkan hasil filternya
*** bisa dengan opsi xlfiltercopy juga loh
>> buat tabel kriteria, isi tabelnya, lakukan advanced filter, kemudian hapus tabel kriterianya juga bisa membuat sheet output hanya menampilkan hasil filternya saja.
Wassalam,
Kid.
2013/7/2 Heru Safrudin <superheruu@gmail.
>
>Dear Master,
>
>Saya biasa menggunakan macro Advanced
Filter untuk masalah filtering data,
>Salah satu syarat yang harus dipenuhi dalam
advanced filter adalah harus ada criteria,
>Sedangkan criteria harus diletakkan di
dalam cell tertentu
>Pertanyaan saya apakah bisa criteria
diganti variable memory ?
>Sehingga lembar kerja bersih, hanya muncul
hasil filer aja.
>
>Semoga para master bisa memberi pencerahan
>
>Terima kasih
>
>
>
Tue Jul 2, 2013 2:39 am (PDT) . Posted by:
"Shenly" shenly_excelmania
Asalamualikum...
halo kawan2...mau tanya...gimana caranya membuat Pivot multiple sheet (Pivot table and pivotchart wizard) , tolong sebutkan langkah-langkah untuk mengaktivkan menu tersebut, soalnya di excel 2007 saya ga ketemu?? dan apakah
Pivot multiple sheet bisa menggunakan difinename juga??
terima kasih
Salam
Shenly ^^*
halo kawan2...mau tanya...gimana caranya membuat Pivot multiple sheet (Pivot table and pivotchart wizard) , tolong sebutkan langkah-langkah untuk mengaktivkan menu tersebut, soalnya di excel 2007 saya ga ketemu?? dan apakah
Pivot multiple sheet bisa menggunakan difinename juga??
terima kasih
Salam
Shenly ^^*
Tue Jul 2, 2013 2:42 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Coba lihat-lihat posting :
http://tech.groups.yahoo.com/group/belajar-excel/message/25540
Wassalamu'alaikum Wr. Wb.
Kid.
2013/7/2 Shenly <shenly_excelmania@yahoo.co.id >
> **
>
>
> Asalamualikum...
> halo kawan2...mau tanya...gimana caranya membuat Pivot multiple sheet
> (Pivot table and pivotchart wizard) , tolong sebutkan langkah-langkah untuk
> mengaktivkan menu tersebut, soalnya di excel 2007 saya ga ketemu?? dan
> apakah
> Pivot multiple sheet bisa menggunakan difinename juga??
>
> terima kasih
>
> Salam
> Shenly ^^*
>
>
>
>
Coba lihat-lihat posting :
http://tech.
Wassalamu'
Kid.
2013/7/2 Shenly <shenly_excelmania@
> **
>
>
> Asalamualikum.
> halo kawan2...mau tanya...gimana caranya membuat Pivot multiple sheet
> (Pivot table and pivotchart wizard) , tolong sebutkan langkah-langkah untuk
> mengaktivkan menu tersebut, soalnya di excel 2007 saya ga ketemu?? dan
> apakah
> Pivot multiple sheet bisa menggunakan difinename juga??
>
> terima kasih
>
> Salam
> Shenly ^^*
>
>
>
>
Tue Jul 2, 2013 2:52 am (PDT) . Posted by:
"Ahmad Adriansyah"
Dear Ms Jan, Om Kid, [dp], & Master lainnya,
Menyambung pertanyaan dibawah ini, untuk menuliskan koding pada VBA agas nilai suatu text box hanya dapat diisi berupa numeric dan huruf capital saja (Key Ascii : 48 s.d. 57 dan key ascii 65 s.d. 90) membuat kodingnya bagaimana ya?
Rgds,
AA
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com ] On Behalf Of De Premor
Sent: 28 Juni 2013 15:00
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
Coba script berikut mas, buat mengalter karakter selain angka
Private Sub txtDisplay_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Atau bisa juga pada event keydown, sbb:
Private Sub txtDisplay_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
End Sub
Rgds,
[dp]
On 28/06/2013 11:45, lapendosol opik wrote:
Trimakasih Mas Kid
Scriptnya berjalan sesuai keinginan.
Pertanyaan yg kedua supaya textboxnya hanya bisa terisi dengan angka saja harus disisipkan script gimana?
Saya pake script VB tapi ga berhasil :'(
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
End Select
KeyAscii = 0
End Sub
________________________________
From: Mr. Kid <mr.nmkid@gmail.com ><mailto:mr.nmkid@gmail.com >
To: BeExcel <belajar-excel@yahoogroups.com ><mailto:belajar-excel@yahoogroups.com >
Sent: Friday, June 28, 2013 2:33 AM
Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
Manusia membandingkan angka yang satu dengan angka yang lainnya bisa dengan mudah karena secara tidak sadar otak manusia mengkonversi setiap tulisan angka menjadi suatu data bertipe numerik.
Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.
Ubah bagian :
ElseIf txtJumlahBeli.Text > lblStok.Caption Then
menjadi :
ElseIf clng(0 & txtJumlahBeli.Text) > clng(0 & lblStok.Caption) Then
Wassalam,
Kid.
2013/6/28 lapendosol opik <lapendosol@yahoo.com <mailto:lapendosol@yahoo.com >>
ElseIf txtJumlahBeli.Text > lblStok.Caption Then
Menyambung pertanyaan dibawah ini, untuk menuliskan koding pada VBA agas nilai suatu text box hanya dapat diisi berupa numeric dan huruf capital saja (Key Ascii : 48 s.d. 57 dan key ascii 65 s.d. 90) membuat kodingnya bagaimana ya?
Rgds,
AA
From: belajar-excel@
Sent: 28 Juni 2013 15:00
To: belajar-excel@
Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
Coba script berikut mas, buat mengalter karakter selain angka
Private Sub txtDisplay_KeyPress
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub
Atau bisa juga pada event keydown, sbb:
Private Sub txtDisplay_KeyDown(
If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
End Sub
Rgds,
[dp]
On 28/06/2013 11:45, lapendosol opik wrote:
Trimakasih Mas Kid
Scriptnya berjalan sesuai keinginan.
Pertanyaan yg kedua supaya textboxnya hanya bisa terisi dengan angka saja harus disisipkan script gimana?
Saya pake script VB tapi ga berhasil :'(
Private Sub txtDisplay_KeyPress
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
End Select
KeyAscii = 0
End Sub
____________
From: Mr. Kid <mr.nmkid@gmail.
To: BeExcel <belajar-excel@
Sent: Friday, June 28, 2013 2:33 AM
Subject: Re: [belajar-excel] VBA (error pada perbandingan nilai)
Manusia membandingkan angka yang satu dengan angka yang lainnya bisa dengan mudah karena secara tidak sadar otak manusia mengkonversi setiap tulisan angka menjadi suatu data bertipe numerik.
Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.
Ubah bagian :
ElseIf txtJumlahBeli.
menjadi :
ElseIf clng(0 & txtJumlahBeli.
Wassalam,
Kid.
2013/6/28 lapendosol opik <lapendosol@yahoo.
ElseIf txtJumlahBeli.
Tue Jul 2, 2013 2:56 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba pakai Select Case supaya punya variasi lain selain IF ELSEIF ELSE ENDIF
Select case keyascii
case 48 to 57 , 65 to 90
'lakukan apa
case else
keyascii=0
end select
Wassalam,
Kid.
2013/7/2 Ahmad Adriansyah <ahmad.adriansyah@trac.astra.co.id >
> **
>
>
> Dear Ms Jan, Om Kid, [dp], & Master lainnya,****
>
> Menyambung pertanyaan dibawah ini, untuk menuliskan koding pada VBA agas
> nilai suatu text box hanya dapat diisi berupa numeric dan huruf capital
> saja (Key Ascii : 48 s.d. 57 dan key ascii 65 s.d. 90) membuat kodingnya
> bagaimana ya?****
>
> ** **
>
> Rgds,****
>
> ** **
>
> AA****
>
> ** **
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com ] *On Behalf Of *De Premor
> *Sent:* 28 Juni 2013 15:00
> *To:* belajar-excel@yahoogroups.com
>
> *Subject:* Re: [belajar-excel] VBA (error pada perbandingan nilai)****
>
> ** **
>
> ** **
>
> Coba script berikut mas, buat mengalter karakter selain angka
>
> Private Sub txtDisplay_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
> If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
> End Sub
>
> Atau bisa juga pada event keydown, sbb:
>
> Private Sub txtDisplay_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
> ByVal Shift As Integer)
> If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
> End Sub
>
> Rgds,
> [dp]****
>
> On 28/06/2013 11:45, lapendosol opik wrote:****
>
> ** **
>
> Trimakasih Mas Kid
> Scriptnya berjalan sesuai keinginan.
> Pertanyaan yg kedua supaya textboxnya hanya bisa terisi dengan angka saja
> harus disisipkan script gimana?
> Saya pake script VB tapi ga berhasil :'(
>
> Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
> Dim ch As String
> ch = Chr$(KeyAscii)
> Select Case ch
> Case "0"
> cmdAngka_Click 0
> Case "1"
> cmdAngka_Click 1
> Case "2"
> cmdAngka_Click 2
> Case "3"
> cmdAngka_Click 3
> Case "4"
> cmdAngka_Click 4
> Case "5"
> cmdAngka_Click 5
> Case "6"
> cmdAngka_Click 6
> Case "7"
> cmdAngka_Click 7
> Case "8"
> cmdAngka_Click 8
> Case "9"
> cmdAngka_Click 9
> End Select
> KeyAscii = 0
> End Sub****
>
> ** **
>
> ** **
> ------------------------------
>
> *From:* Mr. Kid <mr.nmkid@gmail.com > <mr.nmkid@gmail.com >
> *To:* BeExcel <belajar-excel@yahoogroups.com ><belajar-excel@yahoogroups.com >
> *Sent:* Friday, June 28, 2013 2:33 AM
> *Subject:* Re: [belajar-excel] VBA (error pada perbandingan nilai)****
>
> ** **
>
> ****
>
> Manusia membandingkan angka yang satu dengan angka yang lainnya bisa
> dengan mudah karena secara tidak sadar otak manusia mengkonversi setiap
> tulisan angka menjadi suatu data bertipe numerik.****
>
> Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan
> memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi
> tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.****
>
>
> Ubah bagian :****
>
> ElseIf txtJumlahBeli.Text > lblStok.Caption Then****
>
> menjadi :****
>
> ElseIf clng(0 & txtJumlahBeli.Text) > clng(0 & lblStok.Caption) Then*
> ***
>
> ** **
>
> Wassalam,****
>
> Kid.****
>
> ** **
>
> 2013/6/28 lapendosol opik <lapendosol@yahoo.com >****
>
> ElseIf txtJumlahBeli.Text > lblStok.Caption Then****
>
> ** **
>
> ** **
>
> ** **
>
> ****
>
>
>
Select case keyascii
case 48 to 57 , 65 to 90
'lakukan apa
case else
keyascii=0
end select
Wassalam,
Kid.
2013/7/2 Ahmad Adriansyah <ahmad.adriansyah@
> **
>
>
> Dear Ms Jan, Om Kid, [dp], & Master lainnya,****
>
> Menyambung pertanyaan dibawah ini, untuk menuliskan koding pada VBA agas
> nilai suatu text box hanya dapat diisi berupa numeric dan huruf capital
> saja (Key Ascii : 48 s.d. 57 dan key ascii 65 s.d. 90) membuat kodingnya
> bagaimana ya?****
>
> ** **
>
> Rgds,****
>
> ** **
>
> AA****
>
> ** **
>
> *From:* belajar-excel@
> belajar-excel@
> *Sent:* 28 Juni 2013 15:00
> *To:* belajar-excel@
>
> *Subject:* Re: [belajar-excel] VBA (error pada perbandingan nilai)****
>
> ** **
>
> ** **
>
> Coba script berikut mas, buat mengalter karakter selain angka
>
> Private Sub txtDisplay_KeyPress
> If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
> End Sub
>
> Atau bisa juga pada event keydown, sbb:
>
> Private Sub txtDisplay_KeyDown(
> ByVal Shift As Integer)
> If KeyCode > 57 And KeyCode < 96 Or KeyCode > 105 Then KeyCode = 0
> End Sub
>
> Rgds,
> [dp]****
>
> On 28/06/2013 11:45, lapendosol opik wrote:****
>
> ** **
>
> Trimakasih Mas Kid
> Scriptnya berjalan sesuai keinginan.
> Pertanyaan yg kedua supaya textboxnya hanya bisa terisi dengan angka saja
> harus disisipkan script gimana?
> Saya pake script VB tapi ga berhasil :'(
>
> Private Sub txtDisplay_KeyPress
> Dim ch As String
> ch = Chr$(KeyAscii)
> Select Case ch
> Case "0"
> cmdAngka_Click 0
> Case "1"
> cmdAngka_Click 1
> Case "2"
> cmdAngka_Click 2
> Case "3"
> cmdAngka_Click 3
> Case "4"
> cmdAngka_Click 4
> Case "5"
> cmdAngka_Click 5
> Case "6"
> cmdAngka_Click 6
> Case "7"
> cmdAngka_Click 7
> Case "8"
> cmdAngka_Click 8
> Case "9"
> cmdAngka_Click 9
> End Select
> KeyAscii = 0
> End Sub****
>
> ** **
>
> ** **
> ------------
>
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* BeExcel <belajar-excel@
> *Sent:* Friday, June 28, 2013 2:33 AM
> *Subject:* Re: [belajar-excel] VBA (error pada perbandingan nilai)****
>
> ** **
>
> ****
>
> Manusia membandingkan angka yang satu dengan angka yang lainnya bisa
> dengan mudah karena secara tidak sadar otak manusia mengkonversi setiap
> tulisan angka menjadi suatu data bertipe numerik.****
>
> Berhubung mesin VBA tidak secanggih otak manusia, maka kita bantu dengan
> memberi nilai bertipe numerik untuk dibandingkan atau perintah konversi
> tipe data ke numerik agar si VBA tahu apa yang harus dikerjakannya.
>
>
> Ubah bagian :****
>
> ElseIf txtJumlahBeli.
>
> menjadi :****
>
> ElseIf clng(0 & txtJumlahBeli.
> ***
>
> ** **
>
> Wassalam,***
>
> Kid.****
>
> ** **
>
> 2013/6/28 lapendosol opik <lapendosol@yahoo.
>
> ElseIf txtJumlahBeli.
>
> ** **
>
> ** **
>
> ** **
>
> ****
>
>
>
Tue Jul 2, 2013 3:51 am (PDT) . Posted by:
"HAMINUDDIN MS" andheez13
Dear,
Sebagai pemula macro excel, saya bingung menuliskan perintah kode macro pada bagian yang saya sorot berwarna kuning di bawah (PROGRESS.SERVICE_ADVISOR= ), di bagian tersebut saya ingin menuliskan perintah untuk memanggil range cell yang berada di sheet, jika saya menekan button maka apa yang saya tuliskan pada range cell tersebut maka akan otomatis menarik data dari sistem kantor saya.
Berikut contoh dibawah:
Sub wip()
'
' wip Macro
'
' Keyboard Shortcut: Ctrl+w
'
Dim WIP1 As String
Sheets("SA").Select
Range("serv1").Select
WIP1 = Selection.Value
Sheets("WIP").Select
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"ODBC;DSN=HK URIP;UID=cms;;APP=2007 Microsoft Office system;WSID=TWC;DATABASE=MIGRASI" _
, Destination:=Range("$A$1")).QueryTable
.CommandText = Array( _
"SELECT PROGRESS.POLICE_NO, PROGRESS.CUSTOMER, PROGRESS.BILLING_TO, PROGRESS.STATUS, PROGRESS.DP_NO, PROGRESS.SERVICE_ORDER, PROGRESS.INVOICE_NO, PROGRESS.INVOICE_DATE, PROGRESS.TAX_NO, PROGRESS.TAX_DA" _
, _
"TE, PROGRESS.REPAIR_DATE, PROGRESS.RECEIVE_DATE, PROGRESS.RECEIVE_TIME, PROGRESS.START_TIME, PROGRESS.FINISH_TIME, PROGRESS.ESTIMATE_DATE, PROGRESS.ESTIMATE_TIME, PROGRESS.DELIVERY_DATE, PROGRESS.DELI" _
, _
"VERY_TIME, PROGRESS.RETURN_DATE, PROGRESS.DP_DATE, PROGRESS.DISC_SERVICE, PROGRESS.DISC_PART, PROGRESS.LABOR_HOUR, PROGRESS.RATE, PROGRESS.RATE_TECH, PROGRESS.LABOR, PROGRESS.PART, PROGRESS.MATERIAL, " _
, _
"PROGRESS.OIL, PROGRESS.SUBLET, PROGRESS.DISCOUNT, PROGRESS.DP, PROGRESS.PPN, PROGRESS.METERAI, PROGRESS.TOTAL, PROGRESS.SERVICE_ADVISOR, PROGRESS.TECHNICIAN, PROGRESS.BILLING_MAN, PROGRESS.CLOSING_MAN" _
, _
", PROGRESS.VIA, PROGRESS.KM, PROGRESS.CUSTOMER_CODE, PROGRESS.CUSTOMER_TYPE, PROGRESS.REPAIR_TYPE, PROGRESS.VDS, PROGRESS.MODEL_TYPE, PROGRESS.PAY_TYPE, PROGRESS.CORPORATE, PROGRESS.PAID, PROGRESS.AR," _
, _
" PROGRESS.WAIT, PROGRESS.PART_CONFIRM, PROGRESS.EM, PROGRESS.SPK, PROGRESS.SUGGESTION, PROGRESS.NOTES, PROGRESS.NOTES_SLIP, PROGRESS.REQUEST_1, PROGRESS.REQUEST_2, PROGRESS.REQUEST_3, PROGRESS.REQUEST" _
, _
"_4, PROGRESS.REQUEST_5, PROGRESS.REQUEST_6, PROGRESS.REQUEST_7, PROGRESS.REQUEST_8, PROGRESS.FLAG" & Chr(13) & "" & Chr(10) & "FROM MIGRASI.dbo.PROGRESS PROGRESS" & Chr(13) & "" & Chr(10) & "WHERE (PROGRESS.STATUS>;='20' And PROGRESS.STATUS<='50') AND (PROG" _
, _
"RESS.REPAIR_DATE>={ts '2012-01-01 00:00:00'} And PROGRESS.REPAIR_DATE<={ts '2012-12-31 00:00:00'}) AND (PROGRESS.SERVICE_ADVISOR= )" _
)
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Table_Query_from_HK_URIP"
.Refresh BackgroundQuery:=False
End With
Range("L13").Select
End Sub
Sebagai pemula macro excel, saya bingung menuliskan perintah kode macro pada bagian yang saya sorot berwarna kuning di bawah (PROGRESS.SERVICE_
Berikut contoh dibawah:
Sub wip()
'
' wip Macro
'
' Keyboard Shortcut: Ctrl+w
'
Dim WIP1 As String
Sheets("
Range("
WIP1 = Selection.Value
Sheets("
With ActiveSheet.
"ODBC;DSN=
, Destination:
.CommandText = Array( _
"SELECT PROGRESS.POLICE_
, _
"TE, PROGRESS.REPAIR_
, _
"VERY_TIME, PROGRESS.RETURN_
, _
"PROGRESS.
, _
", PROGRESS.VIA, PROGRESS.KM, PROGRESS.CUSTOMER_
, _
" PROGRESS.WAIT, PROGRESS.PART_
, _
"_4, PROGRESS.REQUEST_
, _
"RESS.REPAIR_
)
.RowNumbers = False
.FillAdjacentFormul
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.
.Refresh BackgroundQuery:
End With
Range("
End Sub
Tue Jul 2, 2013 5:19 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Bagian :
"RESS.REPAIR_DATE>={ts '2012-01-01 00:00:00'} And PROGRESS.REPAIR_DATE<={ts
'2012-12-31 00:00:00'}) AND (PROGRESS.SERVICE_ADVISOR= )"
menjadi :
"RESS.REPAIR_DATE>={ts '2012-01-01 00:00:00'} And PROGRESS.REPAIR_DATE<={ts
'2012-12-31 00:00:00'}) AND (PROGRESS.SERVICE_ADVISOR=" & sheets("nama
sheetnya").range("alamatcellnya").value & ")"
Wassalam,
Kid.
On Tue, Jul 2, 2013 at 5:24 PM, HAMINUDDIN MS <andheez.kalla@yahoo.co.id >wrote:
> "RESS.REPAIR_DATE>={ts '2012-01-01 00:00:00'} And
> PROGRESS.REPAIR_DATE<={ts '2012-12-31 00:00:00'}) AND
> (PROGRESS.SERVICE_ADVISOR= )"
"RESS.REPAIR_
'2012-12-
menjadi :
"RESS.REPAIR_
'2012-12-
sheetnya"
Wassalam,
Kid.
On Tue, Jul 2, 2013 at 5:24 PM, HAMINUDDIN MS <andheez.kalla@
> "RESS.REPAIR_
> PROGRESS.REPAIR_
> (PROGRESS.SERVICE_
Tue Jul 2, 2013 3:52 am (PDT) . Posted by:
"Shenly" shenly_excelmania
sebelumnya terima kasih untuk Mr, kid untk arahannya mengenai pertanyaan saya sebelumnya,
sekarang sya mau menanyakan mengenai pembuatan rang/difinename dinamis,
sebelumnya saya sudah membaca di blog coretan Mr.Kid mengenai pendinamisan rang, tapi disana hanya dijeaskan pendinamisan rang ke segala arah, (horisontal,vartikal),
dengan contoh rumus seperti ini =INDEX(A:A,COUNTA(A:A)):INDEX(1:1,COUNTA(1:1))
jadi pertanyaannya....bagai mana membuat rumusan untuk rang dinamis 1 arah???
terima kasih
salam
Shenly ^^*
sekarang sya mau menanyakan mengenai pembuatan rang/difinename dinamis,
sebelumnya saya sudah membaca di blog coretan Mr.Kid mengenai pendinamisan rang, tapi disana hanya dijeaskan pendinamisan rang ke segala arah, (horisontal,
dengan contoh rumus seperti ini =INDEX(A:A,COUNTA(
jadi pertanyaannya.
terima kasih
salam
Shenly ^^*
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar