Rabu, 27 Februari 2013

[belajar-excel] Digest Number 2119

15 New Messages

Digest #2119
2a
AADF (ada apa dengan filter) part #2 by "abdul hafidz" a.hafidz
2c
3a
Apa yang salah dengan fungsi index ? by "hendrik karnadi" hendrikkarnadi
3b
3c
Re: Apa yang salah dengan fungsi index ? by "hendrik karnadi" hendrikkarnadi

Messages

Tue Feb 26, 2013 6:12 pm (PST) . Posted by:

"Jan Raisin"

Coba lihat file terlampir,

Tutorial cara pembuatan solusi menggunakan fitur Solver dilengkapi dengan
gambar, semoga bisa dimengerti.
Kapasitas file 231 Kb hampir mencapai limit yang diizinkan di millis ini
yaitu 250 KB.

Catatan tambahan:
Jumlah produk dalam satuan karton Jan hilangkan dulu agar memudahkan
pembelajaran.

Wassalam,

-Miss Jan Raisin-

Pada 26 Februari 2013 17.49, Dede Suparman dede_suparman111@yahoo.com>menulis:

> **
>
>
> Dear Mis Jan,
>
> ikutan yaa, kebetulan ibu entin satu rumpun hee,
> mau tanya klo angka 5000 yang di tabel "Jumlah Produk Dihasilkan
> " baris pcs itu dari mana yaa??
>
>
> salam,
> Dede_S
>
> ------------------------------
> *Dari:* Jan Raisin miss.jan.raisin@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 19 Februari 2013 17:04
> *Judul:* Re: [belajar-excel] Cara Hitung Estimasi jadi produk
>
>
> Hai Entin,
>
> coba manfaatkan Solver bawaan dari Excel,
>
> file terlampir semoga bermanfaat.
>
> Best Regard,
>
> -Miss Jan Raisin-
>
> Pada 19 Februari 2013 15.11, Entin Supriatinah ntin_spr@yahoo.com>menulis:
>
> **
>
> Dear Master Excel,
>
> Dgn menggunakan Formula/fungsi apa? untuk menghasilkan produk jadi dengan
> material yg tersisa.
> dimana salah satu material bisa digunakan u/ beberapa produk,
> bisakan hasilnya tanpa memprioritaskan produk mana yg akan didahulukan
> dibuat, atau harus ada prioritas yg mana dulu?
>
> Terima kasih banyak sebelumnya,
>
> Best Rgds,
> Entin
>
>
>
>
>
>
>

Tue Feb 26, 2013 6:29 pm (PST) . Posted by:

"abdul hafidz" a.hafidz

 
Met pagi all master Be-Excell...
sebelumnya sorry klo judulnya sedikit nyeleneh...
heheheheee.....

ok langsung ke TKP aja yah..
begini ceritanya :

Rumus apakah yg cocok untuk menampilkan data, dimana data yg akan ditampilkan adalah data dari hasil memfilter sebuah data dan untuk lebih jelasnya bisa dilihat dari file yg dilampirkan.

Demikianlah ceritanya,
sorry bila merepotkan yah..

trims.

regards
Hafidz

Tue Feb 26, 2013 6:39 pm (PST) . Posted by:

"Jan Raisin"

Kemarin case ini sudah Jan jawab dengan memberikan solusi berupa UDF,

link jawabannya bisa dilihat di sini

http://tech.groups.yahoo.com/group/belajar-excel/message/22937

(copas ke browser anda alamat url di atas, jika linknya tidak muncul)

Coba cek lagi, jika ada yang masih salah atau kurang pas bisa ditanyakan
kembali.

Wassalam,

-Miss Jan Raisin-

Pada 27 Februari 2013 09.28, abdul hafidz a.hafidz@yahoo.co.id> menulis:

> **
>
>
>
> Met pagi all master Be-Excell...
> sebelumnya sorry klo judulnya sedikit nyeleneh...
> heheheheee.....
>
> ok langsung ke TKP aja yah..
> begini ceritanya :
>
> Rumus apakah yg cocok untuk menampilkan data, dimana data yg akan
> ditampilkan adalah data dari hasil memfilter sebuah data dan untuk lebih
> jelasnya bisa dilihat dari file yg dilampirkan.
>
> Demikianlah ceritanya,
> sorry bila merepotkan yah..
>
> trims.
>
> regards
> Hafidz
>
>
>
>
>
>
>

Tue Feb 26, 2013 6:55 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Bisa juga menggunakan Worksheet Event berikut :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'double click pada nama yang dipilih u/ memfilter
     ActiveSheet.Range("$C$11:$E$33").AutoFilter Field:=1, Criteria1:=ActiveCell.Value
     Cancel = True
     Range("G11") = ActiveCell.Value
     
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'click mouse kanan untuk membatalkan filter
    On Error Resume Next
    Range("C11:E11").AutoFilter.Mode = True
    Cancel = True
End Sub

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: Jan Raisin miss.jan.raisin@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 27 February 2013, 9:39
Subject: Re: [belajar-excel] AADF (ada apa dengan filter) part #2


 
Kemarin case ini sudah Jan jawab dengan memberikan solusi berupa UDF,

link jawabannya bisa dilihat di sini

http://tech.groups.yahoo.com/group/belajar-excel/message/22937  

(copas ke browser anda alamat url di atas, jika linknya tidak muncul)

Coba cek lagi, jika ada yang masih salah atau kurang pas bisa ditanyakan kembali.

Wassalam,

-Miss Jan Raisin-

Pada 27 Februari 2013 09.28, abdul hafidz a.hafidz@yahoo.co.id> menulis:

> 
> 
>Met pagi all master Be-Excell...
>sebelumnya sorry klo judulnya sedikit nyeleneh...
>heheheheee.....
>
>ok langsung ke TKP aja yah..
>begini ceritanya :
>
>Rumus apakah yg cocok untuk menampilkan data, dimana data yg akan ditampilkan adalah data dari hasil memfilter sebuah data dan untuk lebih jelasnya bisa dilihat dari file yg dilampirkan.
>
>Demikianlah ceritanya,
>sorry bila merepotkan yah..
>
>trims.
>
>regards
>Hafidz
>
>
>
>
>
>
>

Tue Feb 26, 2013 8:23 pm (PST) . Posted by:

"abdul hafidz" a.hafidz

 
Terima kasih sebelumnya tuk Master Jan & Master Hendrik atas pencerahan yg telah diberikan dan mohon maaf pula yg ternyata case ini sdh di jawab oleh Master Jan, berhubung balasan emailnya masuk ke spam jadi tdk terlihat, jadi saya resend kembali deh casenya hehehee...(asli malu bgt).
 
UDF nya sdh berjalan dgn sesuai, dan ada beberapa tambahan yg ingin saya sampaikan :
 
1. Bisakah disaat tdk ada pemilihan autofilter (data di kembalikan ke ALL) maka di cell  G11 akan berisi kosong.
2. Jika data lebih dari 1 (double) dan disaat ada pemilihan autofilter maka di cell G11 hanya akan berisi 1 data saja.
 
lampiran terlampir.
 
trims
hafidz

________________________________
Dari: hendrik karnadi hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
Dikirim: Rabu, 27 Februari 2013 9:55
Judul: Fw: [belajar-excel] AADF (ada apa dengan filter) part #2

 
Bisa juga menggunakan Worksheet Event berikut :Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'double click pada nama yang dipilih u/ memfilter     ActiveSheet.Range("$C$11:$E$33").AutoFilter Field:=1, Criteria1:=ActiveCell.Value     Cancel = True     Range("G11") = ActiveCell.Value     End SubPrivate Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'click mouse kanan untuk membatalkan filter    On Error Resume Next    Range("C11:E11").AutoFilter.Mode = True    Cancel = TrueEnd SubSalam,Hendrik Karnadi

----- Forwarded Message -----
From: Jan Raisin miss.jan.raisin@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 27 February 2013, 9:39
Subject: Re: [belajar-excel] AADF (ada apa dengan filter) part #2

 
Kemarin case ini sudah Jan jawab dengan memberikan solusi berupa UDF,

link jawabannya bisa dilihat di sini

http://tech.groups.yahoo.com/group/belajar-excel/message/22937  

(copas ke browser anda alamat url di atas, jika linknya tidak muncul)

Coba cek lagi, jika ada yang masih salah atau kurang pas bisa ditanyakan kembali.

Wassalam,

-Miss Jan Raisin-

Pada 27 Februari 2013 09.28, abdul hafidz a.hafidz@yahoo.co.id> menulis:
 
> 
>Met pagi all master Be-Excell...sebelumnya sorry klo judulnya sedikit nyeleneh...heheheheee.....ok langsung ke TKP aja yah..begini ceritanya :Rumus apakah yg cocok untuk menampilkan data, dimana data yg akan ditampilkan adalah data dari hasil memfilter sebuah data dan untuk lebih jelasnya bisa dilihat dari file yg dilampirkan.Demikianlah ceritanya,sorry bila merepotkan yah..trims.regardsHafidz
>
>

Tue Feb 26, 2013 8:27 pm (PST) . Posted by:

"Jan Raisin"

Sebelum dijawab, Jan mau tanya dulu untuk pertanyaan yang nomer 2, jika
dobel maka data yang mana yang akan ditampilkan? data pertama? data
terakhir? atau data yang mana? (anggap ada 3 atau lebih data)

-Miss Jan Raisin-

Pada 27 Februari 2013 11.23, abdul hafidz a.hafidz@yahoo.co.id> menulis:

> **
>
>
>
> Terima kasih sebelumnya tuk Master Jan & Master Hendrik atas pencerahan yg
> telah diberikan dan mohon maaf pula yg ternyata case ini sdh di jawab oleh
> Master Jan, berhubung balasan emailnya masuk ke spam jadi tdk
> terlihat, jadi saya resend kembali deh casenya hehehee...(asli malu bgt).
>
> UDF nya sdh berjalan dgn sesuai, dan ada beberapa tambahan yg ingin
> saya sampaikan :
>
> 1. Bisakah disaat tdk ada pemilihan autofilter (data di kembalikan ke ALL)
> maka di cell *G11* akan berisi kosong.
> 2. Jika data lebih dari 1 (double) dan disaat ada pemilihan autofilter
> maka di cell *G11* hanya akan berisi 1 data saja.
>
> lampiran terlampir.
>
> trims
> hafidz
>
>
> *Dari:* hendrik karnadi hendrikkarnadi@yahoo.com>
> *Kepada:* "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
> *Dikirim:* Rabu, 27 Februari 2013 9:55
> *Judul:* Fw: [belajar-excel] AADF (ada apa dengan filter) part #2
> **
>
> Bisa juga menggunakan Worksheet Event berikut :
> **
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean) 'double click pada nama yang dipilih u/ memfilter**
> ActiveSheet.Range("$C$11:$E$33").AutoFilter Field:=1,
> Criteria1:=ActiveCell.Value** Cancel = True** Range("G11") =
> ActiveCell.Value** **End Sub****Private Sub
> Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'click
> mouse kanan untuk membatalkan filter** On Error Resume Next**
> Range("C11:E11").AutoFilter.Mode = True** Cancel = True**End Sub****
> Salam,**Hendrik Karnadi**
>
>
> ----- Forwarded Message -----
> *From:* Jan Raisin miss.jan.raisin@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, 27 February 2013, 9:39
> *Subject:* Re: [belajar-excel] AADF (ada apa dengan filter) part #2
> **
>
> Kemarin case ini sudah Jan jawab dengan memberikan solusi berupa UDF,
>
> link jawabannya bisa dilihat di sini
>
> http://tech.groups.yahoo.com/group/belajar-excel/message/22937
>
> (copas ke browser anda alamat url di atas, jika linknya tidak muncul)
>
> Coba cek lagi, jika ada yang masih salah atau kurang pas bisa ditanyakan
> kembali.
>
> Wassalam,
>
> -Miss Jan Raisin-
> **
> Pada 27 Februari 2013 09.28, abdul hafidz a.hafidz@yahoo.co.id> menulis:*
> *
>
> **
>
>
> Met pagi all master Be-Excell...**sebelumnya sorry klo judulnya
> sedikit nyeleneh...**heheheheee.....****ok langsung ke TKP aja yah..**begini
> ceritanya :****Rumus apakah yg cocok untuk menampilkan data, dimana data
> yg akan ditampilkan adalah data dari hasil memfilter sebuah data dan untuk
> lebih jelasnya bisa dilihat dari file yg dilampirkan.****Demikianlah
> ceritanya,**sorry bila merepotkan yah..****trims.****regards**Hafidz******
>
> ****
>
> **
> ****
> ****
>
>
>

Tue Feb 26, 2013 9:20 pm (PST) . Posted by:

"abdul hafidz" a.hafidz

data yg pertama Master Jan,

________________________________
Dari: Jan Raisin miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 27 Februari 2013 11:27
Judul: Re: [belajar-excel] AADF (ada apa dengan filter) part #2

 
Sebelum dijawab, Jan mau tanya dulu untuk pertanyaan yang nomer 2, jika dobel maka data yang mana yang akan ditampilkan? data pertama? data terakhir? atau data yang mana? (anggap ada 3 atau lebih data)

-Miss Jan Raisin-

Pada 27 Februari 2013 11.23, abdul hafidz a.hafidz@yahoo.co.id> menulis:
 
> 
>Terima kasih sebelumnya tuk Master Jan & Master Hendrik atas pencerahan yg telah diberikan dan mohon maaf pula yg ternyata case ini sdh di jawab oleh Master Jan, berhubung balasan emailnya masuk ke spam jadi tdk terlihat, jadi saya resend kembali deh casenya hehehee...(asli malu bgt).
> 
>UDF nya sdh berjalan dgn sesuai, dan ada beberapa tambahan yg ingin saya sampaikan :
> 
>1. Bisakah disaat tdk ada pemilihan autofilter (data di kembalikan ke ALL) maka di cell  G11 akan berisi kosong.
>2. Jika data lebih dari 1 (double) dan disaat ada pemilihan autofilter maka di cell G11 hanya akan berisi 1 data saja.
> 
>lampiran terlampir.
> 
>trims
>hafidz
>
>
>Dari: hendrik karnadi hendrikkarnadi@yahoo.com>
>Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
>Dikirim: Rabu, 27 Februari 2013 9:55
>Judul: Fw: [belajar-excel] AADF (ada apa dengan filter) part #2
>
> 
>Bisa juga menggunakan Worksheet Event berikut :Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'double click pada nama yang dipilih u/ memfilter     ActiveSheet.Range("$C$11:$E$33").AutoFilter Field:=1, Criteria1:=ActiveCell.Value     Cancel = True     Range("G11") = ActiveCell.Value     End SubPrivate Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'click mouse kanan untuk membatalkan filter    On Error Resume Next    Range("C11:E11").AutoFilter.Mode = True    Cancel = TrueEnd SubSalam,Hendrik Karnadi
>
>
>
>
>----- Forwarded Message -----
>From: Jan Raisin miss.jan.raisin@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Wednesday, 27 February 2013, 9:39
>Subject: Re: [belajar-excel] AADF (ada apa dengan filter) part #2
>
> 
>Kemarin case ini sudah Jan jawab dengan memberikan solusi berupa UDF,
>
>
>link jawabannya bisa dilihat di sini
>
>
>http://tech.groups.yahoo.com/group/belajar-excel/message/22937  
>
>
>(copas ke browser anda alamat url di atas, jika linknya tidak muncul)
>
>
>Coba cek lagi, jika ada yang masih salah atau kurang pas bisa ditanyakan kembali.
>
>
>Wassalam,
>
>
>-Miss Jan Raisin-
>
>Pada 27 Februari 2013 09.28, abdul hafidz a.hafidz@yahoo.co.id> menulis:
> 
>> 
>>Met pagi all master Be-Excell...sebelumnya sorry klo judulnya sedikit nyeleneh...heheheheee.....ok langsung ke TKP aja yah..begini ceritanya :Rumus apakah yg cocok untuk menampilkan data, dimana data yg akan ditampilkan adalah data dari hasil memfilter sebuah data dan untuk lebih jelasnya bisa dilihat dari file yg dilampirkan.Demikianlah ceritanya,sorry bila merepotkan yah..trims.regardsHafidz
>>
>>

Tue Feb 26, 2013 9:40 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Kalau datanya sesuai contoh (ada beberapa nama namun satu orang yang sama) maka coba Copas Code ini di Sheet1 VBE

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'double click pada nama yang dipilih u/ memfilter
     ActiveSheet.Range("$C$11:$E$33").AutoFilter Field:=1, Criteria1:=ActiveCell.Value
     Cancel = True
     Range("G11").Value = ActiveCell.Value
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'click mouse kanan untuk membatalkan filter
    On Error Resume Next
    Range("C11:E11").AutoFilter.Mode = True
    Cancel = True
    Range("G11").Value = "" 'tambahan code untuk menghapus isi sel G11
End Sub

Salam,
Hendrik Karnadi

________________________________
From: abdul hafidz a.hafidz@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
Sent: Wednesday, 27 February 2013, 12:20
Subject: Bls: [belajar-excel] AADF (ada apa dengan filter) part #2


 
data yg pertama Master Jan,

 

Dari: Jan Raisin miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 27 Februari 2013 11:27
Judul: Re: [belajar-excel] AADF (ada apa dengan filter) part #2

 
Sebelum dijawab, Jan mau tanya dulu untuk pertanyaan yang nomer 2, jika dobel maka data yang mana yang akan ditampilkan? data pertama? data terakhir? atau data yang mana? (anggap ada 3 atau lebih data)

-Miss Jan Raisin-

Pada 27 Februari 2013 11.23, abdul hafidz a.hafidz@yahoo.co.id> menulis:

> 
> 
>Terima kasih sebelumnya tuk Master Jan & Master Hendrik atas pencerahan yg telah diberikan dan mohon maaf pula yg ternyata case ini sdh di jawab oleh Master Jan, berhubung balasan emailnya masuk ke spam jadi tdk terlihat, jadi saya resend kembali deh casenya hehehee...(asli malu bgt).
> 
>UDF nya sdh berjalan dgn sesuai, dan ada beberapa tambahan yg ingin saya sampaikan :
> 
>1. Bisakah disaat tdk ada pemilihan autofilter (data di kembalikan ke ALL) maka di cell  G11 akan berisi kosong.
>2. Jika data lebih dari 1 (double) dan disaat ada pemilihan autofilter maka di cell G11 hanya akan berisi 1 data saja.
> 
>lampiran terlampir.
> 
>trims
>hafidz
>
>
>Dari: hendrik karnadi hendrikkarnadi@yahoo.com>
>Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
>Dikirim: Rabu, 27 Februari 2013 9:55
>Judul: Fw: [belajar-excel] AADF (ada apa dengan filter) part #2
>
> 
>Bisa juga menggunakan Worksheet Event berikut :Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'double click pada nama yang dipilih u/ memfilter     ActiveSheet.Range("$C$11:$E$33").AutoFilter Field:=1, Criteria1:=ActiveCell.Value     Cancel = True     Range("G11") = ActiveCell.Value     End SubPrivate Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'click mouse kanan untuk membatalkan filter    On Error Resume Next    Range("C11:E11").AutoFilter.Mode = True    Cancel = TrueEnd SubSalam,Hendrik Karnadi
>
>
>
>
>----- Forwarded Message -----
>From: Jan Raisin miss.jan.raisin@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Wednesday, 27 February 2013, 9:39
>Subject: Re: [belajar-excel] AADF (ada apa dengan filter) part #2
>
> 
>Kemarin case ini sudah Jan jawab dengan memberikan solusi berupa UDF,
>
>
>link jawabannya bisa dilihat di sini
>
>
>http://tech.groups.yahoo.com/group/belajar-excel/message/22937  
>
>
>(copas ke browser anda alamat url di atas, jika linknya tidak muncul)
>
>
>Coba cek lagi, jika ada yang masih salah atau kurang pas bisa ditanyakan kembali.
>
>
>Wassalam,
>
>
>-Miss Jan Raisin-
>
>Pada 27 Februari 2013 09.28, abdul hafidz a.hafidz@yahoo.co.id> menulis:
>
>> 
>> 
>>Met pagi all master Be-Excell...sebelumnya sorry klo judulnya sedikit nyeleneh...heheheheee.....ok langsung ke TKP aja yah..begini ceritanya :Rumus apakah yg cocok untuk menampilkan data, dimana data yg akan ditampilkan adalah data dari hasil memfilter sebuah data dan untuk lebih jelasnya bisa dilihat dari file yg dilampirkan.Demikianlah ceritanya,sorry bila merepotkan yah..trims.regardsHafidz
>>
>>

Tue Feb 26, 2013 11:06 pm (PST) . Posted by:

"Jan Raisin"

Coba juga yang ini:

1. Jika kriteria filter hanya 1 tetapi data kembar, maka akan memunculkan 1
hasil
2. Jika kriteria filter *n* kriteria tetapi jumlah hasil sebanyak *m* maka
akan memunculkan *n* hasil
3. Jika tidak ada data yang difilter maka hasilnya adalah blank

script udf nya lebih panjang dari scriptnya pak Hendrik huhuhuhu... T_T

Function KriteriaFilter(rgData As Range) As String
Dim sData As String
Dim xData As Range
Dim lRow As Long, iCol As Integer, iCount As Integer, iData As Integer,
iTtl As Integer

sData = ""
iCount = 0
iTtl = 0
For Each xData In rgData
lRow = xData.Row
iCol = xData.Column
iCount = iCount + 1
If xData.Rows.EntireRow.Hidden = False Then
iTtl = iTtl + 1
iData = Application.WorksheetFunction.CountIf(Range(Cells(lRow
- iCount + 1, iCol), Cells(lRow, iCol)), xData.Value)
If sData = "" Then
sData = xData.Value
ElseIf sData <> "" And iData = 1 Then
sData = sData & "," & xData.Value
Else
sData = sData
End If
End If
Next xData
If iTtl = iCount Then
sData = ""
End If
KriteriaFilter = sData
End Function

cara penggunaan masih sama yaitu =KriteriaFilter ( range_datanya )

Wassalam,

-Miss Jan Raisin-
~ gadis manis di kampus biru ~

Pada 27 Februari 2013 12.40, hendrik karnadi hendrikkarnadi@yahoo.com>menulis:

> **
>
>
> Kalau datanya sesuai contoh (ada beberapa nama namun satu orang yang sama)
> maka coba Copas Code ini di Sheet1 VBE
>
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean) 'double click pada nama yang dipilih u/ memfilter
> ActiveSheet.Range("$C$11:$E$33").AutoFilter Field:=1,
> Criteria1:=ActiveCell.Value
> Cancel = True
> Range("G11").Value = ActiveCell.Value
> End Sub
>
> Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As
> Boolean) 'click mouse kanan untuk membatalkan filter
> On Error Resume Next
> Range("C11:E11").AutoFilter.Mode = True
> Cancel = True
> Range("G11").Value = "" 'tambahan code untuk menghapus isi sel G11
> End Sub
>
> Salam,
> Hendrik Karnadi
>
>
> ------------------------------
> *From:* abdul hafidz a.hafidz@yahoo.co.id>
> *To:* "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
> *Sent:* Wednesday, 27 February 2013, 12:20
> *Subject:* Bls: [belajar-excel] AADF (ada apa dengan filter) part #2
>
>
> data yg pertama Master Jan,
>
>
>
> *Dari:* Jan Raisin miss.jan.raisin@gmail.com>
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Rabu, 27 Februari 2013 11:27
> *Judul:* Re: [belajar-excel] AADF (ada apa dengan filter) part #2
>
> Sebelum dijawab, Jan mau tanya dulu untuk pertanyaan yang nomer 2, jika
> dobel maka data yang mana yang akan ditampilkan? data pertama? data
> terakhir? atau data yang mana? (anggap ada 3 atau lebih data)
>
> -Miss Jan Raisin-
> Pada 27 Februari 2013 11.23, abdul hafidz a.hafidz@yahoo.co.id> menulis:
>
> **
>
>
> Terima kasih sebelumnya tuk Master Jan & Master Hendrik atas pencerahan yg
> telah diberikan dan mohon maaf pula yg ternyata case ini sdh di jawab oleh
> Master Jan, berhubung balasan emailnya masuk ke spam jadi tdk
> terlihat, jadi saya resend kembali deh casenya hehehee...(asli malu bgt).
>
> UDF nya sdh berjalan dgn sesuai, dan ada beberapa tambahan yg ingin
> saya sampaikan :
>
> 1. Bisakah disaat tdk ada pemilihan autofilter (data di kembalikan ke ALL)
> maka di cell *G11* akan berisi kosong.
> 2. Jika data lebih dari 1 (double) dan disaat ada pemilihan autofilter
> maka di cell *G11* hanya akan berisi 1 data saja.
>
> lampiran terlampir.
>
> trims
> hafidz
>
> *Dari:* hendrik karnadi hendrikkarnadi@yahoo.com>
> *Kepada:* "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
> *Dikirim:* Rabu, 27 Februari 2013 9:55
> *Judul:* Fw: [belajar-excel] AADF (ada apa dengan filter) part #2
> **
>
> Bisa juga menggunakan Worksheet Event berikut :
> **
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean) 'double click pada nama yang dipilih u/ memfilter**
> ActiveSheet.Range("$C$11:$E$33").AutoFilter Field:=1,
> Criteria1:=ActiveCell.Value** Cancel = True** Range("G11") =
> ActiveCell.Value** **End Sub****Private Sub
> Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'click
> mouse kanan untuk membatalkan filter** On Error Resume Next**
> Range("C11:E11").AutoFilter.Mode = True** Cancel = True**End Sub****
> Salam,**Hendrik Karnadi**
>
>
> ----- Forwarded Message -----
> *From:* Jan Raisin miss.jan.raisin@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Wednesday, 27 February 2013, 9:39
> *Subject:* Re: [belajar-excel] AADF (ada apa dengan filter) part #2
> **
>
> Kemarin case ini sudah Jan jawab dengan memberikan solusi berupa UDF,
>
> link jawabannya bisa dilihat di sini
>
> http://tech.groups.yahoo.com/group/belajar-excel/message/22937
>
> (copas ke browser anda alamat url di atas, jika linknya tidak muncul)
>
> Coba cek lagi, jika ada yang masih salah atau kurang pas bisa ditanyakan
> kembali.
>
> Wassalam,
>
> -Miss Jan Raisin-
> **
> Pada 27 Februari 2013 09.28, abdul hafidz a.hafidz@yahoo.co.id> menulis:*
> *
>
> **
>
>
> Met pagi all master Be-Excell...**sebelumnya sorry klo judulnya
> sedikit nyeleneh...**heheheheee.....****ok langsung ke TKP aja yah..**begini
> ceritanya :****Rumus apakah yg cocok untuk menampilkan data, dimana data
> yg akan ditampilkan adalah data dari hasil memfilter sebuah data dan untuk
> lebih jelasnya bisa dilihat dari file yg dilampirkan.****Demikianlah
> ceritanya,**sorry bila merepotkan yah..****trims.****regards**Hafidz******
>
> ****
>
> **
> ****
> ****
>
>
>
>
>

Tue Feb 26, 2013 11:39 pm (PST) . Posted by:

"abdul hafidz" a.hafidz

 
Sungguh luar biasa para master2 ini, sekali lagi saya ucapkan terima kasih yg teramat sangat atas pencerahan yg telah diberikan  pada case yg saya punya sehingga menghasilkan banyak cara yg dpt digunakan.
 
- Untuk Master Hendrik cara yg diberikan sungguh unik dgn kode VBE yg sangat ringkas, seandainya saja fungsi doubleklik dan rightklik nya tidak perlu disertakan saya rasa akan sangat lebih ringkas lagi.
- Untuk Master Jan sekalipun kodeVBE nya cukup panjang dari kepunyaan Master Hendrik saya rasa ini sudah lebih dari cukup untuk menyelesaikan case yg saya punya.
 
wassalam.
hafidz

________________________________
Dari: Jan Raisin miss.jan.raisin@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 27 Februari 2013 14:06
Judul: Re: Bls: [belajar-excel] AADF (ada apa dengan filter) part #2

 
Coba juga yang ini:

1. Jika kriteria filter hanya 1 tetapi data kembar, maka akan memunculkan 1 hasil
2. Jika kriteria filter n kriteria tetapi jumlah hasil sebanyak m maka akan memunculkan n hasil
3. Jika tidak ada data yang difilter maka hasilnya adalah blank

script udf nya lebih panjang dari scriptnya pak Hendrik huhuhuhu... T_T

Function KriteriaFilter(rgData As Range) As String
    Dim sData As String
    Dim xData As Range
    Dim lRow As Long, iCol As Integer, iCount As Integer, iData As Integer, iTtl As Integer
    
    sData = ""
    iCount = 0
    iTtl = 0
    For Each xData In rgData
        lRow = xData.Row
        iCol = xData.Column
        iCount = iCount + 1
        If xData.Rows.EntireRow.Hidden = False Then
            iTtl = iTtl + 1
            iData = Application.WorksheetFunction.CountIf(Range(Cells(lRow - iCount + 1, iCol), Cells(lRow, iCol)), xData.Value)
            If sData = "" Then
                sData = xData.Value
            ElseIf sData <> "" And iData = 1 Then
                sData = sData & "," & xData.Value
            Else
                sData = sData
            End If
        End If
    Next xData
    If iTtl = iCount Then
        sData = ""
    End If
    KriteriaFilter = sData
End Function

cara penggunaan masih sama yaitu =KriteriaFilter ( range_datanya)

Wassalam,

-Miss Jan Raisin-
~ gadis manis di kampus biru ~
Pada 27 Februari 2013 12.40, hendrik karnadi hendrikkarnadi@yahoo.com> menulis:
 
>Kalau datanya sesuai contoh (ada beberapa nama namun satu orang yang sama) maka coba Copas Code ini di Sheet1 VBE
>
>
>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'double click pada nama yang dipilih u/ memfilter
>     ActiveSheet.Range("$C$11:$E$33").AutoFilter Field:=1, Criteria1:=ActiveCell.Value
>     Cancel = True
>     Range("G11").Value = ActiveCell.Value
>End Sub
>
>
>Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'click mouse kanan untuk membatalkan filter
>    On Error Resume Next
>    Range("C11:E11").AutoFilter.Mode = True
>    Cancel = True
>    Range("G11").Value = "" 'tambahan code untuk menghapus isi sel G11
>End Sub
>
>
>Salam,
>Hendrik Karnadi
>
>
>
>
>
>________________________________
>From: abdul hafidz a.hafidz@yahoo.co.id>
>To: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
>Sent: Wednesday, 27 February 2013, 12:20
>Subject: Bls: [belajar-excel] AADF (ada apa dengan filter) part #2
>
> 
>data yg pertama Master Jan,
>
>
>
>
>Dari: Jan Raisin miss.jan.raisin@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Rabu, 27 Februari 2013 11:27
>Judul: Re: [belajar-excel] AADF (ada apa dengan filter) part #2
>
> 
>Sebelum dijawab, Jan mau tanya dulu untuk pertanyaan yang nomer 2, jika dobel maka data yang mana yang akan ditampilkan? data pertama? data terakhir? atau data yang mana? (anggap ada 3 atau lebih data)
>
>
>-Miss Jan Raisin-
>
>Pada 27 Februari 2013 11.23, abdul hafidz a.hafidz@yahoo.co.id> menulis:
> 
>> 
>>Terima kasih sebelumnya tuk Master Jan & Master Hendrik atas pencerahan yg telah diberikan dan mohon maaf pula yg ternyata case ini sdh di jawab oleh Master Jan, berhubung balasan emailnya masuk ke spam jadi tdk terlihat, jadi saya resend kembali deh casenya hehehee...(asli malu bgt).
>> 
>>UDF nya sdh berjalan dgn sesuai, dan ada beberapa tambahan yg ingin saya sampaikan :
>> 
>>1. Bisakah disaat tdk ada pemilihan autofilter (data di kembalikan ke ALL) maka di cell  G11 akan berisi kosong.
>>2. Jika data lebih dari 1 (double) dan disaat ada pemilihan autofilter maka di cell G11 hanya akan berisi 1 data saja.
>> 
>>lampiran terlampir.
>> 
>>trims
>>hafidz
>>
>>
>>Dari: hendrik karnadi hendrikkarnadi@yahoo.com>
>>Kepada: "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
>>Dikirim: Rabu, 27 Februari 2013 9:55
>>Judul: Fw: [belajar-excel] AADF (ada apa dengan filter) part #2
>>
>> 
>>Bisa juga menggunakan Worksheet Event berikut :Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'double click pada nama yang dipilih u/ memfilter     ActiveSheet.Range("$C$11:$E$33").AutoFilter Field:=1, Criteria1:=ActiveCell.Value     Cancel = True     Range("G11") = ActiveCell.Value     End SubPrivate Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) 'click mouse kanan untuk membatalkan filter    On Error Resume Next    Range("C11:E11").AutoFilter.Mode = True    Cancel = TrueEnd SubSalam,Hendrik Karnadi
>>
>>
>>
>>
>>----- Forwarded Message -----
>>From: Jan Raisin miss.jan.raisin@gmail.com>
>>To: belajar-excel@yahoogroups.com
>>Sent: Wednesday, 27 February 2013, 9:39
>>Subject: Re: [belajar-excel] AADF (ada apa dengan filter) part #2
>>
>> 
>>Kemarin case ini sudah Jan jawab dengan memberikan solusi berupa UDF,
>>
>>
>>link jawabannya bisa dilihat di sini
>>
>>
>>http://tech.groups.yahoo.com/group/belajar-excel/message/22937  
>>
>>
>>(copas ke browser anda alamat url di atas, jika linknya tidak muncul)
>>
>>
>>Coba cek lagi, jika ada yang masih salah atau kurang pas bisa ditanyakan kembali.
>>
>>
>>Wassalam,
>>
>>
>>-Miss Jan Raisin-
>>
>>Pada 27 Februari 2013 09.28, abdul hafidz a.hafidz@yahoo.co.id> menulis:
>> 
>>> 
>>>Met pagi all master Be-Excell...sebelumnya sorry klo judulnya sedikit nyeleneh...heheheheee.....ok langsung ke TKP aja yah..begini ceritanya :Rumus apakah yg cocok untuk menampilkan data, dimana data yg akan ditampilkan adalah data dari hasil memfilter sebuah data dan untuk lebih jelasnya bisa dilihat dari file yg dilampirkan.Demikianlah ceritanya,sorry bila merepotkan yah..trims.regardsHafidz
>>>
>>>

