Messages In This Digest (23 Messages)

1a.: Rumus yang tak berfungsi From: abdul hafidz
1b.: Re: Rumus yang tak berfungsi From: hendrik karnadi
1c.: Re: Rumus yang tak berfungsi From: Ki Semprul
1d.: Re: Rumus yang tak berfungsi From: yan.novianto@yahoo.com

2a.: Re: rumus apakah untuk menyembunyikan hasil rumus link? From: Ki Semprul
2b.: Re: rumus apakah untuk menyembunyikan hasil rumus link? From: Wewith Isme
2c.: Re: rumus apakah untuk menyembunyikan hasil rumus link? From: Ki Semprul

3a.: Re: Tanya: Analisis Deret Waktu Metode Variasi Kalender di Excel From: Ki Semprul

4a.: Pengambilan data auto filter dengan macro From: Ipam
4b.: Re: Pengambilan data auto filter dengan macro From: jkssxls Sudarsono
4c.: Re: Pengambilan data auto filter dengan macro From: Ki Semprul
4d.: Re: Pengambilan data auto filter dengan macro From: hendrik karnadi
4e.: Re: Pengambilan data auto filter dengan macro From: jkssxls Sudarsono
4f.: Re: Pengambilan data auto filter dengan macro From: Ipam
4g.: Re: Pengambilan data auto filter dengan macro From: jkssxls Sudarsono

5a.: Bls: [belajar-excel] Menyoal Advance Filter Memakai Macro From: Ismail Hasmin
5b.: Re: Menyoal Advance Filter Memakai Macro (shrsnya Laporan Keuangan) From: hendrik karnadi

6a.: Re: Mohon bantuan rumus apa yang dipakai From: Syamsudin Syamsudin

7a.: tanya rumus utk memunculkan data yg tidak berurutan From: leo
7b.: Re: tanya rumus utk memunculkan data yg tidak berurutan From: Ki Semprul

8a.: excel1 ke excel2 sebagai pengganti vlookup From: Muhammad Robin

9a.: Bls: [belajar-excel] Buka row yang tersembunyi From: Muhammad Robin

10a.: Trs: [belajar-excel] excel1 ke excel2 sebagai pengganti vlookup From: Muhammad Robin

View All Topics | Create New Topic

Messages

1a.: Rumus yang tak berfungsi

Posted by: "abdul hafidz" a.hafidz@yahoo.co.id a.hafidz

Mon Mar 12, 2012 7:41 am (PDT)

Dear rekan2 be-exceller,

- to the point aje dech, mohon pencerahannya yach..
- dalam penulisan rumus ini sudah benarkah or masih keliru..
- krn setelah di jalankan fungsi rumus ini knp tidak berfungsi sesuai yg di inginkan yach....
- seperti inilah rumus yg dimaksud : =IF(Left(E6)>3;"1";"0")
- trims.

regard

h4f1dz

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1b.: Re: Rumus yang tak berfungsi

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Mon Mar 12, 2012 8:05 am (PDT)

Kalau yang anda maksud adalah D6 (data numerik), maka formulanya menjadi begini:

=IF(D6>=3;1;0), tanda pemisahnya tergantung regional setting di komputer anda.

Salam,
Hendrik Karnadi

________________________________
From: abdul hafidz <a.hafidz@yahoo.co.id>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Monday, 12 March 2012, 21:41
Subject: [belajar-excel] Rumus yang tak berfungsi

Dear rekan2 be-exceller,

- to the point aje dech, mohon pencerahannya yach..
- dalam penulisan rumus ini sudah benarkah or masih keliru..
- krn setelah di jalankan fungsi rumus ini knp tidak berfungsi sesuai yg di inginkan yach....
- seperti inilah rumus yg dimaksud : =IF(Left(E6)>3;"1";"0")
- trims.

regard

h4f1dz

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1c.: Re: Rumus yang tak berfungsi

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 4:10 pm (PDT)

Sepertinya bapak Hafidz punya masalah cukup seriyus dengan TYPE DATA dan
cara menuliskannya di cell worksheet Excel.

Mungkin rumus yg anda tuju adalah
*=IF(--LEFT(D6)>=3, 1, 0)*
*
*
Jika *NILAI* karakter terKIRI ex D6 lebihbesar/samadengan *NILAI* 3 berikan
hasil 1 (jika tidak) berikan hasil 0

*LEFT(D6)* menghasilkan huruf (TEXT) pertama pada data yg ada di D6,
(dalam contoh ini = "2" )
*"2"* tidak punya NILAI, malah kalau dibandingkan dengan bilangan 99
dianggap LEBIH BESAR

Tak peduli apakah data di D6 bertype NUMBERS (bilangan) ataupun bertype
TEXT (string of character), fungsi LEFT (dan juga RIGHT serta teman²nya dlm
kategory Fungsi Pengolah Text) akan menghasikan data type TEXT
Contoh ringan: Isikan di suatu cell *= "1"*; di cell sebelahnya * =1*
Penampakan hasil di kedua cell = mirip tetapi* typenya berbeda (text -vs-
bilangan).*
Paling kalau format allignmentnya belum diobok-obok, BILANGAN akan di RATA
KANAN kan sedangkan TEXT akan di RATA KIRI kan.
'TANDA-TANDA" ini sebenarnya adalah merupakan salah satu "PETUNJUK" bagi
kaum yang berfikir".

*--LEFT(D6)* menghasilkan --("2") >> menghasilkan 2
Negasi Ganda *(--)* adalah salah satu cara mengkonversi *Text_Angka*menjadi
*Bilangan*
Cara lain : *VALUE(LEFT(D6)* atau dengan mengalikan 1 atau membagi 1 atau
mengurangi dengan 0 atau menambah dengan 0 dan mungkin masih banyak cara
lain.

Usaha gigih untk mengkonversi "2" menjadi 2 itu adalah dalam rangka
menSUKSESKAN pembandingan (atau operasi matematik lain). Karena anda akan
kena "kutukan" excel; *jika berani membandingkan dua data yg *typenya
berbeda.
("kutukan" itu sudah terbukti yaitu rumus anda tidak sesuai dengan kehendak)

Beberapa eksperimen ada di workbook terlampir, *semoga* ada manfaatnya,
tiada mudharatnya

aaamiin..
*Semprul..Ki!*

link tutorial berbhs indonesia:
Fungsi IF dan Logical-Testnya <http://www.box.com/shared/jtktyu3fu2> (kalau
mau)..bisa didonlot di
http://www.box.com/shared/jtktyu3fu2

2012/3/12 abdul hafidz <a.hafidz@yahoo.co.id>

> **
>
> Dear rekan2 be-exceller,
> - to the point aje dech, mohon pencerahannya yach..
> - dalam penulisan rumus ini sudah benarkah or masih keliru..
> - krn setelah di jalankan fungsi rumus ini knp tidak berfungsi sesuai yg
> di inginkan yach....
> - seperti inilah rumus yg dimaksud : *=IF(Left(E6)>3;"1";"0") *
> - trims.
> regard
> h4f1dz
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)
1d.: Re: Rumus yang tak berfungsi

Posted by: "yan.novianto@yahoo.com" yan.novianto@yahoo.com yan.novianto

Mon Mar 12, 2012 6:04 pm (PDT)

Mungkin yg dimaksud ini

=if(--left(D6))>=3;1;0)

Maaf kalo bukan ini yg diminta

Salam

Yan Novianto
Phone: 085234345667 ®

-----Original Message-----
From: abdul hafidz <a.hafidz@yahoo.co.id>
Sender: belajar-excel@yahoogroups.com
Date: Mon, 12 Mar 2012 22:41:32
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Rumus yang tak berfungsi

Dear rekan2 be-exceller,

- to the point aje dech, mohon pencerahannya yach..
- dalam penulisan rumus ini sudah benarkah or masih keliru..
- krn setelah di jalankan fungsi rumus ini knp tidak berfungsi sesuai yg di inginkan yach....
- seperti inilah rumus yg dimaksud : =IF(Left(E6)>3;"1";"0")
- trims.

regard

h4f1dz

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

2a.: Re: rumus apakah untuk menyembunyikan hasil rumus link?

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 5:36 pm (PDT)

rumus iseng-iseng / iseng-iseng rumus

*=IF(SUM(A2:O2)=0,"",*
* SUBSTITUTE(
TEXT(--CONCATENATE(A2,B2,C2,D2,E2,F2,G2,H2,I2,J2,K2,L2,M2,N2,O2),*
* "00-000-000-0-000-000"),"-",".")**)*

jika hasil HARUS berada di sheet lain; rujukan ke *=A2* diganti *=**
DTB!A2* dst..

bagian Biru meniadakan hasil jika SUM(semua data) = 0
bagian Hijau mengkonversi ke bilangan kemudian di"format tampilan" = *
"00-000-000-0-000-000"*
bagian Ungu mengganti text *"-"* (dash) menjadi *"."* (TITIK)

*Semprul..Ki!*

2012/3/10 Wewith Isme <wewithisme@ymail.com>
> saat kita membutuhkan data yang perlu diambil dari data yang lain maka
dilakukan link data agar otomatis namun bagaimanakah agar data itu muncul
pada saat data tersebut juga ada pada sumber data yang kita butuhkan? atau
dengan katalain hasil rumus tersebut tersembunyi pada saat dibutuhkan?

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2b.: Re: rumus apakah untuk menyembunyikan hasil rumus link?

Posted by: "Wewith Isme" wewithisme@ymail.com wewithism

Mon Mar 12, 2012 6:04 pm (PDT)

malah muncul false.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
2c.: Re: rumus apakah untuk menyembunyikan hasil rumus link?

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 6:28 pm (PDT)

bukankah yg akan dievaluasi ada di sheet DTB

mengapa anda sulit sekali menuliskan *=IF(SUM(DTB!A5:O5)*
malah menuliskan *=IF(SUM(A5:O5) *
jika ditulis di sheet DTB(2) tentunya merujuk ke A5:05 di sheet DTB(2)
sedangkan isi A5:05 di sheet DTB(2) bukan bilangan yg bisa di SUM

*Semprul..Ki!*

2012/3/12 Wewith Isme <wewithisme@ymail.com>

> **
> malah muncul false.
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

3a.: Re: Tanya: Analisis Deret Waktu Metode Variasi Kalender di Excel

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 5:49 pm (PDT)

pak Ade maupun teman-teman lain menginginkan *contoh kasus nyata*
(atau *data-data yg nyata*) dlm sheet

- *ada contoh data (input) / tabel referensi / given values*
- *ada syarat2 / kondisi yg jelas*
- *kalau perlu ada gambaran hasil yg diinginkan*

dengan hanya bilang "metode variasi kalender" tidak semua orang mengerti
maksudnya
(padahal mungkin tahu sekali cara membuat formulasinya)

begitu pak. mohon maaf kalau permintaan tambahan info ini tidak membuat
bapak nyaman...

*Semprul..Ki!*

2012/3/12 Azwar Rhosyied <go_fauzan@yahoo.com>

> **
>
> Maaf pak Ade, saya kurang paham pertanyaan bapak.
> Contoh kasus yg bisa diselesaikan dg metode variasi kalender adalah kasus
> (misal) data penjualan baju muslim yang akan meningkat tajam pada waktu2
> tertentu, misal pada waktu mendekat hari raya. Nah, kasus itu gak cukup
> diselesaikan dg metode ARIMA Box-Jenkins.
>
> ________________________________
> From: M.Ade Alfarid <QA@kkmi.co.id>
> Sent: Monday, March 12, 2012 9:47 AMAda banyak sekali,Pak.
> Bapak menanyakan yang mana?
> Silahkan kirim contoh,ya.
>
> On Mon, 12 Mar 2012 08:27:00 +0700, Azwar Rhosyied <go_fauzan@yahoo.com>
> wrote:
> > Dear rekan2 sekalian,
> > apakah ada yang tahu analisis deret waktu metode variasi kalender
> di Excel?
> > Ataukah ada software lain jika memang tidak ada?
> > Thx
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

4a.: Pengambilan data auto filter dengan macro

Posted by: "Ipam" ryn.herlambang@yahoo.co.id ryn.herlambang

Mon Mar 12, 2012 8:00 pm (PDT)

Dear Milis,
Mohon petunjuk bagaimana perintah macro untuk mengambil data suatu field di auto filter misalnya dengan data sederhana sbb:
JENIS NAMA HARGA
MINUMAN JUS JERUK 10000
MINUMAN JUS JAMBU 12000
MINUMAN ES TEH 5000
MAKANAN SOTO AYAM 10000
MAKANAN BAKSO 10000

Bila data tsb di auto filter bagaimana perintah dalam macro untuk menjumlahkan semua nilai total yang ada dalam kategori MINUMAN saja?

Terima kasih sebelumnya

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
4b.: Re: Pengambilan data auto filter dengan macro

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Mon Mar 12, 2012 8:58 pm (PDT)

JENIS NAMA
HARGA

MINUMAN JUS JERUK
10,000

MINUMAN JUS JAMBU
12,000

MAKANAN SOTO AYAM
10,000

MINUMAN ES TEH
5,000

BUAH STRAWBERRY
25,000

MAKANAN BAKSO
10,000

Sub mc_Filternya()
Range("B2").Select
Selection.AutoFilter
Selection.CurrentRegion.Select' atau gunakan cara ini
' Range(Selection, Selection.End(xlToRight)).Select ' Kolom terakhir
' Range(Selection, Selection.End(xlDown)).Select ' Baris terakhir'-------

Selection.AutoFilter Field:=1, Criteria1:="=*MAKANAN*" _
, Operator:=xlAnd
jumbaris = Selection.Rows.Count
jumkolom = Selection.Columns.Count
Dim posisiakhir as range
Set posisiakhir = Selection.Offset(jumbaris, jumkolom - 1).Resize(1, 1)
posisiakhir.Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" & jumbaris & "]C:R[-1]C)"
End Sub
To: belajar-excel@yahoogroups.com
From: ryn.herlambang@yahoo.co.id
Date: Tue, 13 Mar 2012 02:48:41 +0000
Subject: [belajar-excel] Pengambilan data auto filter dengan macro

Dear Milis,

Mohon petunjuk bagaimana perintah macro untuk mengambil data suatu field di auto filter misalnya dengan data sederhana sbb:

JENIS NAMA HARGA

MINUMAN JUS JERUK 10000

MINUMAN JUS JAMBU 12000

MINUMAN ES TEH 5000

MAKANAN SOTO AYAM 10000

MAKANAN BAKSO 10000

Bila data tsb di auto filter bagaimana perintah dalam macro untuk menjumlahkan semua nilai total yang ada dalam kategori MINUMAN saja?

Terima kasih sebelumnya

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
4c.: Re: Pengambilan data auto filter dengan macro

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 9:27 pm (PDT)

Private Sub Semprul_Sum_Bersyarat()
Dim TabRef As Range, Items
Dim i As Integer, Totaaaaaal As Long, r As Long

Set TabRef = Range("B6").CurrentRegion
Items = Array("MAKANAN", "MINUMAN")
For i = 0 To UBound(Items)
Totaaaaaal = 0
For r = 2 To TabRef.Rows.Count
' inilah makro filternya
' sambil mengakumulasi nilai kolom3
If TabRef(r, 1).Value = Items(i) Then
Totaaaaaal * = * *Totaaaaaal + TabRef(r, 3).Value*
End If
Next r
Range("E18").Offset(i, 0) = Items(i) ' kriteria dituliskan
Range("F18").Offset(i, 0) = Totaaaaaal ' SUM hasil Filter
dituliskan
Next i
End Sub

*Semprul..Ki!*

2012/3/13 Ipam <ryn.herlambang@yahoo.co.id>

> **
>
> Dear Milis,
> Mohon petunjuk bagaimana perintah macro untuk mengambil data suatu field
> di auto filter misalnya dengan data sederhana sbb:
> JENIS NAMA HARGA
> MINUMAN JUS JERUK 10000
> MINUMAN JUS JAMBU 12000
> MINUMAN ES TEH 5000
> MAKANAN SOTO AYAM 10000
> MAKANAN BAKSO 10000
>
> Bila data tsb di auto filter bagaimana perintah dalam macro untuk
> menjumlahkan semua nilai total yang ada dalam kategori MINUMAN saja?
>
> Terima kasih sebelumnya
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
4d.: Re: Pengambilan data auto filter dengan macro

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Mon Mar 12, 2012 9:56 pm (PDT)

Dari contoh yang anda berikan, kelihatannya harga adalah harga satuan.
Yang mau dijumlahkan nilainya (harga satuan x jumlah unit yang terjual) kan?

Salam,
Hendrik

________________________________
From: Ipam <ryn.herlambang@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Tuesday, 13 March 2012, 9:48
Subject: [belajar-excel] Pengambilan data auto filter dengan macro

Dear Milis,
Mohon petunjuk bagaimana perintah macro untuk mengambil data suatu field di auto filter misalnya dengan data sederhana sbb:
JENIS NAMA HARGA
MINUMAN JUS JERUK 10000
MINUMAN JUS JAMBU 12000
MINUMAN ES TEH 5000
MAKANAN SOTO AYAM 10000
MAKANAN BAKSO 10000

Bila data tsb di auto filter bagaimana perintah dalam macro untuk menjumlahkan semua nilai total yang ada dalam kategori MINUMAN saja?

Terima kasih sebelumnya

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
4e.: Re: Pengambilan data auto filter dengan macro

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Mon Mar 12, 2012 10:02 pm (PDT)

Jika ingin lebih fleksibel , maka tambahkan sheet 'Filternya' di B2 :

JENIS NAMA
HARGA

*JUS*
>10000

yang memiliki maksud : temukan kata `JUS` di jenis menu , dengan harga > 10000 ( sepuluh ribu ) maka macronya : Sub Mc_AdvFilter()
Dim daerahfilter As Range
Sheets("Filternya").Activate
Range("B2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set daerahfilter = Selection

Sheets("Data").Activate
Range("B2").Select
Selection.AutoFilter
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
daerahfilter, Unique:=False

Dim jumbaris, jumkolom As Long
jumbaris = Selection.Rows.Count
jumkolom = Selection.Columns.Count
Dim posisiakhir As Range
Set posisiakhir = Selection.Offset(jumbaris, jumkolom - 1).Resize(1, 1)
posisiakhir.Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" & jumbaris - 1 & "]C:R[-1]C)"
End Sub

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Tue, 13 Mar 2012 03:54:35 +0000
Subject: RE: [belajar-excel] Pengambilan data auto filter dengan macro

JENIS NAMA
HARGA

MINUMAN JUS JERUK
10,000

MINUMAN JUS JAMBU
12,000

MAKANAN SOTO AYAM
10,000

MINUMAN ES TEH
5,000

BUAH STRAWBERRY
25,000

MAKANAN BAKSO
10,000

Sub mc_Filternya()
Range("B2").Select
Selection.AutoFilter

