Messages In This Digest (19 Messages)
- 1a.
- Bls: [belajar-excel] Mengurutkan data hasil filter menggunakan Array From: ghozi alkatiri
- 1b.
- Bls: [belajar-excel] Mengurutkan data hasil filter menggunakan Array From: dwint ruswanto
- 1c.
- Re: Mengurutkan data hasil filter menggunakan Array Formula From: Haps
- 1d.
- Bls: [belajar-excel] Mengurutkan data hasil filter menggunakan Array From: dwint ruswanto
- 2a.
- Masalah Lookup yang rumit From: Mansor
- 2b.
- Re: Masalah Lookup yang rumit From: jkssxls Sudarsono
- 2c.
- Re: Masalah Lookup yang rumit From: Mansor
- 2d.
- Re: Masalah Lookup yang rumit From: jkssxls Sudarsono
- 2e.
- Re: Masalah Lookup yang rumit From: jkssxls Sudarsono
- 3.
- OOT: Office 365 From: jkssxls Sudarsono
- 4a.
- EDIT DATA From: Djati Walujo
- 4b.
- Re: EDIT DATA From: hendrik karnadi
- 4c.
- Fw: [belajar-excel] EDIT DATA From: hendrik karnadi
- 4d.
- Re: EDIT DATA From: Haps
- 4e.
- Re: EDIT DATA From: jkssxls Sudarsono
- 4f.
- Re: EDIT DATA From: jkssxls Sudarsono
- 4g.
- Re: EDIT DATA From: jkssxls Sudarsono
- 4h.
- Re: EDIT DATA From: jkssxls Sudarsono
- 5.1.
- File - Peraturan Milis belajar-excel From: belajar-excel@yahoogroups.com
Messages
- 1a.
-
Bls: [belajar-excel] Mengurutkan data hasil filter menggunakan Array
Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id ghozialkatiri
Wed Nov 30, 2011 3:22 pm (PST)
untuk mengurutkan nama produk secara alfabetis (ascending ) berdasarkan produk yang jumlah quantitinya lebih dari 0 tanpa kolom bantu dengan formula array
{=IF(ROW(A1)>COUNTIF( $C$3:$C$12; ">0");""; IFERROR(INDEX( $B$3:$B$12; MATCH(SMALL( IFERROR(COUNTIF( $B$3:$B$12; "<"&$B$3: $B$12)*$C$ 3:$C$12/$ C$3:$C$12; "");ROW(A1) );COUNTIF( $B$3:$B$12; "<"&$B$3: $B$12);0) );Q2))}
pada attachment kolom warna kuning
dari hasil di kolom ini untuk mencari nilai lainnya bisa disesuaikan
lihat attachment
wassalam
Ghozi Alkatiri
_____________________ _________ __
Dari: dwint ruswanto <dwint.ruswanto@yahoo.co. >id
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Rabu, 30 November 2011 13:15
Judul: [belajar-excel] Mengurutkan data hasil filter menggunakan Array Formula
Rekan-rekan millis belajar excel yang baik..
bagaimana caranya mengurutkan data hasil filter menggunakan fungsi SMALL + array, (tolong dengan menggunakan formula saja, karena saya belum familiar dengan VBA)
Rec_no No Nama Produk Qty
2 1 BAA 1
3 2 AAB 2
5 3 BAC 4
6 4 ABC 5
9 5 AAA 3
Tabel di atas adalah hasil sortir menggunakan formula SMALL tetapi belum urut berdasarkan nama produk
Dan tabel di bawah adalah hasil yang diinginkan.
Rec_no No Nama Produk Qty
9 5 AAA 3
3 2 AAB 2
6 4 ABC 5
2 1 BAA 1
5 3 BAC 4
Dulu saya bisa mengerti fungsi small + array ini atas bimbingan dari mbak Siti.. makasih mbak :D
wassalam,
dwint
- 1b.
-
Bls: [belajar-excel] Mengurutkan data hasil filter menggunakan Array
Posted by: "dwint ruswanto" dwint.ruswanto@yahoo.co.id dwint.ruswanto
Wed Nov 30, 2011 5:38 pm (PST)
terima kasih mas ghozi.. solusi anda mantap sekali.. sangat memberikan pencerahan dan ilmu baru untuk saya..
senangnya bergabung dengan millis ini :D
wassalam,
dwint
_____________________ _________ __
Dari: ghozi alkatiri <ghozialkatiri@yahoo.co. >id
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Kamis, 1 Desember 2011 6:22
Judul: Bls: [belajar-excel] Mengurutkan data hasil filter menggunakan Array Formula
untuk mengurutkan nama produk secara alfabetis (ascending ) berdasarkan produk yang jumlah quantitinya lebih dari 0 tanpa kolom bantu dengan formula array
{=IF(ROW(A1)>COUNTIF( $C$3:$C$12; ">0");""; IFERROR(INDEX( $B$3:$B$12; MATCH(SMALL( IFERROR(COUNTIF( $B$3:$B$12; "<"&$B$3: $B$12)*$C$ 3:$C$12/$ C$3:$C$12; "");ROW(A1) );COUNTIF( $B$3:$B$12; "<"&$B$3: $B$12);0) );Q2))}
pada attachment kolom warna kuning
dari hasil di kolom ini untuk mencari nilai lainnya bisa disesuaikan
lihat attachment
wassalam
Ghozi Alkatiri
_____________________ _________ __
Dari: dwint ruswanto <dwint.ruswanto@yahoo.co. >id
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Rabu, 30 November 2011 13:15
Judul: [belajar-excel] Mengurutkan data hasil filter menggunakan Array Formula
Rekan-rekan millis belajar excel yang baik..
bagaimana caranya mengurutkan data hasil filter menggunakan fungsi SMALL + array, (tolong dengan menggunakan formula saja, karena saya belum familiar dengan VBA)
Rec_no No Nama Produk Qty
2 1 BAA 1
3 2 AAB 2
5 3 BAC 4
6 4 ABC 5
9 5 AAA 3
Tabel di atas adalah hasil sortir menggunakan formula SMALL tetapi belum urut berdasarkan nama produk
Dan tabel di bawah adalah hasil yang diinginkan.
Rec_no No Nama Produk Qty
9 5 AAA 3
3 2 AAB 2
6 4 ABC 5
2 1 BAA 1
5 3 BAC 4
Dulu saya bisa mengerti fungsi small + array ini atas bimbingan dari mbak Siti.. makasih mbak :D
wassalam,
dwint
- 1c.
-
Re: Mengurutkan data hasil filter menggunakan Array Formula
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Wed Nov 30, 2011 6:46 pm (PST)
Hanya untuk sharing pendapat.....
*Takutnya* (atau lebih tepatnya: *"APABILA"*) UNTUK MENGHADAPI DATA
KEMBAR,..
maka rumus TSB memang belum disiapkan untuk itu..
Dlm kasus pak Dwint memang NAMA-PRODUK dlm satu entity: tidak bisa kembar
Tetapi dlm kasus lain yg sangat mirip bisa saja *kolom yg akan
diurutkan berisi Data kembar*
*(satu kolom ditempati oleh data-da-ta yg tidak bersifat UNIQUE)*
Jika seperti itu kasusnya, maka hasilnya akan seperti ini (gambar)
[image: mengurutkan dengan ada data kembar.GIF]
2011/12/1 dwint ruswanto <dwint.ruswanto@yahoo.co. >id
> **
> terima kasih mas ghozi.. solusi anda mantap sekali.. sangat memberikan
> pencerahan dan ilmu baru untuk saya..
> senangnya bergabung dengan millis ini :D
> wassalam,
> dwint
>
> Dari: ghozi alkatiri <ghozialkatiri@yahoo.co. >id
> Dikirim: Kamis, 1 Desember 2011 6:22
>
> untuk mengurutkan nama produk secara alfabetis (ascending ) berdasarkan
> produk yang jumlah quantitinya lebih dari 0 tanpa kolom bantu dengan
> formula array
>
>
> {=IF(ROW(A1)>COUNTIF( $C$3:$C$12; ">0");""; IFERROR(INDEX( $B$3:$B$12; MATCH(SMALL( IFERROR(COUNTIF( $B$3:$B$12; "<"&$B$3: $B$12)*$C$ 3:$C$12/$ C$3:$C$12; "");ROW(A1) );COUNTIF( $B$3:$B$12; "<"&$B$3: $B$12);0) );Q2))}
>
> pada attachment kolom warna kuning
> dari hasil di kolom ini untuk mencari nilai lainnya bisa disesuaikan
> lihat attachment
> wassalam
>
- 1d.
-
Bls: [belajar-excel] Mengurutkan data hasil filter menggunakan Array
Posted by: "dwint ruswanto" dwint.ruswanto@yahoo.co.id dwint.ruswanto
Wed Nov 30, 2011 6:55 pm (PST)
sebetulnya nama produk dalam kasus saya bisa kembar identik seperti kata mbak Hapsari.. dan untuk membedakannya ada 1 key lagi yang bersifat unik yang tidak saya masukkan ke dalam contoh data.
data yang saya tampilkan dibuat sederhana agar saya mudah untuk mempelajarinya..
terima kasih untuk mbak hapsari dan mas ghozi atas pencerahannya :D
wassalam,
dwint
_____________________ _________ __
Dari: Haps <hapsari.stlizbeth@gmail.com >
Kepada: belajar-excel@yahoogroups. com
Dikirim: Kamis, 1 Desember 2011 9:45
Judul: Re: [belajar-excel] Mengurutkan data hasil filter menggunakan Array Formula
Hanya untuk sharing pendapat.....
Takutnya (atau lebih tepatnya: "APABILA") UNTUK MENGHADAPI DATA KEMBAR,..
maka rumus TSB memang belum disiapkan untuk itu..
Dlm kasus pak Dwint memang NAMA-PRODUK dlm satu entity: tidak bisa kembar
Tetapi dlm kasus lain yg sangat mirip bisa saja kolom yg akan diurutkan berisiData kembar
(satu kolom ditempati oleh data-da-ta yg tidak bersifat UNIQUE)
Jika seperti itu kasusnya, maka hasilnya akan seperti ini (gambar)
2011/12/1 dwint ruswanto <dwint.ruswanto@yahoo.co. >id
>terima kasih mas ghozi.. solusi anda mantap sekali.. sangat memberikan pencerahan dan ilmu baru untuk saya..
>senangnya bergabung dengan millis ini :D
>wassalam,
>dwint
>
> Dari: ghozi alkatiri <ghozialkatiri@yahoo.co. >id
>Dikirim: Kamis, 1 Desember 2011 6:22
>
>untuk mengurutkan nama produk secara alfabetis (ascending ) berdasarkan produk yang jumlah quantitinya lebih dari 0 tanpa kolom bantu dengan formula array
>
>{=IF(ROW(A1)>COUNTIF( $C$3:$C$12; ">0");""; IFERROR(INDEX( $B$3:$B$12; MATCH(SMALL( IFERROR(COUNTIF( $B$3:$B$12; "<"&$B$3: $B$12)*$C$ 3:$C$12/$ C$3:$C$12; "");ROW(A1) );COUNTIF( $B$3:$B$12; "<"&$B$3: $B$12);0) );Q2))}
>
>pada attachment kolom warna kuning
>dari hasil di kolom ini untuk mencari nilai lainnya bisa disesuaikan
>lihat attachment
>wassalam
- 2a.
-
Masalah Lookup yang rumit
Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980
Wed Nov 30, 2011 3:31 pm (PST)
Para guru dan teman teman BeExcel,
Saya ada table A yang di lookup dari table B.
Data yang diloookup ialah berdasarkan tanggal transaksi.
Setiap tanggal mempunyai beberapa baris data. Contohnya pada 20111118 ada 6
baris, TETAPI, 20111118
tidak ditulis di semua keenam enam baris, cuma di dua baris sahaja.
Sedangkan 20111118
merupakan tempat rujukan untuk lookup data dari table B. Jumlah baris bagi
setiap tanggal di table A tidak tetap,
tergantung jumlah data di table B, tapi minimal 4.
( saya bingung ngejelasin-nya, langsung liat ke lampiran aja ya ),
Terima kasih. Wassalam
Mansor
- 2b.
-
Re: Masalah Lookup yang rumit
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Wed Nov 30, 2011 6:24 pm (PST)
1. menurut pendapatnya saya posting-code perlu dijelaskan :1. 25 -->2. 31 -->3. 50 -->2. Posisi nilai di Debet dan Credit dalam hal pengisian di kolom amount di bedakan oleh apa 3. apa yang menentukan suatu transaksi masuk MM dan ZZ, misal jika transaksi bersifat Kredit ( pengeluaran tunai ) masuk ke MM atau ZZ Jika sudah di buat jelas , baru dapat dibuat VBA-nya ( pakai Array Formula ? mungkin bisa , memaksakan diri , tapi sebuah tantangan ) mengapa cari sudah kalau ada yang lebih mudahtapi petugas negara malah berprinsip : kalau bisa dipersulit mengapa harus dipermudah To: belajar-excel@yahoogroups. com
From: dbpermatasari@gmail.com
Date: Thu, 1 Dec 2011 05:45:24 +0800
Subject: [belajar-excel] Masalah Lookup yang rumit
Para guru dan teman teman BeExcel,
Saya ada table A yang di lookup dari table B.
Data yang diloookup ialah berdasarkan tanggal transaksi.
Setiap tanggal mempunyai beberapa baris data. Contohnya pada 20111118 ada 6 baris, TETAPI, 20111118
tidak ditulis di semua keenam enam baris, cuma di dua baris sahaja. Sedangkan 20111118
merupakan tempat rujukan untuk lookup data dari table B. Jumlah baris bagi setiap tanggal di table A tidak tetap,
tergantung jumlah data di table B, tapi minimal 4.
( saya bingung ngejelasin-nya, langsung liat ke lampiran aja ya ),
Terima kasih. Wassalam
Mansor
- 2c.
-
Re: Masalah Lookup yang rumit
Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980
Thu Dec 1, 2011 1:17 am (PST)
Dear Pak Sudarsono,
Aturannya setiap tanggal ada 2 bagian.
1) Bagian pertama adalah MM, kedua ZZ.
No 1 adalah item MM, no 2 adalah ZZ.
Bagitulah seterusnya No 3 MM, No 4, ZZ.
Aturan Posting Key (PK)
Debet
Kredit
Customer Account
25
31
Ledger Account
40
50
2) Penentu Debet atau Kredit, contoh tanggal 18.
Nilai Totalnya 140,273.45 akan jadi debit dan memakai PK 25
Nilai kreditnya jumlah yang membentuk Nilai Total (2850.00 + 5294.00 +
132,129.45) dan memakai PK 31.
*Artinya debet Total Customer Account, kredit item item dalam customer
account*.
Sekiranya hanya ada Nilai Total sahaja seperti tgl 19,
*Debit Total, dan Kredit Total*
3) Bagian kedua bagi setiap tanggal ialah ZZ tujuannya untuk posting ke
Ledger Account.
Debet Nilai Total Customer Account, Credit Ledger Account.(Nilai yang sama
dgn Nilai Total).
4) Sekiranya ada transaksi withdrawal seperti pada tgl 20.
Debet Nilai Total 2718.00, PK 25.
Debit Nilai Withdrawal � 500.00 PK 25
Kredit Nilai Deposit yang lain 2430.00 dan 788.00
*Artinya 2718.00 adalah 2430.00 + 788.00 � 500.00.*
Semoga semakin jelas.
Terima kasih atas response bapak.
-Mansor
2011/12/1 jkssxls Sudarsono <jkssxls@hotmail.com >
> **
>
>
>
> 1. menurut pendapatnya saya posting-code perlu dijelaskan :
> 1. 25 -->
> 2. 31 -->
> 3. 50 -->
> 2. Posisi nilai di Debet dan Credit dalam hal pengisian di kolom amount di
> bedakan oleh apa
> 3. apa yang menentukan suatu transaksi masuk MM dan ZZ, misal jika
> transaksi bersifat Kredit ( pengeluaran tunai ) masuk ke MM atau ZZ
>
> Jika sudah di buat jelas , baru dapat dibuat VBA-nya ( pakai Array Formula
> ? mungkin bisa , memaksakan diri , tapi sebuah tantangan )
> *mengapa cari sudah kalau ada yang lebih mudah*
> tapi petugas negara malah berprinsip :
> *kalau bisa dipersulit mengapa harus dipermudah *
> ** - 2d.
-
Re: Masalah Lookup yang rumit
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Thu Dec 1, 2011 1:32 am (PST)
Transaction
Date
DESCRIPTION
Amount Dr
Amount Cr
20111118
FUND TRASNFER *
300,000.00
mengapa transaksi diatas tidak masuk kelompok MM ? Data di sheet1 info Customer Account atau Ledger Account di tentukan oleh apa ? Mungkin setelah semua lebih jelas , ada rekan2 lain yg lebih dahulu mengirimkan kode VBA untuk pemecahan kasus ini... To: belajar-excel@yahoogroups. com
From: dbpermatasari@gmail.com
Date: Thu, 1 Dec 2011 15:54:00 +0800
Subject: Re: [belajar-excel] Masalah Lookup yang rumit
Dear Pak Sudarsono,
Aturannya setiap tanggal ada 2 bagian.
1)Bagian pertama adalah MM, kedua ZZ.
No 1 adalah item MM, no 2 adalah ZZ.
Bagitulah seterusnya No 3 MM, No 4, ZZ.
Aturan Posting Key (PK)
Debet
Kredit
Customer Account
25
31
Ledger Account
40
50
2) Penentu Debet atau Kredit, contoh tanggal 18.
Nilai Totalnya 140,273.45 akan jadi debit dan memakai PK 25
Nilai kreditnya jumlah yang membentuk Nilai Total (2850.00 + 5294.00 + 132,129.45) dan memakai PK 31.
Artinya debet Total Customer Account, kredit item item dalam customer account.
Sekiranya hanya ada Nilai Total sahaja seperti tgl 19,
Debit Total, dan Kredit Total
3) Bagian kedua bagi setiap tanggal ialah ZZ tujuannya untuk posting ke Ledger Account.
Debet Nilai Total Customer Account, Credit Ledger Account.(Nilai yang sama dgn Nilai Total).
4) Sekiranya ada transaksi withdrawal seperti pada tgl 20.
Debet Nilai Total 2718.00, PK 25.
Debit Nilai Withdrawal 500.00 PK 25
Kredit Nilai Deposit yang lain 2430.00 dan 788.00
Artinya 2718.00 adalah 2430.00 + 788.00 500.00.
Semoga semakin jelas.
Terima kasih atas response bapak.-Mansor
2011/12/1 jkssxls Sudarsono <jkssxls@hotmail.com >
1. menurut pendapatnya saya posting-code perlu dijelaskan :
1. 25 -->
2. 31 -->
3. 50 -->
2. Posisi nilai di Debet dan Credit dalam hal pengisian di kolom amount di bedakan oleh apa
3. apa yang menentukan suatu transaksi masuk MM dan ZZ, misal jika transaksi bersifat Kredit ( pengeluaran tunai ) masuk ke MM atau ZZ
Jika sudah di buat jelas , baru dapat dibuat VBA-nya ( pakai Array Formula ? mungkin bisa , memaksakan diri , tapi sebuah tantangan )
mengapa cari susah kalau ada yang lebih mudah
tapi petugas negara malah berprinsip :
kalau bisa dipersulit mengapa harus dipermudah
- 2e.
-
Re: Masalah Lookup yang rumit
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Thu Dec 1, 2011 2:08 am (PST)
Transaction
Date
DESCRIPTION
Amount Dr
Amount Cr
20111118
FUND TRASNFER *
300,000.00
mengapa transaksi diatas tidak masuk kelompok MM ? Apa karena Reference No kosong ?
Data di sheet1 info Customer Account atau Ledger Account di tentukan oleh apa ?
Mungkin setelah semua lebih jelas , ada rekan2 lain yg lebih dahulu mengirimkan kode VBA untuk pemecahan kasus ini...
To: belajar-excel@yahoogroups. com
From: dbpermatasari@gmail.com
Date: Thu, 1 Dec 2011 15:54:00 +0800
Subject: Re: [belajar-excel] Masalah Lookup yang rumit
Dear Pak Sudarsono,
Aturannya setiap tanggal ada 2 bagian.
1)Bagian pertama adalah MM, kedua ZZ.
No 1 adalah item MM, no 2 adalah ZZ.
Bagitulah seterusnya No 3 MM, No 4, ZZ.
Aturan Posting Key (PK)
Debet
Kredit
Customer Account
25
31
Ledger Account
40
50
2) Penentu Debet atau Kredit, contoh tanggal 18.
Nilai Totalnya 140,273.45 akan jadi debit dan memakai PK 25
Nilai kreditnya jumlah yang membentuk Nilai Total (2850.00 + 5294.00 + 132,129.45) dan memakai PK 31.
Artinya debet Total Customer Account, kredit item item dalam customer account.
Sekiranya hanya ada Nilai Total sahaja seperti tgl 19,
Debit Total, dan Kredit Total
3) Bagian kedua bagi setiap tanggal ialah ZZ tujuannya untuk posting ke Ledger Account.
Debet Nilai Total Customer Account, Credit Ledger Account.(Nilai yang sama dgn Nilai Total).
4) Sekiranya ada transaksi withdrawal seperti pada tgl 20.
Debet Nilai Total 2718.00, PK 25.
Debit Nilai Withdrawal 500.00 PK 25
Kredit Nilai Deposit yang lain 2430.00 dan 788.00
Artinya 2718.00 adalah 2430.00 + 788.00 500.00.
Semoga semakin jelas.
Terima kasih atas response bapak.-Mansor
2011/12/1 jkssxls Sudarsono <jkssxls@hotmail.com >
1. menurut pendapatnya saya posting-code perlu dijelaskan :
1. 25 -->
2. 31 -->
3. 50 -->
2. Posisi nilai di Debet dan Credit dalam hal pengisian di kolom amount di bedakan oleh apa
3. apa yang menentukan suatu transaksi masuk MM dan ZZ, misal jika transaksi bersifat Kredit ( pengeluaran tunai ) masuk ke MM atau ZZ
Jika sudah di buat jelas , baru dapat dibuat VBA-nya ( pakai Array Formula ? mungkin bisa , memaksakan diri , tapi sebuah tantangan )
mengapa cari susah kalau ada yang lebih mudah
tapi petugas negara malah berprinsip :
kalau bisa dipersulit mengapa harus dipermudah
- 3.
-
OOT: Office 365
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Wed Nov 30, 2011 6:55 pm (PST)
Bagi Be-exceller yang ingin mengikuti perkembangan Office secara Internet dapat belajar mencoba office 365 ( mumpung ada versi trial 30 hari ) .silakan menuju www.office365.co.id. Apa sudah mendukung pemrograman Script , seperti VBA . Silakan gali info disana . Saya sih harapkan sudah mendukung HTML5 ( karena ada fitur kaya AJAX di HTML5 ) Selamat belajar Office OnLine ... ( cape belajar terus yah .... )
- 4a.
-
EDIT DATA
Posted by: "Djati Walujo" walujodjati@yahoo.co.id
Wed Nov 30, 2011 7:27 pm (PST)
Salam kenal semuanya para pakar Excel
Saya pendatang baru, dan langsung ingin minta bantuan dan bertanya masalah edit data terhadap
data yang pernah kita entrykan karena ternyata ada kesalahan, seperti
contoh berikut :
Supaya jelas saya lampirkan pula contoh file nya.
Terima kasih kepada semua pakar pakar Excel.
Djati W
Surabaya
- 4b.
-
Re: EDIT DATA
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Wed Nov 30, 2011 7:44 pm (PST)
Kalau anda mau pakai Macro, silakan buka contoh file terlampir (WARISAN dari Mbak SITI). TInggal dimodifikasi sesuai kebutuhan.
Bisa digunakan di Excel 2007 dan 2010
Salam,
Hendri Karnadi
_____________________ _________ __
From: Djati Walujo <walujodjati@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 1 December 2011, 9:20
Subject: [belajar-excel] EDIT DATA
Salam kenal semuanya para pakar Excel
Saya pendatang baru, dan langsung ingin minta bantuan dan bertanya masalah edit data terhadap data yang pernah kita entrykan karena ternyata ada kesalahan, seperti contoh berikut :
Supaya jelas saya lampirkan pula contoh file nya.
Terima kasih kepada semua pakar pakar Excel.
Djati W
Surabaya
- 4c.
-
Fw: [belajar-excel] EDIT DATA
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Wed Nov 30, 2011 7:47 pm (PST)
Atau bisa juga pakai Data Form yang disediakan Excel.
Salam,
Hendrik Karnadi
----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com >
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 1 December 2011, 10:44
Subject: Re: [belajar-excel] EDIT DATA
Kalau anda mau pakai Macro, silakan buka contoh file terlampir (WARISAN dari Mbak SITI). TInggal dimodifikasi sesuai kebutuhan.
Bisa digunakan di Excel 2007 dan 2010
Salam,
Hendri Karnadi
_____________________ _________ __
From: Djati Walujo <walujodjati@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Thursday, 1 December 2011, 9:20
Subject: [belajar-excel] EDIT DATA
Salam kenal semuanya para pakar Excel
Saya pendatang baru, dan langsung ingin minta bantuan dan bertanya masalah edit data terhadap data yang pernah kita entrykan karena ternyata ada kesalahan, seperti contoh berikut :
Supaya jelas saya lampirkan pula contoh file nya.
Terima kasih kepada semua pakar pakar Excel.
Djati W
Surabaya
- 4d.
-
Re: EDIT DATA
Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_hap
Wed Nov 30, 2011 7:47 pm (PST)
Di Excel, terhadap sebuah* Tabel / List yg baik*, sudah disediakan FORM
(Data Form)
yg antara lain berguna untuk
- entri data
- pencarian
- edit / hapus data
Tabel harus sudah NORMAL, Heading sebaiknya (harusnya) dibuat satu baris
jangan beberapa *baris yg cells-nya di Merged-merged* (menjadi tidak sehat
di mata daabasae); seperti contoh yg bapak ajukan.
Di excel 2003 gampang dimunculkan melalui menu Data > FORM
Di excel 2007 di Tab Data, sepertinya tidak ada tool (icon shortcut) untuk
memunculkannya
Oleh karena itu harus di GAMPANGkan dengan menaruh Icon ShortCutnya ke Q.A.T
(Quick Access Toolbar)
Gambar-gambar di bawah ini mudah mudahan dapat menjelaskan maksud saya tsb
di atas..
1. *Menambahkan Icon DataFORM ke Q.A.T.*
[image: menambahkan tool (FORM...) di QAT.GIF]
2. *Q.A.T yg sudah berisi Tool Tambahan kita sendiri (customize)*
[image: QAT_2.PNG]
3. *Data Form*
(untuk memunculakan: SEleet tabelnya, klik Icon FORM)
[image: dataFORM.PNG]
2011/12/1 Djati Walujo <walujodjati@yahoo.co. >id
>
> Salam kenal semuanya para pakar Excel
> Saya pendatang baru, dan langsung ingin minta bantuan dan bertanya
masalah edit data
> terhadap data yang pernah kita entrykan karena ternyata ada kesalahan,
seperti contoh berikut :
>
> Supaya jelas saya lampirkan pula contoh file nya.
>
> Terima kasih kepada semua pakar pakar Excel.
>
> Djati W
> Surabaya
- 4e.
-
Re: EDIT DATA
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Wed Nov 30, 2011 11:07 pm (PST)
Dim StatusAksi As String
Dim BarisIsian As LongPrivate Sub UserForm_Initialize()' Susun Tab Stop
Call IsiTabIndex'Kosongkan semua TextBox
Call KosongkanText(True)'Tak Ada Aksi
StatusAksi = ""'CommandButton Default
Me.cmdAdd.Caption = "Add/EDit"
Me.cmdClose.Caption = "Close"
End SubPrivate Sub cmdAdd_Click()'Kembalikan ke CommandButton Default
Me.cmdAdd.Caption = "Add/EDit"
Me.cmdClose.Caption = "Close"' Agar dapat diisi
Me.txtnam.Locked = False
' posisi baru yg akan diisi
Dim iRow As Long
Dim ws As Worksheet Set ws = Worksheets("Data Induk")
Select Case StatusAksi
Case "ADD"
'find first empty row in database
iRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
Case "EDIT"
iRow = BarisIsian
End Select
'check for a part number
If Trim(Me.txtnam.Value) = "" Then
Me.txtnam.SetFocus
MsgBox "Masukkan Datanya Dulu"
Exit Sub
End If 'copy the data to the database
ws.Cells(iRow, 1).Value = iRow - 2
ws.Cells(iRow, 2).Value = Me.txtnam.Value
ws.Cells(iRow, 3).Value = Me.txtklmn.Value
ws.Cells(iRow, 4).Value = Me.txtkotlhr.Value
ws.Cells(iRow, 5).Value = Me.txttgllhr.Value
ws.Cells(iRow, 6).Value = Me.txtstat.Value
ws.Cells(iRow, 7).Value = Me.Txtalmt.Value
ws.Cells(iRow, 8).Value = Me.Txtkot.Value
ws.Cells(iRow, 9).Value = Me.txtagam.Value
ws.Cells(iRow, 10).Value = Me.txttglmsk.Value
ws.Cells(iRow, 11).Value = Me.txtunitmsk.Value
ws.Cells(iRow, 12).Value = Me.txtnid.Value
ws.Cells(iRow, 13).Value = Me.txtprk.Value
ws.Cells(iRow, 14).Value = Me.txtjab.Value
ws.Cells(iRow, 15).Value = Me.txtnpwp.Value
ws.Cells(iRow, 16).Value = Me.Txtisteri.Value
ws.Cells(iRow, 17).Value = Me.Txtank1.Value
ws.Cells(iRow, 18).Value = Me.Txtank2.Value
ws.Cells(iRow, 19).Value = Me.Txtank3.Value StatusAksi = ""
' Kosongkan
Call KosongkanText(True)' posisi fokus ke CmdAdd
Me.cmdAdd.SetFocus
End SubPrivate Sub cmdClose_Click()
If StatusAksi = "" Then' sbg Keluar
Unload Me
Else' Agar bisa di isi Me.txtnam.Locked = False' Aksi Add atau Edit jadi sbg cancel StatusAksi = ""
Call KosongkanText(True)
Me.cmdAdd.Caption = "Add/EDit"
Me.cmdClose.Caption = "Close"
End If
End Sub
Private Sub txtnam_KeyDown(ByVal KeyCode As MSForms.ReturnInteg er, ByVal Shift As Integer)' jika kosong ke CmdAdd
If (KeyCode = 9 Or KeyCode = 13) And Me.txtnam.Text = "" Then Me.cmdAdd.SetFocus
End SubPrivate Sub txtnam_Exit(ByVal Cancel As MSForms.ReturnBoole an)
If Me.txtnam.Text = "" Then' jika kosong keluar
Cancel = False
Exit Sub
End If
Dim ketemu As Range'cari dahulu pada 'data induk' di kolom B
Set ketemu = Worksheets("Data Induk").Range( "B:B").Find( what:=txtnam. Value, LookIn:=xlValues, LookAt:=XlLookAt. xlWhole)
If Not ketemu Is Nothing Then' Ada
BarisIsian = ketemu.Row
StatusAksi = "EDIT"
Me.txtklmn.Value = ketemu.Offset(0, 1).Value
Me.txtkotlhr.Value = ketemu.Offset( 0, 2).Value
Me.txttgllhr.Value = ketemu.Offset( 0, 3).Value
Me.txtstat.Value = ketemu.Offset(0, 4).Value
Me.Txtalmt.Value = ketemu.Offset(0, 5).Value
Me.Txtkot.Value = ketemu.Offset(0, 6).Value
Me.txtagam.Value = ketemu.Offset(0, 7).Value
Me.txttglmsk.Value = ketemu.Offset( 0, 8).Value
Me.txtunitmsk.Value = ketemu.Offset( 0, 9).Value
Me.txtnid.Value = ketemu.Offset(0, 10).Value
Me.txtprk.Value = ketemu.Offset(0, 11).Value
Me.txtjab.Value = ketemu.Offset(0, 12).Value
Me.txtnpwp.Value = ketemu.Offset(0, 13).Value
Me.Txtisteri.Value = ketemu.Offset( 0, 14).Value
Me.Txtank1.Value = ketemu.Offset(0, 15).Value
Me.Txtank2.Value = ketemu.Offset(0, 16).Value
Me.Txtank3.Value = ketemu.Offset(0, 17).Value
Else' belum ada
StatusAksi = "ADD"
Call KosongkanText(False)
End If
' jika Add atau Edit maka akan muncul Simpan dan Cancel Me.cmdAdd.Caption = "Simpan"
Me.cmdClose.Caption = "Cancel"' tak dapat edit isian nama
Me.txtnam.Locked = TrueEnd Sub
Sub KosongkanText(ByVal semua As Boolean)
'clear the data
If semua Then
Me.txtnam.Value = ""
End If
Me.txtklmn.Value = ""
Me.txtkotlhr.Value = ""
Me.txttgllhr.Value = ""
Me.txtstat.Value = ""
Me.Txtalmt.Value = ""
Me.Txtkot.Value = ""
Me.txtagam.Value = ""
Me.txttglmsk.Value = ""
Me.txtunitmsk.Value = ""
Me.txtnid.Value = ""
Me.txtprk.Value = ""
Me.txtjab.Value = ""
Me.txtnpwp.Value = ""
Me.Txtisteri.Value = ""
Me.Txtank1.Value = ""
Me.Txtank2.Value = ""
Me.Txtank3.Value = ""End SubSub IsiTabIndex() Me.txtnam.TabIndex = 1
Me.txtklmn.TabIndex = 2
Me.txtkotlhr.TabIndex = 3
Me.txttgllhr.TabIndex = 4
Me.txtstat.TabIndex = 5
Me.Txtalmt.TabIndex = 6
Me.Txtkot.TabIndex = 7
Me.txtagam.TabIndex = 8
Me.txttglmsk.TabIndex = 9
Me.txtunitmsk.TabIndex = 10
Me.txtnid.TabIndex = 11
Me.txtprk.TabIndex = 12
Me.txtjab.TabIndex = 13
Me.txtnpwp.TabIndex = 14
Me.Txtisteri.TabIndex = 15
Me.Txtank1.TabIndex = 16
Me.Txtank2.TabIndex = 17
Me.Txtank3.TabIndex = 18End Sub Semoga sesuaiTo: belajar-excel@yahoogroups. com
From: walujodjati@yahoo.co. id
Date: Thu, 1 Dec 2011 10:20:40 +0800
Subject: [belajar-excel] EDIT DATA
Salam kenal semuanya para pakar Excel
Saya
pendatang baru, dan langsung ingin minta bantuan dan bertanya masalah edit data terhadap
data yang pernah kita entrykan karena ternyata ada kesalahan, seperti
contoh berikut :
Supaya jelas saya lampirkan pula contoh file nya.
Terima kasih kepada semua pakar pakar Excel.
Djati W
Surabaya
- 4f.
-
Re: EDIT DATA
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Thu Dec 1, 2011 12:42 am (PST)
jika ingin menghapus ( setelah mengisi nama ) : Private Sub CommandDelete_Click()
Call SetingTextCommandAWal
' kalau belum ada isian nama , keluar
If BarisIsian = 0 Then Exit Sub
barisnya = BarisIsian & ":" & BarisIsian
Worksheets("Data Induk").Activate
ActiveSheet.Rows(barisnya) .Select
Selection.Delete Shift:=xlUpEnd Sub
Sub SetingTextCommandAWal()
Call KosongkanText(True)
StatusAksi = "" BarisIsian = 0 Me.cmdAdd.Caption = "Add/EDit"
Me.cmdClose.Caption = "Close"
End Sub
sehingga koding yang baru : Dim StatusAksi As String
Dim BarisIsian As Long Private Sub UserForm_Initialize()
Call IsiTabIndex
Call SetingTextCommandAWal
End SubPrivate Sub cmdAdd_Click()
' Me.cmdAdd.Caption = "Add/EDit"
' Me.cmdClose.Caption = "Close"
Me.txtnam.Locked = False
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data Induk")
Select Case StatusAksi
Case "ADD"
'find first empty row in database
iRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
Case "EDIT"
iRow = BarisIsian
End Select
'check for a part number
If Trim(Me.txtnam.Value) = "" Then
Me.txtnam.SetFocus
MsgBox "Masukkan Datanya Dulu"
Exit Sub
End If 'copy the data to the database
ws.Cells(iRow, 1).Value = iRow - 2
ws.Cells(iRow, 2).Value = Me.txtnam.Value
ws.Cells(iRow, 3).Value = Me.txtklmn.Value
ws.Cells(iRow, 4).Value = Me.txtkotlhr.Value
ws.Cells(iRow, 5).Value = Me.txttgllhr.Value
ws.Cells(iRow, 6).Value = Me.txtstat.Value
ws.Cells(iRow, 7).Value = Me.Txtalmt.Value
ws.Cells(iRow, 8).Value = Me.Txtkot.Value
ws.Cells(iRow, 9).Value = Me.txtagam.Value
ws.Cells(iRow, 10).Value = Me.txttglmsk.Value
ws.Cells(iRow, 11).Value = Me.txtunitmsk.Value
ws.Cells(iRow, 12).Value = Me.txtnid.Value
ws.Cells(iRow, 13).Value = Me.txtprk.Value
ws.Cells(iRow, 14).Value = Me.txtjab.Value
ws.Cells(iRow, 15).Value = Me.txtnpwp.Value
ws.Cells(iRow, 16).Value = Me.Txtisteri.Value
ws.Cells(iRow, 17).Value = Me.Txtank1.Value
ws.Cells(iRow, 18).Value = Me.Txtank2.Value
ws.Cells(iRow, 19).Value = Me.Txtank3.Value Call SetingTextCommandAWal
' StatusAksi = ""
' Call KosongkanText(True)
Me.cmdAdd.SetFocus
End SubPrivate Sub cmdClose_Click()
If StatusAksi = "" Then
Unload Me
Else
Me.txtnam.Locked = False
Call SetingTextCommandAWal
'StatusAksi = ""
'Call KosongkanText(True)
'Me.cmdAdd.Caption = "Add/EDit"
'Me.cmdClose.Caption = "Close"
End If
End Sub
Private Sub CommandDelete_Click()
Call SetingTextCommandAWal
If BarisIsian = 0 Then Exit Sub barisnya = BarisIsian & ":" & BarisIsian
MsgBox barisnya
Worksheets("Data Induk").Activate
ActiveSheet.Rows(barisnya) .Select
Selection.Delete Shift:=xlUpEnd SubPrivate Sub txtnam_KeyDown(ByVal KeyCode As MSForms.ReturnInteg er, ByVal Shift As Integer)
If (KeyCode = 9 Or KeyCode = 13) And Me.txtnam.Text = "" Then Me.cmdAdd.SetFocus
End SubPrivate Sub txtnam_Exit(ByVal Cancel As MSForms.ReturnBoole an)
If Me.txtnam.Text = "" Then
Cancel = False
Exit Sub
End If
Dim ketemu As Range
Set ketemu = Worksheets("Data Induk").Range( "B:B").Find( what:=txtnam. Value, LookIn:=xlValues, LookAt:=XlLookAt. xlWhole)
If Not ketemu Is Nothing Then
BarisIsian = ketemu.Row
StatusAksi = "EDIT"
Me.txtklmn.Value = ketemu.Offset(0, 1).Value
Me.txtkotlhr.Value = ketemu.Offset( 0, 2).Value
Me.txttgllhr.Value = ketemu.Offset( 0, 3).Value
Me.txtstat.Value = ketemu.Offset(0, 4).Value
Me.Txtalmt.Value = ketemu.Offset(0, 5).Value
Me.Txtkot.Value = ketemu.Offset(0, 6).Value
Me.txtagam.Value = ketemu.Offset(0, 7).Value
Me.txttglmsk.Value = ketemu.Offset( 0, 8).Value
Me.txtunitmsk.Value = ketemu.Offset( 0, 9).Value
Me.txtnid.Value = ketemu.Offset(0, 10).Value
Me.txtprk.Value = ketemu.Offset(0, 11).Value
Me.txtjab.Value = ketemu.Offset(0, 12).Value
Me.txtnpwp.Value = ketemu.Offset(0, 13).Value
Me.Txtisteri.Value = ketemu.Offset( 0, 14).Value
Me.Txtank1.Value = ketemu.Offset(0, 15).Value
Me.Txtank2.Value = ketemu.Offset(0, 16).Value
Me.Txtank3.Value = ketemu.Offset(0, 17).Value
Else
StatusAksi = "ADD"
Call KosongkanText(False)
End If
On Error Resume Next
Me.cmdAdd.Caption = "Simpan"
Me.cmdClose.Caption = "Cancel"
Me.txtnam.Locked = TrueEnd Sub
Sub KosongkanText(ByVal semua As Boolean)
'clear the data
If semua Then
Me.txtnam.Value = ""
End If
Me.txtklmn.Value = ""
Me.txtkotlhr.Value = ""
Me.txttgllhr.Value = ""
Me.txtstat.Value = ""
Me.Txtalmt.Value = ""
Me.Txtkot.Value = ""
Me.txtagam.Value = ""
Me.txttglmsk.Value = ""
Me.txtunitmsk.Value = ""
Me.txtnid.Value = ""
Me.txtprk.Value = ""
Me.txtjab.Value = ""
Me.txtnpwp.Value = ""
Me.Txtisteri.Value = ""
Me.Txtank1.Value = ""
Me.Txtank2.Value = ""
Me.Txtank3.Value = ""End SubSub IsiTabIndex() Me.txtnam.TabIndex = 1
Me.txtklmn.TabIndex = 2
Me.txtkotlhr.TabIndex = 3
Me.txttgllhr.TabIndex = 4
Me.txtstat.TabIndex = 5
Me.Txtalmt.TabIndex = 6
Me.Txtkot.TabIndex = 7
Me.txtagam.TabIndex = 8
Me.txttglmsk.TabIndex = 9
Me.txtunitmsk.TabIndex = 10
Me.txtnid.TabIndex = 11
Me.txtprk.TabIndex = 12
Me.txtjab.TabIndex = 13
Me.txtnpwp.TabIndex = 14
Me.Txtisteri.TabIndex = 15
Me.Txtank1.TabIndex = 16
Me.Txtank2.TabIndex = 17
Me.Txtank3.TabIndex = 18End Sub
Sub SetingTextCommandAwal()
Call KosongkanText(True)
StatusAksi = ""
BarisIsian = 0
Me.cmdAdd.Caption = "Add/EDit"
Me.cmdClose.Caption = "Close"
End Sub
'===========catatan : tambahkan commandbutton lalu namai dgn CommandDelete
Semoga sesuai
To: belajar-excel@yahoogroups. com
From: walujodjati@yahoo.co. id
Date: Thu, 1 Dec 2011 10:20:40 +0800
Subject: [belajar-excel] EDIT DATA
Salam kenal semuanya para pakar Excel
Saya
pendatang baru, dan langsung ingin minta bantuan dan bertanya masalah edit data terhadap
data yang pernah kita entrykan karena ternyata ada kesalahan, seperti
contoh berikut :
Supaya jelas saya lampirkan pula contoh file nya.
Terima kasih kepada semua pakar pakar Excel.
Djati W
Surabaya
- 4g.
-
Re: EDIT DATA
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Thu Dec 1, 2011 12:51 am (PST)
koreksi :
jika ingin menghapus ( setelah mengisi nama ) :
Private Sub CommandDelete_Click()
' kalau belum ada isian nama , keluar
If BarisIsian = 0 Then Exit Sub
barisnya = BarisIsian & ":" & BarisIsian
Worksheets("Data Induk").Activate
ActiveSheet.Rows(barisnya) .Select
Selection.Delete Shift:=xlUp Call SetingTextCommandAWal
End Sub
Sub SetingTextCommandAWal()
Call KosongkanText(True)
StatusAksi = ""
BarisIsian = 0
Me.cmdAdd.Caption = "Add/EDit"
Me.cmdClose.Caption = "Close"
End Sub
sehingga koding yang baru :
Dim StatusAksi As String
Dim BarisIsian As Long
Private Sub UserForm_Initialize()
Call IsiTabIndex
Call SetingTextCommandAWal
End Sub
Private Sub cmdAdd_Click()
' Me.cmdAdd.Caption = "Add/EDit"
' Me.cmdClose.Caption = "Close"
Me.txtnam.Locked = False
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data Induk")
Select Case StatusAksi
Case "ADD"
'find first empty row in database
iRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
Case "EDIT"
iRow = BarisIsian
End Select
'check for a part number
If Trim(Me.txtnam.Value) = "" Then
Me.txtnam.SetFocus
MsgBox "Masukkan Datanya Dulu"
Exit Sub
End If
'copy the data to the database
ws.Cells(iRow, 1).Value = iRow - 2
ws.Cells(iRow, 2).Value = Me.txtnam.Value
ws.Cells(iRow, 3).Value = Me.txtklmn.Value
ws.Cells(iRow, 4).Value = Me.txtkotlhr.Value
ws.Cells(iRow, 5).Value = Me.txttgllhr.Value
ws.Cells(iRow, 6).Value = Me.txtstat.Value
ws.Cells(iRow, 7).Value = Me.Txtalmt.Value
ws.Cells(iRow, 8).Value = Me.Txtkot.Value
ws.Cells(iRow, 9).Value = Me.txtagam.Value
ws.Cells(iRow, 10).Value = Me.txttglmsk.Value
ws.Cells(iRow, 11).Value = Me.txtunitmsk.Value
ws.Cells(iRow, 12).Value = Me.txtnid.Value
ws.Cells(iRow, 13).Value = Me.txtprk.Value
ws.Cells(iRow, 14).Value = Me.txtjab.Value
ws.Cells(iRow, 15).Value = Me.txtnpwp.Value
ws.Cells(iRow, 16).Value = Me.Txtisteri.Value
ws.Cells(iRow, 17).Value = Me.Txtank1.Value
ws.Cells(iRow, 18).Value = Me.Txtank2.Value
ws.Cells(iRow, 19).Value = Me.Txtank3.Value
Call SetingTextCommandAWal
' StatusAksi = ""
' Call KosongkanText(True)
Me.cmdAdd.SetFocus
End Sub
Private Sub cmdClose_Click()
If StatusAksi = "" Then
Unload Me
Else
Me.txtnam.Locked = False
Call SetingTextCommandAWal
'StatusAksi = ""
'Call KosongkanText(True)
'Me.cmdAdd.Caption = "Add/EDit"
'Me.cmdClose.Caption = "Close"
End If
End Sub
Private Sub CommandDelete_Click()
If BarisIsian = 0 Then Exit Sub
barisnya = BarisIsian & ":" & BarisIsian
MsgBox barisnya
Worksheets("Data Induk").Activate
ActiveSheet.Rows(barisnya) .Select
Selection.Delete Shift:=xlUp Call SetingTextCommandAWal
End Sub
Private Sub txtnam_KeyDown(ByVal KeyCode As MSForms.ReturnInteg er, ByVal Shift As Integer)
If (KeyCode = 9 Or KeyCode = 13) And Me.txtnam.Text = "" Then Me.cmdAdd.SetFocus
End Sub
Private Sub txtnam_Exit(ByVal Cancel As MSForms.ReturnBoole an)
If Me.txtnam.Text = "" Then
Cancel = False
Exit Sub
End If
Dim ketemu As Range
Set ketemu = Worksheets("Data Induk").Range( "B:B").Find( what:=txtnam. Value, LookIn:=xlValues, LookAt:=XlLookAt. xlWhole)
If Not ketemu Is Nothing Then
BarisIsian = ketemu.Row
StatusAksi = "EDIT"
Me.txtklmn.Value = ketemu.Offset(0, 1).Value
Me.txtkotlhr.Value = ketemu.Offset( 0, 2).Value
Me.txttgllhr.Value = ketemu.Offset( 0, 3).Value
Me.txtstat.Value = ketemu.Offset(0, 4).Value
Me.Txtalmt.Value = ketemu.Offset(0, 5).Value
Me.Txtkot.Value = ketemu.Offset(0, 6).Value
Me.txtagam.Value = ketemu.Offset(0, 7).Value
Me.txttglmsk.Value = ketemu.Offset( 0, 8).Value
Me.txtunitmsk.Value = ketemu.Offset( 0, 9).Value
Me.txtnid.Value = ketemu.Offset(0, 10).Value
Me.txtprk.Value = ketemu.Offset(0, 11).Value
Me.txtjab.Value = ketemu.Offset(0, 12).Value
Me.txtnpwp.Value = ketemu.Offset(0, 13).Value
Me.Txtisteri.Value = ketemu.Offset( 0, 14).Value
Me.Txtank1.Value = ketemu.Offset(0, 15).Value
Me.Txtank2.Value = ketemu.Offset(0, 16).Value
Me.Txtank3.Value = ketemu.Offset(0, 17).Value
Else
StatusAksi = "ADD"
Call KosongkanText(False)
End If
On Error Resume Next
Me.cmdAdd.Caption = "Simpan"
Me.cmdClose.Caption = "Cancel"
Me.txtnam.Locked = True
End Sub
Sub KosongkanText(ByVal semua As Boolean)
'clear the data
If semua Then
Me.txtnam.Value = ""
End If
Me.txtklmn.Value = ""
Me.txtkotlhr.Value = ""
Me.txttgllhr.Value = ""
Me.txtstat.Value = ""
Me.Txtalmt.Value = ""
Me.Txtkot.Value = ""
Me.txtagam.Value = ""
Me.txttglmsk.Value = ""
Me.txtunitmsk.Value = ""
Me.txtnid.Value = ""
Me.txtprk.Value = ""
Me.txtjab.Value = ""
Me.txtnpwp.Value = ""
Me.Txtisteri.Value = ""
Me.Txtank1.Value = ""
Me.Txtank2.Value = ""
Me.Txtank3.Value = ""
End Sub
Sub IsiTabIndex()
Me.txtnam.TabIndex = 1
Me.txtklmn.TabIndex = 2
Me.txtkotlhr.TabIndex = 3
Me.txttgllhr.TabIndex = 4
Me.txtstat.TabIndex = 5
Me.Txtalmt.TabIndex = 6
Me.Txtkot.TabIndex = 7
Me.txtagam.TabIndex = 8
Me.txttglmsk.TabIndex = 9
Me.txtunitmsk.TabIndex = 10
Me.txtnid.TabIndex = 11
Me.txtprk.TabIndex = 12
Me.txtjab.TabIndex = 13
Me.txtnpwp.TabIndex = 14
Me.Txtisteri.TabIndex = 15
Me.Txtank1.TabIndex = 16
Me.Txtank2.TabIndex = 17
Me.Txtank3.TabIndex = 18
End Sub
Sub SetingTextCommandAwal()
Call KosongkanText(True)
StatusAksi = ""
BarisIsian = 0
Me.cmdAdd.Caption = "Add/EDit"
Me.cmdClose.Caption = "Close"
End Sub
'===========
catatan : tambahkan commandbutton lalu namai dgn CommandDelete
Semoga sesuai
To: belajar-excel@yahoogroups. com
From: walujodjati@yahoo.co. id
Date: Thu, 1 Dec 2011 10:20:40 +0800
Subject: [belajar-excel] EDIT DATA
Salam kenal semuanya para pakar Excel
Saya
pendatang baru, dan langsung ingin minta bantuan dan bertanya masalah edit data terhadap
data yang pernah kita entrykan karena ternyata ada kesalahan, seperti
contoh berikut :
Supaya jelas saya lampirkan pula contoh file nya.
Terima kasih kepada semua pakar pakar Excel.
Djati W
Surabaya
- 4h.
-
Re: EDIT DATA
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Thu Dec 1, 2011 1:05 am (PST)
untuk penomoran yang dinamis , walaupun ada baris dihapus ,tetap urut . maka ganti 1 baris koding saat penyimpanan data dari form ke worksheet : ' ws.Cells(iRow, 1).Value = iRow - 2
' ganti dengan
ws.Cells(iRow, 1).FormulaR1C1 = "=ROW()-2"
To: belajar-excel@yahoogroups. com
From: jkssxls@hotmail.com
Date: Thu, 1 Dec 2011 08:41:57 +0000
Subject: RE: [belajar-excel] EDIT DATA
jika ingin menghapus ( setelah mengisi nama ) :
Private Sub CommandDelete_Click()
Call SetingTextCommandAWal
' kalau belum ada isian nama , keluar
If BarisIsian = 0 Then Exit Sub
barisnya = BarisIsian & ":" & BarisIsian
Worksheets("Data Induk").Activate
ActiveSheet.Rows(barisnya) .Select
Selection.Delete Shift:=xlUp
End Sub
Sub SetingTextCommandAWal()
Call KosongkanText(True)
StatusAksi = ""
BarisIsian = 0
Me.cmdAdd.Caption = "Add/EDit"
Me.cmdClose.Caption = "Close"
End Sub
sehingga koding yang baru :
Dim StatusAksi As String
Dim BarisIsian As Long
Private Sub UserForm_Initialize()
Call IsiTabIndex
Call SetingTextCommandAWal
End Sub
Private Sub cmdAdd_Click()
' Me.cmdAdd.Caption = "Add/EDit"
' Me.cmdClose.Caption = "Close"
Me.txtnam.Locked = False
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Data Induk")
Select Case StatusAksi
Case "ADD"
'find first empty row in database
iRow = ws.Cells(Rows.Count, 2) _
.End(xlUp).Offset(1, 0).Row
Case "EDIT"
iRow = BarisIsian
End Select
'check for a part number
If Trim(Me.txtnam.Value) = "" Then
Me.txtnam.SetFocus
MsgBox "Masukkan Datanya Dulu"
Exit Sub
End If
'copy the data to the database
ws.Cells(iRow, 1).Value = iRow - 2
ws.Cells(iRow, 2).Value = Me.txtnam.Value
ws.Cells(iRow, 3).Value = Me.txtklmn.Value
ws.Cells(iRow, 4).Value = Me.txtkotlhr.Value
ws.Cells(iRow, 5).Value = Me.txttgllhr.Value
ws.Cells(iRow, 6).Value = Me.txtstat.Value
ws.Cells(iRow, 7).Value = Me.Txtalmt.Value
ws.Cells(iRow, 8).Value = Me.Txtkot.Value
ws.Cells(iRow, 9).Value = Me.txtagam.Value
ws.Cells(iRow, 10).Value = Me.txttglmsk.Value
ws.Cells(iRow, 11).Value = Me.txtunitmsk.Value
ws.Cells(iRow, 12).Value = Me.txtnid.Value
ws.Cells(iRow, 13).Value = Me.txtprk.Value
ws.Cells(iRow, 14).Value = Me.txtjab.Value
ws.Cells(iRow, 15).Value = Me.txtnpwp.Value
ws.Cells(iRow, 16).Value = Me.Txtisteri.Value
ws.Cells(iRow, 17).Value = Me.Txtank1.Value
ws.Cells(iRow, 18).Value = Me.Txtank2.Value
ws.Cells(iRow, 19).Value = Me.Txtank3.Value
Call SetingTextCommandAWal
' StatusAksi = ""
' Call KosongkanText(True)
Me.cmdAdd.SetFocus
End Sub
Private Sub cmdClose_Click()
If StatusAksi = "" Then
Unload Me
Else
Me.txtnam.Locked = False
Call SetingTextCommandAWal
'StatusAksi = ""
'Call KosongkanText(True)
'Me.cmdAdd.Caption = "Add/EDit"
'Me.cmdClose.Caption = "Close"
End If
End Sub
Private Sub CommandDelete_Click()
Call SetingTextCommandAWal
If BarisIsian = 0 Then Exit Sub
barisnya = BarisIsian & ":" & BarisIsian
MsgBox barisnya
Worksheets("Data Induk").Activate
ActiveSheet.Rows(barisnya) .Select
Selection.Delete Shift:=xlUp
End Sub
Private Sub txtnam_KeyDown(ByVal KeyCode As MSForms.ReturnInteg er, ByVal Shift As Integer)
If (KeyCode = 9 Or KeyCode = 13) And Me.txtnam.Text = "" Then Me.cmdAdd.SetFocus
End Sub
Private Sub txtnam_Exit(ByVal Cancel As MSForms.ReturnBoole an)
If Me.txtnam.Text = "" Then
Cancel = False
Exit Sub
End If
Dim ketemu As Range
Set ketemu = Worksheets("Data Induk").Range( "B:B").Find( what:=txtnam. Value, LookIn:=xlValues, LookAt:=XlLookAt. xlWhole)
If Not ketemu Is Nothing Then
BarisIsian = ketemu.Row
StatusAksi = "EDIT"
Me.txtklmn.Value = ketemu.Offset(0, 1).Value
Me.txtkotlhr.Value = ketemu.Offset( 0, 2).Value
Me.txttgllhr.Value = ketemu.Offset( 0, 3).Value
Me.txtstat.Value = ketemu.Offset(0, 4).Value
Me.Txtalmt.Value = ketemu.Offset(0, 5).Value
Me.Txtkot.Value = ketemu.Offset(0, 6).Value
Me.txtagam.Value = ketemu.Offset(0, 7).Value
Me.txttglmsk.Value = ketemu.Offset( 0, 8).Value
Me.txtunitmsk.Value = ketemu.Offset( 0, 9).Value
Me.txtnid.Value = ketemu.Offset(0, 10).Value
Me.txtprk.Value = ketemu.Offset(0, 11).Value
Me.txtjab.Value = ketemu.Offset(0, 12).Value
Me.txtnpwp.Value = ketemu.Offset(0, 13).Value
Me.Txtisteri.Value = ketemu.Offset( 0, 14).Value
Me.Txtank1.Value = ketemu.Offset(0, 15).Value
Me.Txtank2.Value = ketemu.Offset(0, 16).Value
Me.Txtank3.Value = ketemu.Offset(0, 17).Value
Else
StatusAksi = "ADD"
Call KosongkanText(False)
End If
On Error Resume Next
Me.cmdAdd.Caption = "Simpan"
Me.cmdClose.Caption = "Cancel"
Me.txtnam.Locked = True
End Sub
Sub KosongkanText(ByVal semua As Boolean)
'clear the data
If semua Then
Me.txtnam.Value = ""
End If
Me.txtklmn.Value = ""
Me.txtkotlhr.Value = ""
Me.txttgllhr.Value = ""
Me.txtstat.Value = ""
Me.Txtalmt.Value = ""
Me.Txtkot.Value = ""
Me.txtagam.Value = ""
Me.txttglmsk.Value = ""
Me.txtunitmsk.Value = ""
Me.txtnid.Value = ""
Me.txtprk.Value = ""
Me.txtjab.Value = ""
Me.txtnpwp.Value = ""
Me.Txtisteri.Value = ""
Me.Txtank1.Value = ""
Me.Txtank2.Value = ""
Me.Txtank3.Value = ""
End Sub
Sub IsiTabIndex()
Me.txtnam.TabIndex = 1
Me.txtklmn.TabIndex = 2
Me.txtkotlhr.TabIndex = 3
Me.txttgllhr.TabIndex = 4
Me.txtstat.TabIndex = 5
Me.Txtalmt.TabIndex = 6
Me.Txtkot.TabIndex = 7
Me.txtagam.TabIndex = 8
Me.txttglmsk.TabIndex = 9
Me.txtunitmsk.TabIndex = 10
Me.txtnid.TabIndex = 11
Me.txtprk.TabIndex = 12
Me.txtjab.TabIndex = 13
Me.txtnpwp.TabIndex = 14
Me.Txtisteri.TabIndex = 15
Me.Txtank1.TabIndex = 16
Me.Txtank2.TabIndex = 17
Me.Txtank3.TabIndex = 18
End Sub
Sub SetingTextCommandAwal()
Call KosongkanText(True)
StatusAksi = ""
BarisIsian = 0
Me.cmdAdd.Caption = "Add/EDit"
Me.cmdClose.Caption = "Close"
End Sub
'===========
catatan : tambahkan commandbutton lalu namai dgn CommandDelete
Semoga sesuai
To: belajar-excel@yahoogroups. com
From: walujodjati@yahoo.co. id
Date: Thu, 1 Dec 2011 10:20:40 +0800
Subject: [belajar-excel] EDIT DATA
Salam kenal semuanya para pakar Excel
Saya
pendatang baru, dan langsung ingin minta bantuan dan bertanya masalah edit data terhadap
data yang pernah kita entrykan karena ternyata ada kesalahan, seperti
contoh berikut :
Supaya jelas saya lampirkan pula contoh file nya.
Terima kasih kepada semua pakar pakar Excel.
Djati W
Surabaya
- 5.1.
-
File - Peraturan Milis belajar-excel
Posted by: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com
Thu Dec 1, 2011 12:41 am (PST)
"PERATURAN MILIS belajar-excel"
--------------------- --------- -
Milis belajar-excel dibuat agar menjadi komunitas / tempat berkumpulnya
para pemakai software microsoft excel, untuk saling berbagi pengetahuan
(sharing), diskusi dan tanya-jawab hal-hal yg menyangkut MS Excel.
Setting untuk posting di milis ini masih dipertahankan = "UnModerated"
(member dapat mengirim posting, tanpa melalui moderasi dan langsung
masuk ke message-list di milis).
Posting pertama & kedua dari member yg baru bergabung harus menunggu
approval dari moderators. Jika dinilai wajar, posting selanjutnya tidak
perlu approval lagi.
Hal ini adalah demi menjadikan milis lebih dinamis, posting tidak
tertunda, diskusi lebih hidup.
Tetapi konsekwensinya, kita sebagai members harus punya niat untuk
menjaga milis ini tetap bersih, enak diikuti, yaitu dengan TIDAK
mengirim posting berisi hal yg mubazir, yg di luar topik, yg "nyampah";
apalagi yg memicu timbulnya pertengkaran yg tidak perlu.
Setiap saat para Moderators akan melihat-lihat lagi msg list, dan akan
membersihkan message list dari posting sampah yg tidak perlu.
Untuk itu kita perlu kesepakatan sebagai berikut:
SANGAT DIHARAPKAN:
==================
(1)
Posting dari member berupa: share pengetahuan, pertanyaan, jawaban dan/
atau komentar dan tanggapan yg masih relevan dengan pertanyaan/posting;
semuanya harus sekitar atau ada hubungannya dengan Microsoft Excel.
(2)
Size Lampiran dlm rangka memperjelas kasus/penjelasan, agar diupayakan
tidak lebih dari 250KB, jika perlu dicompressed dulu.
(3)
Posting pertanyaan dialamatkan hanya kepada alamat milis, (jangan ke
alamat owner)
(4)
Semua mail dikemukakan secara santun, ceria, menyenangkan, boleh lucu,
saling menghormati, menjauhkan dari masalah SARA.
SANGAT TIDAK DIHARAPKAN:
===================== ===
(1)
Mail yg isinya melecehkan, menghina fihak lain, berbahasa kasar, memicu
pertengkaran dsb.
(2)
Posting "too good to be true" misalnya "jualan" (MLM), spam, money game,
hoax, mail berantai dan iklan (tanpa lebihdulu mendapat ijin dari owner).
(3)
Cross-posting (mengirim 1 mail sekaligus kepada lebih dari satu milis /
address tujuan).
(4)
Mail yg ditulis dengan ukuran, bentuk/warna font dan cara yg di luar
kewajaran, sehingga menyulitkan pembacaan.
(5)
Mail tanpa judul/subject dan/atau tanpa isi, walaupun melampirkan penjelasan.
LAIN LAIN:
==========
Saran & Tips menulis mail / posting ke milis:
--------------------- --------- --------- ------
(a)
Berikan subject yg isinya mewakili kasus yg akan ditulis.
Hindari subject yg tidak jelas dan terlalu general (misal "tolong",
"help", "tanya" "mohon pencerahan", dsb)
(b)
Ikuti Subject yg telah ada, (dengan meReply), hanya jika masalah yg akan
ditulis masih berkaitan.
Mengubah Subject (misal dgn menambah kata "Balasan" / "Solusi" /
"Tanggapan" dsb, hanya akan merusak 'Thread' (korelasi/kesinambungan)
suatu topik, oleh karena itu jangan dilakukan.
Jika anda akan mengajukan topik/kasus baru yg tidak berkaitan dengan
topik yg telah ada, buatlah Subject baru, dengan Compose / New Mail.
JANGAN dengan cara mereply subject yg ada lalu mengganti subjecnya.
(c)
Terutama pada posting pertanyaan/request, tuliskan masalah dengan jelas
di badan email. Penjelasan lebih rinci dapat ditulis pada lampiran.
Lampiran sedapat mungkin berupa workbook (file *.xls), dengan nama-file
yang spesifik.
(d)
Posting tanggapan/jawaban hendaknya ditulis secara 'top-posting' (di
ATAS "quoted mail" yg ditanggapi, demi mempermudah pembacaan.
'Quoted mail' tidak harus disertakan semua, cukup 1 atau maximal 2 mail
terdahulu.
(e)
Footer yg tidak perlu hendaknya dihapus dulu sebelum mail Anda kirimkan.
Mengenai OOT dan VOOT
---------------------
Di luar 3 jenis posting di atas, yi: DISKUSI yg berisi sharing,
pertanyaan, tanggapan) akan dianggap Out of Topic (OOT) atau bahkan
VOOT (very out of topic).
Kategory OOT akan dipertimbangkan kasus-demi-kasus dengan kriteria
"manfaat positif bagi komunitas kita".
Kategory OOT atas pertimbangan khusus, misalnya demi kepentingan yg
mendesak dan penting, atau demi "kemanusiaan", tidak didelete.
Jika tidak memenuhi kriteria akan didelete dengan atau tanpa pemberi-
tahuan kpd member.
Kategory VOOT, posting akan langsung didelete, pengirim akan diberi
teguran.
VOOT kedua dari pengirim yg sama akan menyebabkan member ybs didisabled
sementara kemampuan postingnya.
Kelanjutan dari suatu diskusi tanya-jawab, masih layak diposted ke milis,
misal hanya ucapan terima kasih atau pun sejenis konfirmasi bahwa suatu
solusi sudah diterima dan dapat dipakai dsb, ini dapat golongkan sbg OOT
yg masih layak tayang.
Kelanjutan pembicaraan yg sudah tidak relevan lagi bagi member lain,
dapat anda teruskan melalui 'japri' (jalur pribadi).
Kritik dan saran kepada milis 'belajar-excel'
--------------------- --------- --------- -----
Kritik dan saran diluar masalah excel demi perbaikan milis ini dapat
disampaikan ke owner / moderators
Hak dan wewenang Moderators
--------------------- ------
Moderators berhak setelah mempertimbangkan hal-hal diatas untuk
memberikan kartu kuning atau langsung kartu merah dan/atau
mem-banned members yang melakukan pelanggaran rules milis ini.
Himbauan dari milis 'belajar excel' kpd members
--------------------- --------- --------- --------
Diharapkan para members terus meningkatkan pengetahuannya mengenai
kelaziman cara bermilis & ber-net-ria secara umum.
Perlu selalu disadari bahwa di dunia internet, sama dengan dunia kita
sehari hari.
Jika di dunia nyata kita mengenal "etika / ettiquettes", maka di net
ada semacam etika umum yg lazim disebut "nettiquette".
Kalau anda sering tidak mengindahkan "nettiquettes", tidak akan polisi
yg menangkap anda; tetapi lama-lama anda akan dijauhi banyak rekan,
karena mereka tentu merasa tidak nyaman ber-korespondensi dengan anda.
Sebagai Members of "milis belajar-excel" dan sebagai 'netter sejati',
anda tentu tidak suka kalau harus dicap sebagai "tidak nettis" yang
artinya setara dgn "tidak etis".
--------------------- --------- --------- -----[rev: 13mar2010 / ctv]-----
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
MARKETPLACE
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar