Sabtu, 22 Desember 2012

[belajar-excel] Digest Number 1979

15 New Messages

Digest #1979
1a
Re: Link Data Antar Sheet by "Hilman" hilman_email
1b
Re: Link Data Antar Sheet by "Andre Rahmaidy Teeza" andre_teeza_bn
2
Translate Indonesia - Inggris by "dayatshogun46@yahoo.co.id" dayatshogun46
3a
Bukan vlookup - fungsi apa ya? by "Magung Klengkeng" klengkengmagung
3c
4a
filter drop down list by "Faisal Hasman" revolter_ichal
4b
4c
Re: filter drop down list by "Mr. Kid" nmkid.family@ymail.com
6a
Filter data dari Database by "agam Tole" agam_tole
7
unique sort by "Imar Andre" baz.giglo
8a
Re: Konversi Data Teks ke Angka by "ratim sugianto" ratimsugianto
9
Excel to Access (3 data atau lebih) by "Indra Psr" indra_psr

Messages

Fri Dec 21, 2012 10:26 am (PST) . Posted by:

"Hilman" hilman_email

Silakan dicoba ya pak Andre...

Thanks
Hilman

________________________________
From: Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, December 21, 2012 4:03 PM
Subject: [belajar-excel] Link Data Antar Sheet


 
Sore Beexeller

ada yang mau saya tanyakan tentang macro vba untuk link data antar sheet..
misalkan di sheet data punya uraian, sandi dan kode cabang yang harus di isi sesuai dengan data di sheet 2 
yang saya tanyakan apakah bisa menggunakan vba untuk melakukan link data secara otomatis berdasarkan sandi dan kode cabang (KC_1 & KC_2). (data terlampir)
Mohon petunjuknya ya beexeller.
terima kasih sebelumnya

Best Regards

Andree

Sat Dec 22, 2012 1:50 am (PST) . Posted by:

"Andre Rahmaidy Teeza" andre_teeza_bn

Thanks ya sebelumnya pak Hilman atas coding vbanya, cuma yang mau saya tanyakan ternyata ada 30 kode cabang yang akan di isi datanya (KC_1, KC_2, s/d  30) kira2 codingnya seperti apa ya pak??
mohon maaf sebelumnya ya pak masih baru belajar vba..
mohon petunjuknya ya pak.. terima kasih

Thanks 
Andree

________________________________
From: Hilman <hilman_email@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Saturday, December 22, 2012 1:26 AM
Subject: Re: [belajar-excel] Link Data Antar Sheet


 
Silakan dicoba ya pak Andre...

Thanks
Hilman

________________________________
From: Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Friday, December 21, 2012 4:03 PM
Subject: [belajar-excel] Link Data Antar Sheet


 
Sore Beexeller

ada yang mau saya tanyakan tentang macro vba untuk link data antar sheet..
misalkan di sheet data punya uraian, sandi dan kode cabang yang harus di isi sesuai dengan data di sheet 2 
yang saya tanyakan apakah bisa menggunakan vba untuk melakukan link data secara otomatis berdasarkan sandi dan kode cabang (KC_1 & KC_2). (data terlampir)
Mohon petunjuknya ya beexeller.
terima kasih sebelumnya

Best Regards

Andree

Fri Dec 21, 2012 2:48 pm (PST) . Posted by:

"dayatshogun46@yahoo.co.id" dayatshogun46

Dear para teman excel semua

Sejauh ini fungsi dan fitur excel sudah mengalami berbagai modifikasi dan pemecahan, baik dari segi rumus dan macro, dari excel lama sd excel 2007, bahkan sampai bisa dikembangkan menjadi mini game yang memang butuh talenta tinggi dan keahlian luar biasa untuk mengolah excel lebih dari sekedar perangkat sofware perhitungan, dari salah satunya sentar terbentuk suatu proses program excel yang menghasilkan rumus dan macro terbilang, hal itu merupakan suatu rangkaian pemikiran luar biasa dalam proses pembuatannya. Terimakasih para dermawan yang mau berbagi ilmu dan keiklasannya mau berbagi. Seperti siti-vi (alm), MR Kid dan kawan lainya yang banyak meluangkan waktu untuk memecahkan dan berbagi.

Pada kesempatan ini bolehkan saya bertanya apakah excel juga bisa membuat rumus atau macro dalam hal translate bahasa Indonesi ke Ingris, dengan menuliskan kalimat kata-kata yang bisa dijadikan sumber alternatif selain penterjemah seperti google translate.


Sekian dari saya
Nor Hidayat
Sent from my BlackBerry� smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