Selection.CurrentRegion.Select
' atau gunakan cara ini
' Range(Selection, Selection.End(xlToRight)).Select ' Kolom terakhir
' Range(Selection, Selection.End(xlDown)).Select ' Baris terakhir
'-------

Selection.AutoFilter Field:=1, Criteria1:="=*MAKANAN*" _
, Operator:=xlAnd
jumbaris = Selection.Rows.Count
jumkolom = Selection.Columns.Count
Dim posisiakhir as range
Set posisiakhir = Selection.Offset(jumbaris, jumkolom - 1).Resize(1, 1)
posisiakhir.Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" & jumbaris & "]C:R[-1]C)"
End Sub

To: belajar-excel@yahoogroups.com
From: ryn.herlambang@yahoo.co.id
Date: Tue, 13 Mar 2012 02:48:41 +0000
Subject: [belajar-excel] Pengambilan data auto filter dengan macro

Dear Milis,

Mohon petunjuk bagaimana perintah macro untuk mengambil data suatu field di auto filter misalnya dengan data sederhana sbb:

JENIS NAMA HARGA

MINUMAN JUS JERUK 10000

MINUMAN JUS JAMBU 12000

MINUMAN ES TEH 5000

MAKANAN SOTO AYAM 10000

MAKANAN BAKSO 10000

Bila data tsb di auto filter bagaimana perintah dalam macro untuk menjumlahkan semua nilai total yang ada dalam kategori MINUMAN saja?

Terima kasih sebelumnya

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
4f.: Re: Pengambilan data auto filter dengan macro

Posted by: "Ipam" ryn.herlambang@yahoo.co.id ryn.herlambang

Mon Mar 12, 2012 11:26 pm (PDT)

Wow!
Terima kasih atas jawaban dari jkssbma, ki semprul dan Hendrik :D

Saya sudah coba dan berjalan mulus.

@jkssbma
Bagaimana caranya agar nilai subtotal dimunculkan di tempat cell dimana saya mengeksekusi macro tersebut?
Maksudnya, saya sudah memiliki tabel dengan filter dan saya membuat tabel lainnya sebagai summary dimana di dalam tabel tersebut akan muncul nilai2 sesuai dengan macro yang saya jalankan.

Salam

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
4g.: Re: Pengambilan data auto filter dengan macro

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Tue Mar 13, 2012 12:10 am (PDT)

Sub Mc_AdvFilter_2()
' UNTUK MENCEGAH WORKSHEET YG TIDAK SEHARUSNYA
If UCase(ActiveSheet.Name) <> "JUMLAH" Then Exit Sub

Dim posisiakhir As Range
Set posisiakhir = ActiveCell

Dim daerahfilter As Range
Sheets("Filternya").Activate
Range("B2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set daerahfilter = Selection

Sheets("Data").Activate
Range("B2").Select
Selection.AutoFilter
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
daerahfilter, Unique:=False
Dim daerahJumlah As Range
Set daerahJumlah = Selection

Dim jumbaris, jumkolom As Long
jumbaris = Selection.Rows.Count
jumkolom = Selection.Columns.Count
Dim strrumus As String
strrumus = "=SUBTOTAL(9," & "Data!" & daerahJumlah.Address & ")"
posisiakhir.Formula = strrumus

End Sub
@jkssbma
Bagaimana caranya agar nilai subtotal dimunculkan di tempat cell dimana saya mengeksekusi macro tersebut?
Maksudnya, saya sudah memiliki tabel dengan filter dan saya membuat tabel lainnya sebagai summary dimana di dalam tabel tersebut akan muncul nilai2 sesuai dengan macro yang saya jalankan.

Salam

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Tue, 13 Mar 2012 04:58:37 +0000
Subject: RE: [belajar-excel] Pengambilan data auto filter dengan macro

Jika ingin lebih fleksibel , maka tambahkan sheet 'Filternya'

di B2 :

JENIS NAMA
HARGA

*JUS*
>10000

yang memiliki maksud :
temukan kata `JUS` di jenis menu , dengan harga > 10000 ( sepuluh ribu )

maka macronya :

Sub Mc_AdvFilter()
Dim daerahfilter As Range
Sheets("Filternya").Activate
Range("B2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set daerahfilter = Selection

Sheets("Data").Activate
Range("B2").Select
Selection.AutoFilter
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
daerahfilter, Unique:=False

Dim jumbaris, jumkolom As Long
jumbaris = Selection.Rows.Count
jumkolom = Selection.Columns.Count
Dim posisiakhir As Range
Set posisiakhir = Selection.Offset(jumbaris, jumkolom - 1).Resize(1, 1)
posisiakhir.Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" & jumbaris - 1 & "]C:R[-1]C)"
End Sub

To: belajar-excel@yahoogroups.com
From: jkssxls@hotmail.com
Date: Tue, 13 Mar 2012 03:54:35 +0000
Subject: RE: [belajar-excel] Pengambilan data auto filter dengan macro