Tue Feb 26, 2013 8:57 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi



Ini adalah pertanyaan seorang member di mils tetangga 

Mohon bantuan para Master Excel,

DATA SISWA TAHUN: 2010

NAMA             KELAS
adi                  2 SMA
candra             1 SMP
vika                 5 SD
Yudi                3 SMP

Permasalahannya : Jika Tahun data Siswa di ubah 2011, maka kolom kelas akan berubah ke jenjang yang lebih tinggi, yang asalnya 2 SMA menjadi 3 SMA, 5 SD menjadi 6 SD, 3 SMP menjadi 1 SMA,

Daftar tinkat atau jenjangnya adalah sebagai berikut:

Tingkat:
3 SMA  
2 SMA
1 SMA
3 SMP
2 SMP
1 SMP
6 SD
5 SD
4 SD
3 SD
2 SD
1 SD
2 TK
1 TK
yang saya coba selesaikan dengan fungsi Index.

Pada sel tahun (warna hjiau) saya buat Data Validation dari th 2010 s/d th 2014.

Index mengacu pada "Tingkat" 3 SMA s/d 1 TK dengan tahun awal 2010.

Jika saya pilih tahun 2012 (2 tahun kemudian) maka Nama "Adi" yang pada thn 2010 kelas 2 SMA seharusnya tidak ada tingkatnya lagi (karena tingkat tertinggi adalah 3 SMA).

Pertanyaan :
Mengapa fungsi Index tsb menghasilkan nilai "1 SMA" bukan "#Value!"

Mohon pencerahan dari rekan2 sekalian.
.
Terima kasih.

Salam,
Hendrik Karnadi

Tue Feb 26, 2013 9:49 pm (PST) . Posted by:

"summonery" summonery