Fri Dec 21, 2012 5:16 pm (PST) . Posted by:

"Magung Klengkeng" klengkengmagung


Dear suhu dan rekan

Mohon bantuannya utnuk solusi problem excel saya.

Saya mempunyai data detail penjualan cabang sebanyak katakanlah 100 cabang secara konsolidasi.

Nah data di masing-masing cabang ini dikelompokkan menjadi beberapa area.

Nah di perjalanan waktu, terjadi perpindahan cabang dari area satu ke area lain.

Dengan menggunakan fungsi vlookup hal ini menjadi repot karena harus mengulang membuat rumus.

Adakah fungsi lain? saya denger ada fungsi match dll tapi saya masih kebingungan dalam aplikasinya.

Data excel terlampir.

Terimakasih atas bantuannya.

Salam,

Bakul klengkeng

Fri Dec 21, 2012 5:45 pm (PST) . Posted by:

"Jan Raisin"

Dear Bakul Klengkeng,

Jan tidak urun solusi, hanya urun saran saja,

Coba buat sebuah database yang baik dan benar dengan syarat dan ketentuan
sebagai berikut:

1. Database dimulai dari cell paling pojok kiri atas (cell A1)
2. Baris pertama adalah header dari setiap kolom
3. Baris kedua ke bawah adalah isi datanya, orientasi data adalah
Vertikal (dari atas ke bawah)
4. Tidak boleh ada baris & kolom kosong antar data
5. Tidak boleh ada merge cell baik di header atau di isi data
6. Manfaatkan fitur Tabel (v 2007 ke atas) atau List (v 2003 ke bawah),
berguna saat ada perubahan (Edit, Tambah, Hapus)

untuk kasus ini kira-kira bentuk databasenya seperti ini:
cell A1: KodeCabang >>> cell A2 ke bawah isi data: Text/String
cell B1: Nomor >>> cell B2 ke bawah isi data: Text/String
cell C1: Keterangan >>> cell C2 ke bawah isi data: Text/String
cell D1: Bulan >>> cell D2 ke bawah isi data : Numeric
cell E1: Jumlah >>> cell E2 ke bawah isi data : Numeric
cell F1: Area >>> cell F2 ke bawah isi data: Text/String

Awalnya akan tampak sulit, tetapi jangan khawatir, karena sesungguhnya
setelah kesulitan itu ada kemudahan 2x.
Jika sudah ada database seperti di atas, untuk membuat laporan Konsolidasi
(sheet Konsolidasi) dan laporan per Area (sheet Area) akan lebih mudah,
bisa menggunakan salah satu dari:

1. Pivot Table
2. Formula
3. VBA

Best Regard,

-Ms. Jan Raisin-

Pada 22 Desember 2012 07:47, Magung Klengkeng
<klengkengmagung@yahoo.co.id>menulis:

> **
>
>
>
> Dear suhu dan rekan
>
> Mohon bantuannya utnuk solusi problem excel saya.
>
> Saya mempunyai data detail penjualan cabang sebanyak katakanlah 100 cabang
> secara konsolidasi.
>
> Nah data di masing-masing cabang ini dikelompokkan menjadi beberapa area.
>
> Nah di perjalanan waktu, terjadi perpindahan cabang dari area satu ke area
> lain.
>
> Dengan menggunakan fungsi vlookup hal ini menjadi repot karena harus
> mengulang membuat rumus.
>
> Adakah fungsi lain? saya denger ada fungsi match dll tapi saya masih
> kebingungan dalam aplikasinya.
>
> Data excel terlampir.
>
> Terimakasih atas bantuannya.
>
> Salam,
>
> Bakul klengkeng
>
>
>

Fri Dec 21, 2012 6:52 pm (PST) . Posted by:

"Bagus" bagus4bls

Dear Bakul klengkeng;

File terlampir semoga sesuai harapan

Bagus

----- Original Message -----
From: Magung Klengkeng
To: belajar-excel@yahoogroups.com
Sent: Saturday, December 22, 2012 7:47 AM
Subject: [belajar-excel] Bukan vlookup - fungsi apa ya?

Dear suhu dan rekan

Mohon bantuannya utnuk solusi problem excel saya.

Saya mempunyai data detail penjualan cabang sebanyak katakanlah 100 cabang secara konsolidasi.

Nah data di masing-masing cabang ini dikelompokkan menjadi beberapa area.

Nah di perjalanan waktu, terjadi perpindahan cabang dari area satu ke area lain.

Dengan menggunakan fungsi vlookup hal ini menjadi repot karena harus mengulang membuat rumus.