JENIS NAMA
HARGA

MINUMAN JUS JERUK
10,000

MINUMAN JUS JAMBU
12,000

MAKANAN SOTO AYAM
10,000

MINUMAN ES TEH
5,000

BUAH STRAWBERRY
25,000

MAKANAN BAKSO
10,000

Sub mc_Filternya()
Range("B2").Select
Selection.AutoFilter

Selection.CurrentRegion.Select
' atau gunakan cara ini
' Range(Selection, Selection.End(xlToRight)).Select ' Kolom terakhir
' Range(Selection, Selection.End(xlDown)).Select ' Baris terakhir
'-------

Selection.AutoFilter Field:=1, Criteria1:="=*MAKANAN*" _
, Operator:=xlAnd
jumbaris = Selection.Rows.Count
jumkolom = Selection.Columns.Count
Dim posisiakhir as range
Set posisiakhir = Selection.Offset(jumbaris, jumkolom - 1).Resize(1, 1)
posisiakhir.Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,R[-" & jumbaris & "]C:R[-1]C)"
End Sub

To: belajar-excel@yahoogroups.com
From: ryn.herlambang@yahoo.co.id
Date: Tue, 13 Mar 2012 02:48:41 +0000
Subject: [belajar-excel] Pengambilan data auto filter dengan macro

Dear Milis,

Mohon petunjuk bagaimana perintah macro untuk mengambil data suatu field di auto filter misalnya dengan data sederhana sbb:

JENIS NAMA HARGA

MINUMAN JUS JERUK 10000

MINUMAN JUS JAMBU 12000

MINUMAN ES TEH 5000

MAKANAN SOTO AYAM 10000

MAKANAN BAKSO 10000

Bila data tsb di auto filter bagaimana perintah dalam macro untuk menjumlahkan semua nilai total yang ada dalam kategori MINUMAN saja?

Terima kasih sebelumnya

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)

5a.: Bls: [belajar-excel] Menyoal Advance Filter Memakai Macro

Posted by: "Ismail Hasmin" ismail_hasmin@yahoo.com ismail_hasmin

Mon Mar 12, 2012 11:09 pm (PDT)

Terhormat pada master Excel,

Setelah membaca bahwa ada buku tentang pembuatan Lap.Keuangan yg otomatis pakai Macro sy juga tertarik, tapi dimana saya bisa mendapatkannya, mohon bantuan nya trima kasih.

Hormat sy,
IH

________________________________
Dari: Mr Pecut <pecutmr@yahoo.co.id>
Dikirim: Senin, 12 Maret 2012 13:43

Ok Tks, Mr Hendrik Karnadi & Mr. Kid....
Untuk Mr. Hendrik & Siti Vi, Kapan ada peluncuran buku tentang Pembuatan Laporan Keuangan yang diotommatisasi dengan macro...? kami tunggu loh, kemarin mantaf buku terbitan anda tuh, sangat membantu bagiku yang lagi belajar macro.....

--- Pada Ming, 11/3/12, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

>Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
>Judul: Re: [belajar-excel] Menyoal Advance Filter Memakai Macro
>Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>Tanggal: Minggu, 11 Maret, 2012, 4:46 AM
>
>Dengan sedikit perubahan pada kriteria dan Codenya, penjumlahan dapat dilakukan tepat 1 baris di bawah baris data terakhir.
>
>Salam,
>Hendrik Karnadi

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
5b.: Re: Menyoal Advance Filter Memakai Macro (shrsnya Laporan Keuangan)

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Mon Mar 12, 2012 11:15 pm (PDT)

Mau yang gratis ? Silakan download di 2shared.com, nama filenya LapKeu.rar (pakai PivotTable dan Macro).
Kalau anda di Jakarta, bukunya mungkin masih ada di TB Gramedia Citra Land.

Salam,
Hendrik Karnadi

________________________________
From: Ismail Hasmin <ismail_hasmin@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Tuesday, 13 March 2012, 10:57
Subject: Bls: [belajar-excel] Menyoal Advance Filter Memakai Macro

Terhormat pada master Excel,

Setelah membaca bahwa ada buku tentang pembuatan Lap.Keuangan yg otomatis pakai Macro sy juga tertarik, tapi dimana saya bisa mendapatkannya, mohon bantuan nya trima kasih.

Hormat sy,
IH

________________________________
Dari: Mr Pecut <pecutmr@yahoo.co.id>
Dikirim: Senin, 12 Maret 2012 13:43

Ok Tks, Mr Hendrik Karnadi & Mr. Kid....
Untuk Mr. Hendrik & Siti Vi, Kapan ada peluncuran buku tentang Pembuatan Laporan Keuangan yang diotommatisasi dengan macro...? kami tunggu loh, kemarin mantaf buku terbitan anda tuh, sangat membantu bagiku yang lagi belajar macro.....