Bahasa lain dari pertanyaannya,Kenapa:=INDEX({"3 SMA";"2 SMA";"1 SMA";"3
SMP";"2 SMP";"1 SMP";"6 SD";"5 SD";"4 SD";"3 SD";"2 SD";"1 SD";"2 TK";"1
TK"},0) Menghasilkan:bukan "#Value!"
Dari excel help:
* If you set row_num or column_num to 0 (zero), INDEX returns the
array of values for the entire column or row

NB: Formula tersebut sebenarnya menghasilkan array {"3 SMA";"2 SMA";"1
SMA";"3 SMP";"2 SMP";"1 SMP";"6 SD";"5 SD";"4 SD";"3 SD";"2 SD";"1
SD";"2 TK";"1 TK"}
Terus kenapa hasil yang tampil "1 SMA"?, dalam hal ini by design excel
menampilkan nilai yang berada pada row yang sama dengan cell tempat
formula berada

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, hendrik karnadi
wrote:
>
>
>
> Ini adalah pertanyaan seorang member di mils tetanggaÂ
>
>
> Mohon bantuan para Master Excel,
>
> DATA SISWA TAHUN: 2010
>
> NAMAÂ Â Â Â Â Â Â Â Â Â Â Â KELAS
> adi            Â
    2 SMA
> candra            1
SMP
> vika            Â
   5 SD
> Yudi            Â
  3 SMP
>
> Permasalahannya : Jika Tahun data Siswa di ubah 2011, maka kolom kelas
akan berubah ke jenjang yang lebih tinggi, yang asalnya 2 SMA menjadi 3
SMA, 5 SD menjadi 6 SD, 3 SMP menjadi 1 SMA,
>
> Daftar tinkat atau jenjangnya adalah sebagai berikut:
>
> Tingkat:
> 3 SMA Â
> 2 SMA
> 1 SMA
> 3 SMP
> 2 SMP
> 1 SMP
> 6 SD
> 5 SD
> 4 SD
> 3 SD
> 2 SD
> 1 SD
> 2 TK
> 1 TK
> yang saya coba selesaikan dengan fungsi Index.
>
> Pada sel tahun (warna hjiau) saya buat Data Validation dari th 2010
s/d th 2014.
>
> Index mengacu pada "Tingkat" 3 SMA s/d 1 TK dengan tahun awal 2010.
>
> Jika saya pilih tahun 2012 (2 tahun kemudian) maka Nama "Adi" yang
pada thn 2010 kelas 2 SMA seharusnya tidak ada tingkatnya lagi (karena
tingkat tertinggi adalah 3 SMA).
>
> Pertanyaan :
> Mengapa fungsi Index tsb menghasilkan nilai "1 SMA" bukan "#Value!"
>
>
> Mohon pencerahan dari rekan2 sekalian.
> .
> Terima kasih.
>
>
> Salam,
> Hendrik Karnadi
>

Tue Feb 26, 2013 10:03 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Terima kasih Pak Anton. Ini ilmu baru buat saya.

Salam,
Hendrik Karnadi

________________________________
From: summonery summonery@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Wednesday, 27 February 2013, 12:49
Subject: [belajar-excel] Re: Apa yang salah dengan fungsi index ?


 
Bahasa lain dari pertanyaannya,
Kenapa:
=INDEX({"3 SMA";"2 SMA";"1 SMA";"3 SMP";"2 SMP";"1 SMP";"6 SD";"5 SD";"4 SD";"3 SD";"2 SD";"1 SD";"2 TK";"1 TK"},0) 
Menghasilkan:
bukan"#Value!"

Dari excel help:
* If you set row_num or column_num to 0 (zero), INDEX returns the array of values for the entire column or row

NB: Formula tersebut sebenarnya menghasilkan array {"3 SMA";"2 SMA";"1 SMA";"3 SMP";"2 SMP";"1 SMP";"6 SD";"5 SD";"4 SD";"3 SD";"2 SD";"1 SD";"2 TK";"1 TK"}

Terus kenapa hasil yang tampil "1 SMA"?, dalam hal ini by design excel menampilkan nilai yang berada pada row yang sama dengan cell tempat formula berada

>semoga bermanfaat

--- In belajar-excel@yahoogroups.com, hendrik karnadi wrote:
>
>
>
> Ini adalah pertanyaan seorang member di mils tetangga 
>
>
> Mohon bantuan para Master Excel,
>
> DATA SISWA TAHUN: 2010
>
> NAMA             KELAS
> adi                  2 SMA
> candra             1 SMP
> vika                 5 SD
> Yudi                3 SMP
>
> Permasalahannya : Jika Tahun data Siswa di ubah 2011, maka kolom kelas akan berubah ke jenjang yang lebih tinggi, yang asalnya 2 SMA menjadi 3 SMA, 5 SD menjadi 6 SD, 3 SMP menjadi 1 SMA,
>
> Daftar tinkat atau jenjangnya adalah sebagai berikut:
>
> Tingkat:
> 3 SMA  
> 2 SMA
> 1 SMA
> 3 SMP
> 2 SMP
> 1 SMP
> 6 SD
> 5 SD
> 4 SD
> 3 SD
> 2 SD
> 1 SD
> 2 TK
> 1 TK
> yang saya coba selesaikan dengan fungsi Index.
>
> Pada sel tahun (warna hjiau) saya buat Data Validation dari th 2010 s/d th 2014.
>
> Index mengacu pada "Tingkat" 3 SMA s/d 1 TK dengan tahun awal 2010.
>
> Jika saya pilih tahun 2012 (2 tahun kemudian) maka Nama "Adi" yang pada thn 2010 kelas 2 SMA seharusnya tidak ada tingkatnya lagi (karena tingkat tertinggi adalah 3 SMA).
>
> Pertanyaan :
> Mengapa fungsi Index tsb menghasilkan nilai "1 SMA" bukan "#Value!"
>
>
> Mohon pencerahan dari rekan2 sekalian.
> .
> Terima kasih.
>
>
> Salam,
> Hendrik Karnadi
>

Wed Feb 27, 2013 4:27 am (PST) . Posted by:

"r|o|n|z|t" opreck74

Assalamualaikum, newbie mencari arahan dan pencerahan nya, barrakallah

Salam

Ronny

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of r|o|n|z|t
Sent: Tuesday, February 26, 2013 1:57 PM
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Menginput data di sheet tanpa nilai ganda

Assalamualaikum, sahabat exceller yang baik hatinya, newbie mhn
pencerahannya dalam menginput data agar supaya data yang diambil dari sheet
lain tdk ganda atau double

Sementara ini newbie copas manual, short manual dan delete data yg ganda
manual

Terimakasih atas bantuan dan pencerahannya

Salam

Ronny

Wed Feb 27, 2013 4:28 am (PST) . Posted by:

"omn|vora" omnivora

salam

conditional formatting dengan kriteria duplikat dan rentang waktu

terima kasih
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

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

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

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

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

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

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)