Adakah fungsi lain? saya denger ada fungsi match dll tapi saya masih kebingungan dalam aplikasinya.

Data excel terlampir.

Terimakasih atas bantuannya.

Salam,

Bakul klengkeng

Fri Dec 21, 2012 5:36 pm (PST) . Posted by:

"Faisal Hasman" revolter_ichal

dear mailing excel

sebelumnya hal hal ini pernah dibahas

oleh pak hendrik... dengan file contoh FILTER BLOKKOTA
namun setelah saya utak atik
nda bisa jalan sesuai dengan file sample
yangsaya attach
mungkin karena macrox tidak mendukung
karena saya mau memfilter
dengan beberapa kriteria lagi
yaitu, bentuk usaha, dusun, kelurahan/desa dan

kecamatan

mungkin bisa dibantu memecahkan masalah ini
kalo bisa macro filter blokkotax dijelaskan juga

trima kasih

Sat Dec 22, 2012 1:29 am (PST) . Posted by:

"Jan Raisin"

Dear pak Ichal,

coba file terlampir, file diambil dari postingan sebelumnya.

script berikut ditulis di dalam sheet Filter dengan event Change

==============================================================================================================================
Option Explicit

' event change pada sheet Filter
Private Sub Worksheet_Change(ByVal Target As Range)

' bekerja pada cell target yang berubah nilainya
With Target

' jika cell yang berubah hanya 1 maka
If .Cells.Count = 1 Then

' jika cell yang berubah terletak di baris 2 kolom 8 (cell H2)
maka
If .Row = 2 And .Column = 8 Then

' cell H3 dikosongkan dulu
Range("h3").Value = ""

' bersihkan data mulai dari cell A5 sampai data paling
kanan dan paling bawah
Range(Range("a5"),
Range("a5").End(xlToRight).End(xlDown)).ClearContents

' jika nilai dari cell yang berubah (dalam hal ini cell H2)
adlah ALL, maka
If .Value = "ALL" Then

' panggil prosedur Filter, prosedur ini ditulis di
sebuah modul VBE
Filter

' akhir pengecekan perubahan nilai pada cell H2
End If

' akhir pengecekan apakah yang berubah adalah cell H2 atau bukan
End If

' jika cell yang berubah terletak di baris 3 kolom 8 (cell H3)
maka
If .Row = 3 And .Column = 8 Then

' panggil prosedur Filter
Filter

' akhir pengecekan apakah yang berubah adalah cell H3 atau bukan
End If

' akhir pengecekan apakah yang berubah hanya 1 cell atau tidak
End If

' akhir bekerja dengan cell target yang mengalami perubahan
End With

' akhir dari prosedur
End Sub

============================================================================================================================================================================================================================================================

script berikut ditulis dalam sebuah modul VBE yang proses kerjanya dipicu
oleh perubahan yang terjadi pada sheet Filter cell H2 dan H3

Option Explicit

' --------------------------------- '
' Filter Data Berdasarkan Kriteria '
' Code by: Ms. Jan Raisin '
' untuk millis Belajar Excel '
' 22 Desember 2012 '
' --------------------------------- '

' dalam pembelajaran ini, tanda // berarti : gunakan perintah berikut...

' deklarasikan public variabel, karena akan digunakan dalam banyak prosedur
' Krit1 = kriteria 1, letaknya di sheet Filter cell H2
' Krit2 = kriteria 2, letaknya di sheet Filter cell H2
' Rng = Range data, letaknya di sheet Data Usaha, dimensinya berubah-ubah
tergantung jenis filter
' idxRow = nomor baris, digunakan pada sheet Filter & sheet Data Usaha
dengan nilai yang berubah-ubah
Dim Krit1 As String, Krit2 As String
Dim Rng As Range, rg As Range
Dim idxRow As Long

' ini adalah nama prosedur utama, bekerja berdasarkan perubahan nilai pada
cell H2 & H3 pada sheet Filter
Sub Filter()

' non aktifkan dahulu screen update & enable event untuk mempercepat
kerja VBA
Application.ScreenUpdating = False
Application.EnableEvents = False

' panggil prosedur yang bernama AreaFilter
AreaFilter

' panggil prosedur yang bernama NomorUrut
NomorUrut

' pergi ke cell A4, ini adalah header filter, hanya agar terlihat
cantik saja
Range("a4").Select

' aktifkan kembali screen update & enable event
Application.EnableEvents = True
Application.ScreenUpdating = True

' ini adalah akhir dari prosedur Filter
End Sub

----------------------------------------------------------

' prosedur ini dipanggil melalui prosedur Filter
Sub AreaFilter()

' pergi ke sheet Filter
Sheets("filter").Select

' simpan nilai kriteria ke variabel yang telah dideklarasikan terlebih
dahulu
Krit1 = Range("h2").Value
Krit2 = Range("h3").Value

' pergi ke sheet Data Usaha
Sheets("data usaha").Select

' pergi ke cell B4, ini adalah header dari Nomer Register
' saat ini cell aktif ada di B4
Range("b4").Select

' lakukan pemeriksaan, apakah di bawah header ada datanya atau tidak
' bahasa manusia :: jika 1 baris di bawah cell aktif //
ActiveCell.Offset(1, 0)
' tidak ada datanya maka // = ""
If ActiveCell.Offset(1, 0) = "" Then

' tampilkan pesan kepada user bahwa tidak ada data untuk difilter
MsgBox "Tidak ada data", vbOKOnly, "Pesan"

' karena tidak ada yang bisa difilter maka keluar dari prosedur
Exit Sub

' ini adalah akhir dari pemeriksaan ada atau tidak data di bawah header
Nomer Register
End If

' lakukan pengecekan terhadap kriteria 1 untuk menentukan range data
yang akan difilter,
' dan pemilihan prosedur filter berdasarkan nilai kriteria 1 dan
kriteria 2
' jika kriteria 1 = All maka
If Krit1 = "ALL" Then

' range datanya adalah mulai dari cell B5 // Range("b5")
' sampai data yang paling kanan //
Range("b5").End(xlToRight)
' lalu turun sampai data yang paling bawah // .End(xlDown)
' setara dengan meng-klik cell B5, lalu menekan tombol CTRL Shift
panah_kanan lalu panah_bawah
Set Rng = Range(Range("b5"), Range("b5").End(xlToRight).End(xlDown))

' setelah itu panggil prosedur yang bernama FilterAll
FilterAll

' selain itu, jika kriteria 1 = Pemilik dan kriterian 2 tidak kosong
maka
ElseIf Krit1 = "PEMILIK" And Krit2 <> "" Then

' range filternya adalah mulai dari cell C5 ke arah bawah
' setara dengan meng-klik cell C5 // Range("c5")
' lalu menekan tombol CTRL Shift panah_bawah //
Range("c5").End(xlDown)
Set Rng = Range(Range("c5"), Range("c5").End(xlDown))

' setelah itu panggil prosedur yang bernama FilterPemilik
FilterPemilik

' selain itu jika kriteria 1 = Kecamatan dan kriteria 2 tidak kosong
maka
ElseIf Krit1 = "KECAMATAN" And Krit2 <> "" Then

' range filternya adalah mulai cell F5 //
Range("f5")
' lalu dari cell F5 sampai data paling bawah bawah //
Range("f5").End(xlDown)
' setara dengan meng-klik cell F5, lalu menekan tombol CTRL Shift
panah_bawah
Set Rng = Range(Range("f5"), Range("f5").End(xlDown))

' setelah itu panggil prosedur yang bernama FilterKecamatan
FilterKecamatan

' selain itu jika kriteria 1 = Kelurahan dan kriteria 2 tidak kosong
maka
ElseIf Krit1 = "KELURAHAN" And Krit2 <> "" Then

' range filternya adalah mulai dari cell G5 //
Range("g5")
' lalu dari cell G5 sampai data paling bawah //
Range("g5").End(xlDown)
' setara dengan meng-klik cell G5, lalu menekan tombol CTRL Shift
panah_bawah
Set Rng = Range(Range("g5"), Range("g5").End(xlDown))

' setelah itu panggil prosedur yang bernama Filter Kelurahan
FilterKelurahan

' ini adalah akhir dari pemeriksaan nilai kriteria 1, kriteria 2,
penentuan lokasi range filter,
' dan pemilihan prosedur filternya
End If

' ini adalah akhir dari prosedur AreaFilter
End Sub

----------------------------------------------------------

' ini adalah prosedur yang dijalankan jika kriteria filter adalah All
(tampil semua)
Sub FilterAll()

' copy range filter yang telah ditentukan sebelumnya
' setara dengan menekan tombol CTRL C
Rng.Copy

' pergi ke sheet Filter
Sheets("filter").Select

' pergi ke cell B5, ini adalah baris pertama dari data
Range("b5").Select

' pada aktiif cell lakukan paste berdasarkan nilainya saja
' setara dengan menekan tombol kanan mouse >> Paste Special >> Value >>
OK
ActiveCell.PasteSpecial xlPasteValues

' matikan aplikasi copy paste, setara dengan menekan tombol Esc pada
keyboard
Application.CutCopyMode = False

' akhir dari prosedur FilterAll
End Sub

----------------------------------------------------------

' ini adalah prosedur yang dijalankan jika kriteria 1 = Kecamatan
' dan kriteria 2 tidak kosong
Sub FilterKecamatan()

' panggil dahulu prosedur ClearData, berfungsi untuk menghapus data
sebelumnya
ClearData

' pergi ke sheet Data Usaha
Sheets("data usaha").Select

' untuk setiap 1 cell di dalam range filter
For Each rg In Rng

' jika nilai cell = nilai kriteria 2 maka
If rg.Value = Krit2 Then

' ambil nomor barisnya dan simpan ke variabel IdxRow
idxRow = rg.Row

' copy baris tersebut mulai kolom 2 (kolom B) sampai kolom 7
(kolom G)
Range(Cells(idxRow, 2), Cells(idxRow, 7)).Copy

' pindah ke sheet Filter
Sheets("filter").Select

' pergi ke cell B4, ini adalah header dari Nomor Register
' saat ini cell aktif ada di cell B4
Range("b4").Select

' lakukan pemeriksaan apakah di bawah header ada data atau tidak
' tujuannya untuk menentukan lokasi penulisan data
' bahasa manusia :: jika 1 baris di bawah cell aktif kosong maka
If ActiveCell.Offset(1, 0).Value = "" Then

' dari cell aktif turun 1 baris ke bawah
' setara dengan menekan tombol panah_bawah 1 x
ActiveCell.Offset(1, 0).Select

' selain itu, berarti di bawah header sudah ada datanya
Else

' dari aktif cell turun ke baris paling bawah yang ada
datanya // ActiveCell.End(xlDown)
' lalu turun lagi 1 baris ke bawah
// .Offset(1, 0)
' setara dengan menekan tombol CTRL panah_bawah, lalu
menekan panah_bawah 1 x
ActiveCell.End(xlDown).Offset(1, 0).Select

' akhir dari pemeriksaan lokasi penulisan data
End If

' pada cell aktif lakukan paste value
ActiveCell.PasteSpecial xlPasteValues

' matikan fitur copas
Application.CutCopyMode = False

' pergi ke sheet Data Usaha
Sheets("data usaha").Select

' ini adalah akhir pemeriksaan nilai cell dalam range filter
terhadap nilai kriteria 2
End If

' lakukan lagi untuk cell berikutnya
Next rg

' akhir dari prosedur FilterKecamatan
End Sub

----------------------------------------------------------

' ini adalah prosedur filter berdasarkan kriteria Kelurahan
' logikanya sama dengan prosedur filter Kecamatan
' silakan baca kembali prosedur FilterKecamatan untuk mengetahui alurnya
Sub FilterKelurahan()
ClearData
Sheets("data usaha").Select
For Each rg In Rng
If rg.Value = Krit2 Then
idxRow = rg.Row
Range(Cells(idxRow, 2), Cells(idxRow, 7)).Copy
Sheets("filter").Select
Range("b4").Select
If ActiveCell.Offset(1, 0).Value = "" Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.End(xlDown).Offset(1, 0).Select
End If
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("data usaha").Select
End If
Next rg
End Sub

----------------------------------------------------------

' ini adalah prosedur filter berdasarkan kriteria Pemilik
' logikanya sama dengan prosedur filter Kecamatan
' silakan baca kembali prosedur FilterKecamatan untuk mengetahui alurnya
Sub FilterPemilik()
ClearData
Sheets("data usaha").Select
For Each rg In Rng
If rg.Value = Krit2 Then
idxRow = rg.Row
Range(Cells(idxRow, 2), Cells(idxRow, 7)).Copy
Sheets("filter").Select
Range("b4").Select
If ActiveCell.Offset(1, 0).Value = "" Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.End(xlDown).Offset(1, 0).Select
End If
ActiveCell.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Sheets("data usaha").Select
End If
Next rg
End Sub

----------------------------------------------------------

' ini adalah prosedur untuk membuat nomor urut
Sub NomorUrut()

' pergi ke sheet Filter
Sheets("filter").Select

' cari nilai baris dari data yang paling akhir // .End(xlDown).Row
' dan simpan ke dalam variabel idxRow
idxRow = Range("b4").End(xlDown).Row

' Perhatian: header ada di baris 4 dan data pertama ada di baris 5
' pilih perdasarkan nilai baris data terakhir
Select Case idxRow

' jika nilai baris data terakhir = 5, berarti hanya ada 1 data, maka
Case 5
' beri nilai 1 pada cell A5
Range("a5").Value = 1

' jika nilai baris data terakhir = 6, berarti hanya ada 2 data, maka
Case 6
' beri nilai 1 di cell A5, dan nilai 2 di cell A6
Range("a5").Value = 1
Range("a6").Value = 2

' jika nilai baris data terakhir > 6, berarti ada 3 atau lebih
data, maka
Case Is > 6
' beri nilai 1 di cell A5, dan nilai 2 di cell A6
Range("a5").Value = 1
Range("a6").Value = 2

' blok cell A5 & A6
Range("a5:a6").Select

' buat nomor urut otomatis // .AutoFill
' mulai dari cell A5 (baris 5 , kolom 1) // Cells(5, 1)
' sampai baris data terakhir // Cells(idxRow, 1)
Selection.AutoFill Destination:=Range(Cells(5, 1),
Cells(idxRow, 1))

' akhir dari pemilihan nilai baris data
End Select

' akhir dari prosedur pembuatan nomor otomatis
End Sub

----------------------------------------------------------

' ini adalah prosedur bersih-berih data
Sub ClearData()

' pergi ke sheet Filter
Sheets("filter").Select

' mulai dari cell A5 ke arah kanan lalu //
Range("a5").End(xlToRight)
' ke bawah yang ada datanya // .End(xlDown)
' lalu hapus isi datanya // .ClearContents
Range(Range("a5"), Range("a5").End(xlToRight).End(xlDown)).ClearContents

' akhir dari bersih-bersih data
End Sub

Semoga bermanfaat.

Best Regard,

-Ms. Jan Raisin-

Pada 22 Desember 2012 08:35, Faisal Hasman <revolter_ichal@yahoo.com>menulis:

> **
>
>
> dear mailing excel
>
> sebelumnya hal hal ini pernah dibahas
> oleh pak hendrik... dengan file contoh FILTER BLOKKOTA
> namun setelah saya utak atik
> nda bisa jalan sesuai dengan file sample
> yangsaya attach
> mungkin karena macrox tidak mendukung
> karena saya mau memfilter
> dengan beberapa kriteria lagi
> yaitu, bentuk usaha, dusun, kelurahan/desa dan
> kecamatan
>
> mungkin bisa dibantu memecahkan masalah ini
> kalo bisa macro filter blokkotax dijelaskan juga
>
> trima kasih
>
>
>

Sat Dec 22, 2012 3:51 am (PST) . Posted by:

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

Hai Faisal,

File terlampir memiliki kondisi sebagai berikut :
>> Area Kriteria :
1. header kriteria di baris 1 yang harus sama dengan nama header terpilih
di tabel data.
2. area penulisan kriteria pada baris 2 sampai baris 8
3. area penulisan kriteria dimulai pada kolom B dan kolom A harus tetap
kosong kecuali cell A1 yang berisi header No dari tabel data
4. area kriteria dilokalisir dengan adanya 8 baris kosong pada sebuah kolom
setelah kolom terkanan area kriteria

>> Area input
1. Input berupa pilihan kolom kriteria yang akan digunakan
2. Input menggunakan fitur Data validation List dengan daftar item yang
merujuk range J1:J6
3. Item-item dalam range J2:J5 harus sama dengan nama kolom terpilih dalam
tabel data
4. Cell bantu posisi offset kolom terletak pada cell H2. Pelihara formula
pada cell H2 dengan baik.
5. Pengubahan isi cell input akan memicu proses filter (memanfaatkan event
change milik worksheet)
6. Jika tidak akan menggunakan kolom kriteria, maka pilihlah item [Semua
Data]
7. Jika akan menggunakan seluruh kriteria, maka pilihlah item [Seluruh
Kriteria].
8. Pelajari lebih lanjut karakteristik advanced filter agar dapat menyusun
kriteria dengan baik ketika memilih opsi seluruh kriteria

>> Area data
1. Header data berupa 1 baris yang terletak di baris ke 10 dan memenuhi
kaidah database tentang header data
2. Data dimulai pada baris ke-11 dan memenuhi kaidah database tentang
record data

Prosedur event change milik worksheet diberi script berikut :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCriteria As Range 'var range kriteria sesuai pilihan user
Dim lRows As Long 'jumlah baris kriteria beserta headernya
Dim lOff As Long 'nilai offset kolom untuk mencapai kolom
kriteria terpilih dari kolom A

With Application 'pada aplikasi
.ScreenUpdating = False 'turn off update
tampilan
.EnableEvents = False 'turn off event
.DisplayAlerts = False 'turn off kecerewetan
excel minta konfirmasi
.Calculation = xlCalculationAutomatic 'paksa agar kalkulasi
automatic
End With 'selesai aplikasi

With Target 'pada cell yang berubah nilai
If .Count = 1 Then 'cek jumlah cell yang
berubah nilai
'yup... cuma 1 cell yang berubah
If .Address = "$G$2" Then 'cek alamat cell yang
berubah nilai
'yup... alamatnya cocok
lOff = .Offset(0, 1).Value 'simpan nilai
offset kolom
Select Case lOff 'berdasar nilai
offset kolom
Case 0 To 4 'semua data atau sebuah kolom kriteria
terpilih saja
'definisikan kolom kriteria (basis : range a1:a8)
Set rngCriteria = Range("a1:a8").Offset(0, lOff)

'hitung jumlah baris isi kriteria (termasuk baris
header)
lRows =
Application.WorksheetFunction.CountA(rngCriteria)

'set ulang area kriteria terpilih
Set rngCriteria = rngCriteria.Resize(lRows)
Case Else 'seluruh kriteria akan digunakan
'set seluruh area kriteria
Set rngCriteria = Range("a1").CurrentRegion
End Select

'proses filter dengan advanced filter
Range("a10").CurrentRegion.AdvancedFilter xlFilterInPlace,
rngCriteria
End If 'selesai blok cek alamat
End If 'selesai blok cek jumlah
cell yang berubah nilai
End With 'selesai kerja pada cell yang
berubah

With Application 'pada aplikasi
.EnableEvents = True 'turn on event
.ScreenUpdating = True 'turn on update tampilan
.DisplayAlerts = True 'turn on kecerewetan excel minta
konfirmasi
End With 'selesai aplikasi
End Sub

Selamat menikmati liburan.

Wassalam,
Kid.

2012/12/22 Faisal Hasman <revolter_ichal@yahoo.com>

> **
>
>
> dear mailing excel
>
> sebelumnya hal hal ini pernah dibahas
> oleh pak hendrik... dengan file contoh FILTER BLOKKOTA
> namun setelah saya utak atik
> nda bisa jalan sesuai dengan file sample
> yangsaya attach
> mungkin karena macrox tidak mendukung
> karena saya mau memfilter
> dengan beberapa kriteria lagi
> yaitu, bentuk usaha, dusun, kelurahan/desa dan
> kecamatan
>
> mungkin bisa dibantu memecahkan masalah ini
> kalo bisa macro filter blokkotax dijelaskan juga
>
> trima kasih
>
>
>

Sat Dec 22, 2012 1:50 am (PST) . Posted by:

"Heru Safrudin" superheruu

So mancap..... tapi ndak alergi type data kok :)

Pada 21 Desember 2012 21:26, Mr. Kid <mr.nmkid@gmail.com> menulis:

> **
>
>
> Hai Pak Heru,
>
> Ada banyak cara untuk mengkalkulasinya, antara lain :
> 1. Array formula Sum (semua versi Excel)
> :: hati-hati jika datanya banyak atau ada kolom QTY berisi data
> bertipe text [ops... tipe data lagi...] akan menghasilkan error
> =SUM((Data!$A$2:$A$39=$A3)*(*YEAR(Data!$C$2:$C$39)*
> =B$2)*Data!$B$2:$B$39)
>
> 2. Fungsi SumProduct (semua versi Excel)
> :: hati-hati jika datanya banyak atau ada kolom QTY berisi data
> bertipe text akan menghasilkan error
> =SUMProduct((Data!$A$2:$A$39=$A3)*(*YEAR(Data!$C$2:$C$39)*=B$2)*
> Data!$B$2:$B$39)
> kecuali diubah menjadi :
> =SUMProduct((Data!$A$2:$A$39=$A3)*(*YEAR(Data!$C$2:$C$39)*=B$2),
> Data!$B$2:$B$39)
>
> 3. Fungsi SumIFs (Excel 2007 ke atas)
> :: hati-hati dengan data kolom C di sheet Data jika tidak berisi data
> tanggal bertipe datetime bisa menghasilkan kalkulasi yang salah
> =SUMIFS( Data!$B$2:$B$39 , Data!$A$2:$A$39,$A3 , Data!$C$2:$C$39,*
> ">="&B$2&-1&-1* , Data!$C$2:$C$39,*"<="&B$2&-12&-31 * )
> -> *biru *: tanggal awal
> -> *merah *: tanggal akhir
>
> 4. Pivot table (semua versi Excel)
> -> buat pivot table dengan data source merujuk ke sheet Data seluruh
> tabel (include header)
> -> pasang Product di sisi Row, Exp di sisi Column, dan QTY di sisi
> Values
> -> klik pivot table
> -> klik kanan field bernama Exp dalam pivot table -> pilih Group ->
> pilih Year dan pengelompokan lain yang dibutuhkan (misal Months, Days,
> Quarter, dsb) -> OK
> -> klik kanan setiap field yang tidak dibutuhkan (misal Months) ->
> pilih remove
>
> Wassalam,
> Kid.
>
>
> 2012/12/21 Heru Safrudin <superheruu@gmail.com>
>
>> **
>>
>>
>> Dear Exceller
>>
>> Bagaimana formula untuk menjumlahkan kolom Qty di sheet Data sesuai TAHUN
>> expirednya ? (file terlampir)
>>
>> --
>> Regards,
>>
>> Heru Safrudin
>>
>>
>
>