--- Pada Ming, 11/3/12, hendrik karnadi <hendrikkarnadi@yahoo.com> menulis:

>Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
>Judul: Re: [belajar-excel] Menyoal Advance Filter Memakai Macro
>Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
>Tanggal: Minggu, 11 Maret, 2012, 4:46 AM
>
>Dengan sedikit perubahan pada kriteria dan Codenya, penjumlahan dapat dilakukan tepat 1 baris di bawah baris data terakhir.
>
>Salam,
>Hendrik Karnadi

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)

6a.: Re: Mohon bantuan rumus apa yang dipakai

Posted by: "Syamsudin Syamsudin" syamsudin.syamsudin@cpp.co.id

Mon Mar 12, 2012 11:09 pm (PDT)

Dear Fritz,

Apakah maksud anda seperti ini :
[cid:image008.jpg@01CD010D.EBC807D0]

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of fritz saiya
Sent: 12 Maret 2012 15:59
To: belajar-excel@yahoogroups.com
Subject: [belajar-excel] Mohon bantuan rumus apa yang dipakai

Salam utuk para pakar Excel.
Saya mencoba buat peta buta seperti ini yang ada di-attachment tetapi belum tahu rumus apa yang harus dipakai.
Mohon bantuannyat.

Sumber data :
Nama Hasil

Kode Kota

Gudeg

YG1

SL2

MG3

SRG67

SMR1

SLT4

Teh Segitel

SL2

MG3

YG1

SLT4

Batik halus

MG24

YG2

SLT5

Bakpia

SMR2

YG41

SL1

Lunpia

SMR65

SLT1

SL3

dst.....

SMR1

[cid:image001.png@01CD010D.B0C0F250]
[cid:image002.jpg@01CD010D.B0C0F250]

[cid:image003.png@01CD010D.B0C0F250]MG3

[cid:image004.png@01CD010D.B0C0F250]SLT4

[cid:image005.png@01CD010D.B0C0F250]

[cid:image006.png@01CD010D.B0C0F250][cid:image007.png@01CD010D.B0C0F250]SRG67

YG1

SL2

Problem sbb:

Jika kita ketik kata Gudeg di cell Nama Hasil , maka hasil yang tertera pada kode kota adalah YG1 - SL2 - MG3 - SRG67 -SMR1 - SLT4.
Dan di kotak peta hanya timbul kode kota YG1 , SL2 , MG3 , SLM3 , SMR1 , SLT4 , yang lainnya tidak muncul.
Begitu pula jika kita ketik untuk nama hasil yang lainnya.

Hasil yang diinginkan

Nama Hasil

Kode kota

Gudeg

YG1 - SL2 - MG3 - SRG67 -SMR1 - SLT4

Dan gambar petanya spt diattachment.

Terima kasih.

Salam,
FJS

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

7a.: tanya rumus utk memunculkan data yg tidak berurutan

Posted by: "leo" adityos2003@yahoo.com adityos2003

Mon Mar 12, 2012 11:15 pm (PDT)

hello master
mau tanya nih kira2 solusinya gimana ya? apakah harus pake rumus ato vba, agar bisa otomatis, trims logh

best regards,

Leonardus Adityo T.P
http://pujanggamu.wordpress.com
"alon-alon asal kelakon"

=============================================
Mods Note:
sambil menunggu tanggapan BeExcellers lain,..
coba lihat2 posting lawas "formula filtering".
banyak loghghghgh !
==============================================

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
7b.: Re: tanya rumus utk memunculkan data yg tidak berurutan

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 11:53 pm (PDT)

pakai rumus juga bisa pakai vba bisa banget
kalau dengan formula, kira-kira spt ini:

*=IF(ISNUMBER(SMALL(IF(B4:B80<>"(blank)",ROW(1:77)),ROW(1:77))),*
* INDEX(B4:B80,SMALL(IF(B4:B80<>"(blank)",ROW(1:77)),ROW(1:77))),"")*
*
*
*array formula* multi-hasil / ditulis sekaligus pada 77 cells sekolom
kalau di excel 2007, dengan adanya fungsi baru IFERROR, rumusnya lebih
pendek dan kekar..

*Semprul..Ki!*

2012/3/13 leo <adityos2003@yahoo.com>
> hello master
> mau tanya nih kira2 solusinya gimana ya? apakah harus pake rumus ato vba,
agar bisa otomatis, trims logh
> best regards,
> Leonardus Adityo T.P
> "alon-alon asal kelakon"
>
> =============================================
> Mods Note:
> sambil menunggu tanggapan BeExcellers lain,..
> coba lihat2 posting lawas "formula filtering".
> banyak loghghghgh !
> ==============================================

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

8a.: excel1 ke excel2 sebagai pengganti vlookup

Posted by: "Muhammad Robin" mrobin86@yahoo.co.id mrobin86

Mon Mar 12, 2012 11:24 pm (PDT)

Be Exceller

Saya ingin tanya, bagaimana cara mengisi jumlah pada excel2 berdasarkan kode divisi dan uraian yang mengacu pada excel1.

klo saya biasanya menggunakan vlookup tapi harus satu-satu per divisi. kalau sekaligus selesai dengan satu kali tekan atau lebih sederhana bagaimana ya caranya?

Terima kasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

9a.: Bls: [belajar-excel] Buka row yang tersembunyi

Posted by: "Muhammad Robin" mrobin86@yahoo.co.id mrobin86

Mon Mar 12, 2012 11:25 pm (PDT)

coba freeze pane-nya di "unfreeze"

moga membantu

___________________
Dari: Dicky Zulkifli <dicky.zulkifli@yahoo.co.id>
Dikirim: Senin, 12 Maret 2012 15:15

Dear All,
Mohon bantuannya, pada excel 2007 rownya tersembunyi, tapi
tidak bisa ditampilkan melalui unhide Row, bias juga sebaliknya bagaimana cara membuatnya.
Atas bantuannya saya ucapkan terimakasih.
Regards,

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

10a.: Trs: [belajar-excel] excel1 ke excel2 sebagai pengganti vlookup

Posted by: "Muhammad Robin" mrobin86@yahoo.co.id mrobin86

Mon Mar 12, 2012 11:27 pm (PDT)

Halo Be exceler
gimana masalah saya?
Terima Kasih

==================================================
Mods Note:
jika lama tak ada tanggapan, salah satu kemungkinan
adalah: penjelasan masalah tidak /sulit ditangkap.
Tidakkah anda (sambil menanyakan ini) ingin menambahkan
info penjelasan masalahnya??
(lihat lagi tips / peraturan milis)
===================================================

----- Pesan yang Diteruskan -----
Dari: Muhammad Robin <mrobin86@yahoo.co.id>
Dikirim: Rabu, 7 Maret 2012 8:11

tumben sepi,
Mas Haps, Mr Kids, Mba Siti Vi, pada kemana kah?
--------------------------------------------------

Be Exceller
Saya ingin tanya, bagaimana cara mengisi jumlah pada excel2 berdasarkan kode divisi dan uraian yang mengacu pada excel1.
klo saya biasanya menggunakan vlookup tapi harus satu-satu per divisi. kalau sekaligus selesai dengan satu kali tekan atau lebih sederhana bagaimana ya caranya?

Terima kasih

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (4)

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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
---------------------------------------------------------------------

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

Selasa, 13 Maret 2012

Messages In This Digest (23 Messages)

Messages

Posted by: "abdul hafidz" a.hafidz@yahoo.co.id a.hafidz

Mon Mar 12, 2012 7:41 am (PDT)

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Mon Mar 12, 2012 8:05 am (PDT)

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 4:10 pm (PDT)

Posted by: "yan.novianto@yahoo.com" yan.novianto@yahoo.com yan.novianto

Mon Mar 12, 2012 6:04 pm (PDT)

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 5:36 pm (PDT)

Posted by: "Wewith Isme" wewithisme@ymail.com wewithism

Mon Mar 12, 2012 6:04 pm (PDT)

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 6:28 pm (PDT)

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 5:49 pm (PDT)

Posted by: "Ipam" ryn.herlambang@yahoo.co.id ryn.herlambang

Mon Mar 12, 2012 8:00 pm (PDT)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Mon Mar 12, 2012 8:58 pm (PDT)

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 9:27 pm (PDT)

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Mon Mar 12, 2012 9:56 pm (PDT)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Mon Mar 12, 2012 10:02 pm (PDT)

Posted by: "Ipam" ryn.herlambang@yahoo.co.id ryn.herlambang

Mon Mar 12, 2012 11:26 pm (PDT)

Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma

Tue Mar 13, 2012 12:10 am (PDT)

Posted by: "Ismail Hasmin" ismail_hasmin@yahoo.com ismail_hasmin

Mon Mar 12, 2012 11:09 pm (PDT)

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Mon Mar 12, 2012 11:15 pm (PDT)

Posted by: "Syamsudin Syamsudin" syamsudin.syamsudin@cpp.co.id

Mon Mar 12, 2012 11:09 pm (PDT)

Posted by: "leo" adityos2003@yahoo.com adityos2003

Mon Mar 12, 2012 11:15 pm (PDT)

Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull

Mon Mar 12, 2012 11:53 pm (PDT)

Posted by: "Muhammad Robin" mrobin86@yahoo.co.id mrobin86

Mon Mar 12, 2012 11:24 pm (PDT)

Posted by: "Muhammad Robin" mrobin86@yahoo.co.id mrobin86

Mon Mar 12, 2012 11:25 pm (PDT)

Posted by: "Muhammad Robin" mrobin86@yahoo.co.id mrobin86

Mon Mar 12, 2012 11:27 pm (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me