--
Regards,

Heru Safrudin

Sat Dec 22, 2012 1:51 am (PST) . Posted by:

"agam Tole" agam_tole

Dear Master Excel,

Mohon bantuan untuk jalan keluar permasalahan saya dalam Pembuatan rumus pada File terlampir..

Pada Kolom pencarian, setelah kita ketik salah satu nama pada kolom pencarian maka otomatis akan mengambil data dari database dan menginput data sesuai dengan nama yg dicari di Tabel Filter berdasarkan nama,

Mohon kiranya dapat membantu, Terima Kasih Sebelumnya

Best Regard

Agam

Sat Dec 22, 2012 4:45 am (PST) . Posted by:

"Jan Raisin"

Dear pak Agam,

untuk kasus seperti ini banyak solusi yang tersedia..

beberapa diantaranya adalah:

1. Array formula sebaris OffSet()
2. Formula VlookUp
3. Formula Index & Match
4. Pivot Tabel

kalo gak salah (ini kalo gak salah ya), bisa juga pakai SumProduct. cmiiw,
tapi dari tadi dicoba belum bisa xixixix :D

contoh file terlampir, database sudah diubah menjadi Tabel Excel dengan
nama Database

Best Regard,

-Ms. Jan Raisin-

Pada 22 Desember 2012 15:20, agam Tole <agam_tole@yahoo.com> menulis:

> **
>
>
> Dear Master Excel,
>
> Mohon bantuan untuk jalan keluar permasalahan saya dalam Pembuatan rumus
> pada File terlampir..
>
>
> Pada Kolom pencarian, setelah kita ketik salah satu nama pada kolom
> pencarian maka otomatis akan mengambil data dari database dan menginput
> data sesuai dengan nama yg dicari di Tabel Filter berdasarkan nama,
>
> Mohon kiranya dapat membantu, Terima Kasih Sebelumnya
>
> Best Regard
>
> Agam
>
>
>

Sat Dec 22, 2012 1:51 am (PST) . Posted by:

"Imar Andre" baz.giglo

Be Exceler,

Saya mempunyai masalah untuk men sort unique data,
Tabel data ada di kolom A:C sedangkan hasil yang di inginkan di kolom G:H.

Wassalam
--
imar

Sat Dec 22, 2012 4:16 am (PST) . Posted by:

"ratim sugianto" ratimsugianto

Mksh pak ghozi atas rumusnya…

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of ghozi alkatiri
Sent: 18 Desember 2012 6:17
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] Konversi Data Teks ke Angka

formula di D19

=--SUBSTITUTE(D2;RIGHT(D2;3);"")

copy ke bawah

wassalam

Ghozi Alkatiri

_____

Dari: ratim sugianto <ratimsugianto@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Senin, 17 Desember 2012 22:21
Judul: [belajar-excel] Konversi Data Teks ke Angka

Dear Be-Exceler

Bagaimana membuat rumus/formula konversi data teks ke angka dari file terlampir.

terimakasih atas bantuannya

salam

Sugianto

Sat Dec 22, 2012 5:02 am (PST) . Posted by:

"Indra Psr" indra_psr

Dear,

Saya ada liat-liat email terdahulu, eh nemu juga data spt terlampir..
Menurut saya ini bagus untuk buat2 inputan data gitu ke access,,
Tp setelah saya korek2 VBA yg ada,, akhirnya sharian penuh mencoba
untuk nambahin data inputan jadi spt di access terlampir,,, gak
berhasil bingung juga ama VBA yg udah di buat master.. hehehe..
(piss.. maklum masih awam VBA)
Gimana ya biar bisa masukin data yg ada di excel ke access spt file terlampir?

Terimakasih..

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

Tidak ada komentar:

Posting Komentar