Messages In This Digest (22 Messages)
- 1a.
- Re: Menggabung kode untuk di jadikan patokan From: i Haps
- 1b.
- Re: Menggabung kode untuk di jadikan patokan From: Kid Mr.
- 2a.
- Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP From: depi Hariyanto
- 2b.
- Re: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LO From: jkssxls Sudarsono
- 2c.
- Fw: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LO From: hendrik karnadi
- 2d.
- Bls: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: L From: depi Hariyanto
- 2e.
- Re: Bls: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mo From: hendrik karnadi
- 2f.
- Trs: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP From: depi Hariyanto
- 2g.
- Re: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LO From: hendrik karnadi
- 2h.
- Re: mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN) From: i Haps
- 2i.
- Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP From: depi Hariyanto
- 3a.
- Pivot tabel di VB-Revisi From: dimas ricky
- 3b.
- Re: Pivot tabel di VB-Revisi From: Kid Mr.
- 4a.
- menghitung kolom yg berisi nilai lebih dari 0 (nol) From: Mulki Akbar
- 4b.
- Re: menghitung kolom yg berisi nilai lebih dari 0 (nol) From: hendrik karnadi
- 4c.
- Re: menghitung kolom yg berisi nilai lebih dari 0 (nol) From: i Haps
- 4d.
- Re: menghitung kolom yg berisi nilai lebih dari 0 (nol) From: Mulki Akbar
- 4e.
- Re: menghitung kolom yg berisi nilai lebih dari 0 (nol) From: Mulki Akbar
- 5a.
- Rekam Data Dengan Makro From: Imam Sinurat
- 5b.
- Re: Rekam Data Dengan Makro From: i Haps
- 6a.
- Formula terbilang From: Rukia
- 6b.
- Re: Formula terbilang From: o' Seno
Messages
- 1a.
-
Re: Menggabung kode untuk di jadikan patokan
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Mon Jan 9, 2012 7:11 am (PST)
(1)
>> tp juga* mengurutkan dahulu no Customernya*,
>> *j**ika tidak urut* maka* tidak "jalan" */ atau harus menyesuaikan
manual.
apa benar dan sudah di check ??
contoh berikut (*terlampir*) sudah saya acak-acak* tanpa memnyentuh* lagi
rumus2 nya.
atau yg dimaksud lain lagi ya ..??
-Mohon di recek apakah hasil menjadi salah ?
(dibagian array formula ; kalau ingin di acak urutannya, rumus harus di
hapusp dulu
setelah diacak, baru rumus ditulis kamebali PERSIS SAMA SEPERTI SEMULA)
c.m.i.i.w
(2)
Mengenai memberi penjelasan...
Tidak seluruh waktu yg kita punyai = kita sedang selalu "mood"
bisa sedang kesal, bisa sedang sempit waktu dsb...
Tak jarang pua: mengetik jawaban pada saat masih memakai "kalung Stetoskop"
dan masih pakai disposable midical srub suit
Jadi ya mohon dimaklumi kalau milis ternyata bukan tempat kursus; hanya
seperti
terminal bus saja, tempat ketemu dan omong omong sedikit sebelum
masing-masing
sibuk mengejar angkot...
Idealnya,.. pemakai excel sudah pegang buku standard pengoperasian excel;
hal hal di luar standar dan yg "mentok" bisa didiskusikan
(walaupun begitu pertanyaan mengenai hal yg sangat basic, seingat saya
tidak pernah
di-anak tirikan (bahkan mendapat banyak penanggap..)
*
2012/1/9 Yan <yan.novianto@yahoo.com >
>
> @Bu Haps :
>
> # selalu memberikan langkah-langkah "pembantu" sebelum membuat "mega
formula", rumus yang di berikan berfungsi dengan baik,
>
> tp juga mengurutkan dahulu no Customernya, jika tidak urut maka tidak
"jalan" / atau harus menyesuaikan manual.*
- 1b.
-
Re: Menggabung kode untuk di jadikan patokan
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Mon Jan 9, 2012 7:57 am (PST)
Dear Pak Yan,
Coba dibahas formula dasarnya dulu ya, semoga penjelasan tentang sebab
musabab munculnya Index untuk data yang tak berurut sudah bisa dipahami
melalui coretan yang lalu.
Lihat tabel hasil :
Ada item Kayu Manis dsb. Item-item ini adalah grup dari banyak id barang.
Id-id barang yang termasuk grup kayu manis atau item grup lainnya sudah
ditabelkan
atau sering disebut telah dipetakan. Peta ada di sheet DATA A1:B8 yang
sebut saja namanya peta item.
Lihat tabel data di sheet DATA (sepertinya hasil pivot table -- mulai baris
11)
1. Kode-kode item pada data dapat di cari grupnya pada tabel peta item
melalui sebuah proses lookup. Fungsi VLookup telah terkenal sebagai fungsi
untuk me-lookup. Fungsi Match juga sebuah fungsi lookup. Bedanya, VLookUp
sekalian mengambil nilai dikolom lain, sedangkan Match sekedar mencari
posisi dari nilai yang di-lookup ke lookup tabelnya.
Jadi, *sebab *digunakannya Match adalah sebagai fungsi melookup data item
code untuk mendapatkan grup item. Hasilnya adalah posisi grup item pada
tabel peta item.
2. Tabel peta item berisi banyak grup. Ketika akan memproses khusus grup
bernama Kayu Manis saja, maka dipilihlah tabel lookup untuk fungsi Match
yang grupnya pada peta item adalah Kayu Manis saja juga. Itu sebabnya
muncul sebuah formula kondisi (IF) berbunyi
IF(DATA!$B$2:$B$8=C$4, --DATA!$A$ 2:$A$8)
Tabel lookup yang digunakan adalah kolom item_code pada tabel peta item
(kolom A-nya).
3. Tipedata item_code pada peta item adalah text. Tipe data item_code pada
tabel data adalah numerik. Perbedaan tipe data tidak akan memungkinkan
terjadinya proises lookup. Untuk itulah perlu adanya konversi tipe data
pada tabel peta item kolom item_code, yang diwujudkan dengan munculnya --
pada formula kondisi di nomor 2 di atas.
4. Cara pencarian (melookup) data item_code ke tabel peta item di kolom
item_code adalah Exact match (sama persis), sehingga opsi yang digunakan
adalah *0*.
MATCH( *nilai yang di lookup* ,IF(DATA!$B$2:$B$8=C$ 4,--DATA! $A$2:$A$8) ,* 0*)
5. Nilai yang dilookup adalah nilai item_code pada tabel data (
DATA!$C$12:$Q$12 )
untuk sementara, formula match akan menjadi :
MATCH( *DATA!$C$12:$Q$12 * ,IF(DATA!$B$ 2:$B$8=C$ 4,--DATA! $A$2:$A$8) ,* 0* )
6. Pokok masalahnya adalah hanya baris data yang bernilai (asumsi <>0) saja
yang akan diproses (misal baris data 13 yaitu pada range *DATA!$C13:$Q13* )
Paling sederhana adalah dengan mengalikan item_code yang numerik dengan 1
jika nilai barisnya bukan nol, dan dikali 0 jika baris datanya adalah 0.
Maka formula match sudah berubah menjadi :
MATCH( *DATA!$C$12:$Q$12 *
**DATA!$C13:$Q13*,IF( DATA!$B$2: $B$8=C$4, --DATA!$A$ 2:$A$8),
* 0* )
7. Pertanyaan yang mestinya menggelitik benak adalah :
"Bagaimana jika baris datanya bisa lebih dari 1 (>1) ? "
Bukankah item_code yang numerik akan menjadi berlipat ketika memanfaatkan
formula match hasil no 6 ?
dan tidak akan bisa ditemukan di kolom A tabel peta item ?
Jadi, hal ini harus dinetralisir dengan memaksa perkalian item_code dengan
nilai 1 saja, maka dilakukanlah pembagian dengan diri nilai barisnya
sendiri, sehingga formula Match sudah berevolusi menjadi :
MATCH( *DATA!$C$12:$Q$12 * **DATA!$C13: $Q13* /
*DATA!$C13:$Q13*,IF(DATA! $B$2:$B$8= C$4,--DATA! $A$2:$A$8) ,
* 0* )
8. Nah, kalau nilai barisnya adalah 0, maka akan terjadi *DATA!$C13:$Q13* /
*DATA!$C13:$Q13* sebagai 0 / 0 yang menghasilkan error value. Untungnya,
yang dibutuhkan adalah masalah ada atau tidaknya si item_code milik tabel
data di dalam tabel peta item. Jika item_code tidak ada di peta, maka hasil
Match juga akan error value. Oleh sebab itu, maka disimpulkan bahwa kondisi
0 / 0 tetaplah dianggap tidak ada di peta item atau bisa diabaikan meskipun
si item_code ada.
Untuk hal ini, maka perlu trap terhadap error value yang muncul akibat 0 /
0 maupun akibat item_code yang tidak ada di peta item karena bukan masuk
grup yang sama (ingat, saat ini sedang membahas grup kayu manis saja).
Trap error yang digunakan adalah fungsi IsNumber.
Jika Match menghasilkan angka posisi si item_code di peta item, maka pasti
baris datanya bukan 0 dan item_code adalah masuk grup Kayu Manis. Maka
IsNumber akan menghasilkan TRUE.
Jika Match menghasilkan error value (#N/A) yang artinya baris data bukan
nol, tapi item_code si data tidak masuk grup Kayu Manis. Maka IsNumber
menghasilkan FALSE.
Jika ternyata baris data adalah nol atau blank, maka hasil Match akan error
value #DIV/0! akibat munculnya error value #DIV/0! sebagai nilai yang
dilookup yang muncul karena terjadi 0 / 0, maka IsNumber akan menghasilkan
FALSE.
Formula berubah lagi menjadi :
ISNUMBER( MATCH( DATA!$C$12:$Q$12 ** DATA!$C13:$Q13 */*
DATA!$C13:$Q13*,IF(DATA! $B$2:$B$8= C$4,--DATA! $A$2:$A$8) ,0) )
9. TRUE equal 1 dan FALSE equal 0, maka jika hasil IsNumber yang bertipe
Boolean dikonversi menjadi numerik, maka akan didapat angka 1 atau 0.
Oleh sebab itu muncullah 1*IsNumber, dan formula berubah lagi menjadi :
1 * ISNUMBER( MATCH( DATA!$C$12:$Q$12 ** DATA!$C13:$Q13 */*DATA!$C13: $Q13
* ,IF(DATA!$B$2:$B$8=C$ 4,--DATA! $A$2:$A$8) ,0) )
10. Untuk menghasilkan informasi, apakah ada item_code di tabel data yang
masuk grup Kayu Manis (yang sedang diolah), maka perlu memperhatikan
perbedaan antara *ada item* vs *tidak ada item*
Perbedaan mendasarnya adalah,
ada item berarti ada sejumlah minimal 1 item.
tidak ada item berarti ada pasti sejumlah 0 item.
Maka, hasil 1 * IsNumber yang hanya deretan 1 atau 0, jika di Sum akan tahu
apakah *ada yang segrup* dengan Kayu Manis *atau tidak ada*.
Oleh sebab itu formula berubah menjadi :
*Sum( *1 * ISNUMBER( MATCH( DATA!$C$12:$Q$12 ** DATA!$C13:$Q13
*/*DATA!$C13:$Q13
* ,IF(DATA!$B$2:$B$8=C$ 4,--DATA! $A$2:$A$8) ,0) ) *)*
11. Masalahnya, yang dibutuhkan hanyalah informasi ada atau tidak ada,
bukan berapa jumlah item_code yang segrup dengan Kayu Manis.
Maka hasil Sum harus dicek apakah lebih dari 0 (*>0*), sehingga menjadi :
*Sum( *1 * ISNUMBER( MATCH( DATA!$C$12:$Q$12 ** DATA!$C13:$Q13
*/*DATA!$C13:$Q13
* ,IF(DATA!$B$2:$B$8=C$ 4,--DATA! $A$2:$A$8) ,0) ) *)* *> 0*
12. Hasil akhir yang diharapkan adalah nilai status, 1 jika ada dan 0 jika
tidak ada. Oleh sebab itu, hasil formula 11 yang bertipe Boolean
(TRUE/FALSE) perlu dikonversi menjadi bertipe numerik. Maka muncullah
tukang konversinya, yaitu 1 *
Formula akan menjadi :
1 * ( *Sum( *1 * ISNUMBER( MATCH( DATA!$C$12:$Q$12 **
DATA!$C13:$Q13 */*DATA!$C13:$Q13
* ,IF(DATA!$B$2:$B$8=C$ 4,--DATA! $A$2:$A$8) ,0) ) *)* *> 0* )
13. Karena proses kalkulasi melibatkan banyak cell sebagai inputan dan yang
dikalkulasi bersamaan, maka formula harus sebagai Array Formula.
Oleh sebab itu, begitu selesai menulis formula panjang di no 12, diakhiri
dengan menekan 3 tombol sekaligus, yaitu tombol CTRL SHIFT ENTER
Kira-kira demikianlah coretan ruwet dan mbuletnya. Moga-moga coretan teman
berjalan hingga baris ini, membawa pandangan akan adanya celah untuk
masuknya cahaya yang bisa dituju dengan pasti untuk segera keluar dari
kegelapan yang bikin ruwet bin mumet.
Kindest Regards,
Kid.
2012/1/9 Yan <yan.novianto@yahoo.com >
> **
>
>
> Dear Sesepuh semua J****
>
> ** **
>
> Terimakasih untuk feedback yang di berikan dan rata-rata semua bisa di
> gunakan.****
>
> ** **
>
> @Bu Haps : ****
>
> ** **
>
> # selalu memberikan langkah-langkah �pembantu� sebelum membuat �mega
> formula�, rumus yang di berikan berfungsi dengan baik, tp juga mengurutkan
> dahulu no Customernya, jika tidak urut maka tidak �jalan� / atau harus
> menyesuaikan manual.****
>
> ** **
>
> @ Ghozi alkatiri :****
>
> ** **
>
> # sangat simple untuk buat rumusnya ( to the point ) juga berfungsi (
> hanya saja jika nama cus tidak ber urut rumusnya tidak bisa)****
>
> ** **
>
> @ Mr Kid:****
>
> ** **
>
> # sangat lengkap rumus yang di berikan, so pasti jalan dengan baik,
> tp sayangnya, karena yang dib eri rumusnya ini adalah �bayi baru lahir�
> sehingga hanya bisa ****
>
> Terbelalak mata ini melihat formula yang demikian panjang dan
> membingungkan.****
>
> Tanya lagi ya Mr Kid.****
>
> ** **
>
> Mengapa rumus pertama di tulis : 1*(SUM(1*ISNUMBER(�.****
>
> ** **
>
> Di tengah.. mengapa harus di ada tanda / (bagi)****
>
> ** **
>
> Dan di akhir rumus : IF(DATA!$B$2:$B$8=C$4, --DATA!$A$ 2:$A$8), 0 )))>0)****
>
> ** **
>
> Hee,, maaf jika udah di jawab tapi masih juga bertanya lagi.****
>
> ** **
>
> Overal terimakasih atas bantuan dari para sesepuh Belajar-excel, rumus
> yang di berikan sesepuh berjalan baik semua.****
>
> ** **
>
> Mungkin usul saja (kalo boleh)****
>
> ** **
>
> # yang Pasti saat para sesepuh melihat suatu masalah dari penanya, langkah
> pertama melihat, memikir, dan mulai mngerjakan.****
>
> ** **
>
> Nah saya harapkan supaya bisa menuliskan langkah yang di ambil itu,****
>
> ** **
>
> Contoh kasus yang saya ajukan :****
>
> ** **
>
> Mengapa Mr Kid dan temen temen punya keputusan untuk memberikan �formula
> sesuatu� untuk masalah saya.****
>
> ** **
>
> Contoh : Mr kid, mengapa langsung / ujug ujug J memberikan rumusan
> =1*(sum(1*isnumber(�. <Bukan rumus yang lain> , misalnya.*** *
>
> ** **
>
> Sehingga penanya juga jelas dan memahami Hal hal apa saja yang harusnya
> menggunakan �rumusan tertentu�.****
>
> ** **
>
> Ada kata kata di milis ini :****
>
> ** **
>
> Tulisan P O�seno ( 3 Jan �12, 12:03 PM)****
>
> Kembali:... pertanyaan mengenai MEMFILTER TABEL tanpa disadari ****
>
> *bahwa ingin memfilter.*
>
> ** **
>
> �tanpa di sadari sebenarnya ingin mem_filter � nah kan ngga sadar???
> jadinya kita�hehehe ( ngga sadar kok masih bisa gabung di milis J)****
>
> ** **
>
> Mungkin penjabaran dari sesepuh sedikit panjang, tapi benar benar kita
> pahami dan mungkin bisa mengimplementasikan di soal yang lain yang �hampir
> mirip�****
>
> Dan milis ini benar benar menjadikan semua yang ikut bilang seperti bu
> Haps dan pak O�Seno �* *gampang...yg *nomor 2* dulu ( 5 Jan �12 3:40
> PM) ****
>
> * *
>
> * *
>
> Maaf jika usulan saya ini, kurang berkenan di hati Sesepuh semua.****
>
> ** **
>
> Salam****
>
> ** **
>
> ** **
>
> Yan****
>
> ** **
>
> ** **
>
> *From:* belajar-excel@yahoogroups. [mailto:com
> belajar-excel@yahoogroups. ] *On Behalf Of *Kid Mr.com
> *Sent:* Sunday, January 08, 2012 9:10 AM
> *To:* belajar-excel@yahoogroups. com
> *Subject:* Re: [belajar-excel] Menggabung kode untuk di jadikan patokan***
> *
>
> ** **
>
> ****
>
> Pak Yan,
>
> Mungkin tertarik dengan formula sebaris tanpa cell bantu, silakan coba
> array formula untuk cell C6 di sheet hasil : (agak panjang dikit)
> =1*(SUM(1*ISNUMBER(MATCH( DATA!$C$12:$ Q$12 ** DATA!$C13:$Q13 */*DATA!$C13: $Q13
> * ,IF(DATA!$B$2:$B$8=C$ 4,--DATA! $A$2:$A$8) ,0)))>0)
> Jangan lupa enter dengan Ctrl Shift Enter. Kemudian copy ke cell lain yang
> membutuhkan.
>
> Andaikan saja susunan cus_code pada sheet hasil tidak memiliki urutan yang
> sama dengan urutan cus_code pada sheet DATA, maka bagian yang di-*biru *harus
> diganti dengan formula dinamis penentu baris yang sesuai, yaitu dengan
> memanfaatkan fungsi Index dan Match.
> Kira-kira bunyi formula penggantinya adalah :
> *INDEX( DATA!$C$13:$Q$19 , MATCH( $G6 , DATA!$A$13:$ A$19 , 0 ) , 0 )*
>
> Maka array formula utuhnya adalah :
> =1*(SUM(1*ISNUMBER(MATCH( DATA!$C$12:$ Q$12
>
> ** INDEX( DATA!$C$13:$Q$19 , MATCH( $G6 , DATA!$A$13:$ A$19 , 0 ) , 0 ) *
>
> /* INDEX( DATA!$C$13:$Q$19 , MATCH( $G6 , DATA!$A$13:$ A$19 , 0 ) , 0 )*
> ,
> IF(DATA!$B$2:$B$8=C$4, --DATA!$A$ 2:$A$8), 0 )))>0)
>
> Wassalamualaikum Wr. Wb.
> Kid.****
>
> 2012/1/6 Yan Novianto <yan.novianto@yahoo.com >****
>
> ****
>
> Sesepuh excel,
>
> Saya ingin berguru, tingakat dasar Excel ...
>
> ada 1 jenis barang dengan lebih dari 1 kode,
> yang di inginkan adalah jika salah satu kode sudah terpenuhi "ada"
> maka akan dianggap sudah ada
> file terlampir
>
> Saya harapkan mendapatkan solusi dengan Formula, bukan makro....
>
> salam
> Yan****
>
> ** **
>
> ****
>
>
>
>
- 2a.
-
Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP
Posted by: "depi Hariyanto" depi.hari_yanto@yahoo.co.id depi.hari_yanto
Mon Jan 9, 2012 9:41 am (PST)
ysh. Master Excel.
salam semoga dalam keadaan sehat dan prima selalu... Amiin.
terima kasih atas macronya walaupun pusing... maklum masih awam.
sy merubah sedikit supaya nomor tampil otomatis pada saat menginput tanggal, eh malah jadi berantakan (terlampir)
ma'af yang udah membantu n minta solusinya lagi ya ...!
satu lagi tanpa mengurangi semangat buat belajar, mohon infonya dong kira2 ada gak buku belajar macro ..?
salam
dep_har
_____________________ _________ __
Dari: o' Seno <ontoseno84@gmail.com >
Dikirim: Minggu, 8 Januari 2012 0:32
Siap Boss !!...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long, JmlBar As Range
LastRow = Cells(Cells.Rows.Count, 12).End(xlUp) .Row
Set JmlBar = Cells(LastRow, 2).Resize(1, 11)
Application.EnableEvents = False
If Target.Column = 2 Then
If Target.Row > 5 Then
If Target.Row < LastRow Then
If Target.Cells.Count = 1 Then
If Not Target.Value = vbNullString Then
If Target.Value - 1 = Target(0, 1) Then
JmlBar.Offset(-1, 0).Insert shift:=xlDown
Target(0, 7).Resize(1, 5).Copy
Target(1, 7).PasteSpecial xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False
Target(1, 2).Activate
End If
ElseIf Target.Value = vbNullString Then
Target(1, 1).Resize(1, 11).Delete shift:=xlUp
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
'-------------
2012/1/7 i Haps <hapsari.stlizbeth@gmail.com >
Seno, masih online ?!? Maju coy ! blum ada yg ambil tuh... - 2b.
-
Re: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LO
Posted by: "jkssxls Sudarsono" jkssxls@hotmail.com jkssbma
Mon Jan 9, 2012 5:55 pm (PST)
Ada , 2 buku karangan Yudhi Wicaksono. Buku pertama membahas belajar VBA/MAcro , dan kedua contoh2 Macro.
To: belajar-excel@yahoogroups. com
From: depi.hari_yanto@yahoo.co. id
Date: Tue, 10 Jan 2012 00:58:29 +0800
Subject: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
ysh. Master Excel.
salam semoga dalam keadaan sehat dan prima selalu... Amiin.
terima kasih atas macronya walaupun pusing... maklum masih awam.
sy merubah sedikit supaya nomor tampil otomatis pada saat menginput tanggal, eh malah jadi berantakan (terlampir)
ma'af yang udah membantu n minta solusinya lagi ya ...!
satu lagi tanpa mengurangi semangat buat belajar, mohon infonya dong kira2 ada gak buku belajar macro ..?
salam
dep_har
_____________________ _________ __
Dari: o' Seno <ontoseno84@gmail.com >
Dikirim: Minggu, 8 Januari 2012 0:32
Siap Boss !!...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long, JmlBar As Range
LastRow = Cells(Cells.Rows.Count, 12).End(xlUp) .Row
Set JmlBar = Cells(LastRow, 2).Resize(1, 11)
Application.EnableEvents = False
If Target.Column = 2 Then
If Target.Row > 5 Then
If Target.Row < LastRow Then
If Target.Cells.Count = 1 Then
If Not Target.Value = vbNullString Then
If Target.Value - 1 = Target(0, 1) Then
JmlBar.Offset(-1, 0).Insert shift:=xlDown
Target(0, 7).Resize(1, 5).Copy
Target(1, 7).PasteSpecial xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False
Target(1, 2).Activate
End If
ElseIf Target.Value = vbNullString Then
Target(1, 1).Resize(1, 11).Delete shift:=xlUp
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
'-------------
2012/1/7 i Haps <hapsari.stlizbeth@gmail.com >
Seno, masih online ?!? Maju coy ! blum ada yg ambil tuh...
- 2c.
-
Fw: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LO
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Mon Jan 9, 2012 7:14 pm (PST)
Satu buku lagi akan menyusul, membahas mengenai teori VBA(Macro), Contoh2 aplikasi Macro, Mengukur kecepatan proses Macro dan Error & Solution.
Kita tunggu tanggal mainnya.
Salam,
HendriK Karnadi
----- Forwarded Message -----
From: jkssxls Sudarsono <jkssxls@hotmail.com >
To: Belajar-Excel Yahoo Groups <belajar-excel@yahoogroups. >com
Sent: Tuesday, 10 January 2012, 8:55
Subject: RE: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
Ada , 2 buku karangan Yudhi Wicaksono. Buku pertama membahas belajar VBA/MAcro , dan kedua contoh2 Macro.
_____________________ _________ __
To: belajar-excel@yahoogroups. com
From: depi.hari_yanto@yahoo.co. id
Date: Tue, 10 Jan 2012 00:58:29 +0800
Subject: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
ysh. Master Excel.
salam semoga dalam keadaan sehat dan prima selalu... Amiin.
terima kasih atas macronya walaupun pusing... maklum masih awam.
sy merubah sedikit supaya nomor tampil otomatis pada saat menginput tanggal, eh malah jadi berantakan (terlampir)
ma'af yang udah membantu n minta solusinya lagi ya ...!
satu lagi tanpa mengurangi semangat buat belajar, mohon infonya dong kira2 ada gak buku belajar macro ..?
salam
dep_har
_____________________ _________ __
Dari: o' Seno <ontoseno84@gmail.com >
Dikirim: Minggu, 8 Januari 2012 0:32
Siap Boss !!...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long, JmlBar As Range
LastRow = Cells(Cells.Rows.Count, 12).End(xlUp) .Row
Set JmlBar = Cells(LastRow, 2).Resize(1, 11)
Application.EnableEvents = False
If Target.Column = 2 Then
If Target.Row > 5 Then
If Target.Row < LastRow Then
If Target.Cells.Count = 1 Then
If Not Target.Value = vbNullString Then
If Target.Value - 1 = Target(0, 1) Then
JmlBar.Offset(-1, 0).Insert shift:=xlDown
Target(0, 7).Resize(1, 5).Copy
Target(1, 7).PasteSpecial xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False
Target(1, 2).Activate
End If
ElseIf Target.Value = vbNullString Then
Target(1, 1).Resize(1, 11).Delete shift:=xlUp
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
'-------------
2012/1/7 i Haps <hapsari.stlizbeth@gmail.com >
Seno, masih online ?!? Maju coy ! blum ada yg ambil tuh...
- 2d.
-
Bls: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: L
Posted by: "depi Hariyanto" depi.hari_yanto@yahoo.co.id depi.hari_yanto
Mon Jan 9, 2012 7:22 pm (PST)
dear para master,
wah, terima kasih informasinya. apa sy bisa pesan online gak ya ..? masalahnya saya jauh nih(banjarmasin)jika dijakarta mungkin gampang carinya ..
tapi bantu dulu dong masalah saya .. hehehee...
best Regards,
dep_har
_____________________ _________ __
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Selasa, 10 Januari 2012 11:14
Judul: Fw: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
Satu buku lagi akan menyusul, membahas mengenai teori VBA(Macro), Contoh2 aplikasi Macro, Mengukur kecepatan proses Macro dan Error & Solution.
Kita tunggu tanggal mainnya.
Salam,
HendriK Karnadi
----- Forwarded Message -----
From: jkssxls Sudarsono <jkssxls@hotmail.com >
To: Belajar-Excel Yahoo Groups <belajar-excel@yahoogroups. >com
Sent: Tuesday, 10 January 2012, 8:55
Subject: RE: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
Ada , 2 buku karangan Yudhi Wicaksono. Buku pertama membahas belajar VBA/MAcro , dan kedua contoh2 Macro.
_____________________ _________ __
To: belajar-excel@yahoogroups. com
From: depi.hari_yanto@yahoo.co. id
Date: Tue, 10 Jan 2012 00:58:29 +0800
Subject: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
ysh. Master Excel.
salam semoga dalam keadaan sehat dan prima selalu... Amiin.
terima kasih atas macronya walaupun pusing... maklum masih awam.
sy merubah sedikit supaya nomor tampil otomatis pada saat menginput tanggal, eh malah jadi berantakan (terlampir)
ma'af yang udah membantu n minta solusinya lagi ya ...!
satu lagi tanpa mengurangi semangat buat belajar, mohon infonya dong kira2 ada gak buku belajar macro ..?
salam
dep_har
_____________________ _________ __
Dari: o' Seno <ontoseno84@gmail.com >
Dikirim: Minggu, 8 Januari 2012 0:32
Siap Boss !!...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long, JmlBar As Range
LastRow = Cells(Cells.Rows.Count, 12).End(xlUp) .Row
Set JmlBar = Cells(LastRow, 2).Resize(1, 11)
Application.EnableEvents = False
If Target.Column = 2 Then
If Target.Row > 5 Then
If Target.Row < LastRow Then
If Target.Cells.Count = 1 Then
If Not Target.Value = vbNullString Then
If Target.Value - 1 = Target(0, 1) Then
JmlBar.Offset(-1, 0).Insert shift:=xlDown
Target(0, 7).Resize(1, 5).Copy
Target(1, 7).PasteSpecial xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False
Target(1, 2).Activate
End If
ElseIf Target.Value = vbNullString Then
Target(1, 1).Resize(1, 11).Delete shift:=xlUp
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
'-------------
2012/1/7 i Haps <hapsari.stlizbeth@gmail.com >
Seno, masih online ?!? Maju coy ! blum ada yg ambil tuh...
- 2e.
-
Re: Bls: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mo
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Mon Jan 9, 2012 7:30 pm (PST)
Bisa, melalui Gramedia Shop atau Toko buku on line lainnya. Silakan search di internet.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: depi Hariyanto <depi.hari_yanto@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Tuesday, 10 January 2012, 10:18
Subject: Bls: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
dear para master,
wah, terima kasih informasinya. apa sy bisa pesan online gak ya ..? masalahnya saya jauh nih(banjarmasin)jika dijakarta mungkin gampang carinya ..
tapi bantu dulu dong masalah saya .. hehehee...
best Regards,
dep_har
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com >
Kepada: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Dikirim: Selasa, 10 Januari 2012 11:14
Judul: Fw: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
Satu buku lagi akan menyusul, membahas mengenai teori VBA(Macro), Contoh2 aplikasi Macro, Mengukur kecepatan proses Macro dan Error & Solution.
Kita tunggu tanggal mainnya.
Salam,
HendriK Karnadi
----- Forwarded Message -----
From: jkssxls Sudarsono <jkssxls@hotmail.com >
To: Belajar-Excel Yahoo Groups <belajar-excel@yahoogroups. >com
Sent: Tuesday, 10 January 2012, 8:55
Subject: RE: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
Ada , 2 buku karangan Yudhi Wicaksono. Buku pertama membahas belajar VBA/MAcro , dan kedua contoh2 Macro.
To: belajar-excel@yahoogroups. com
From: depi.hari_yanto@yahoo.co. id
Date: Tue, 10 Jan 2012 00:58:29 +0800
Subject: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
ysh. Master Excel.
salam semoga dalam keadaan sehat dan prima selalu... Amiin.
terima kasih atas macronya walaupun pusing... maklum masih awam.
sy merubah sedikit supaya nomor tampil otomatis pada saat menginput tanggal, eh malah jadi berantakan (terlampir)
ma'af yang udah membantu n minta solusinya lagi ya ...!
satu lagi tanpa mengurangi semangat buat belajar, mohon infonya dong kira2 ada gak buku belajar macro ..?
salam
dep_har
_____________________ _________ __
Dari: o' Seno <ontoseno84@gmail.com >
Dikirim: Minggu, 8 Januari 2012 0:32
Siap Boss !!...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long, JmlBar As Range
LastRow = Cells(Cells.Rows.Count, 12).End(xlUp) .Row
Set JmlBar = Cells(LastRow, 2).Resize(1, 11)
Application.EnableEvents = False
If Target.Column = 2 Then
If Target.Row > 5 Then
If Target.Row < LastRow Then
If Target.Cells.Count = 1 Then
If Not Target.Value = vbNullString Then
If Target.Value - 1 = Target(0, 1) Then
JmlBar.Offset(-1, 0).Insert shift:=xlDown
Target(0, 7).Resize(1, 5).Copy
Target(1, 7).PasteSpecial xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False
Target(1, 2).Activate
End If
ElseIf Target.Value = vbNullString Then
Target(1, 1).Resize(1, 11).Delete shift:=xlUp
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
'-------------
2012/1/7 i Haps <hapsari.stlizbeth@gmail.com >
Seno, masih online ?!? Maju coy ! blum ada yg ambil tuh...
- 2f.
-
Trs: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP
Posted by: "depi Hariyanto" depi.hari_yanto@yahoo.co.id depi.hari_yanto
Mon Jan 9, 2012 8:45 pm (PST)
dear All Master Excel,
please, ... solusinya.
best Regards,
dep_har
----- Pesan yang Diteruskan -----
Dari: depi Hariyanto <depi.hari_yanto@yahoo.co. >id
Dikirim: Selasa, 10 Januari 2012 0:58
Judul: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
ysh. Master Excel.
salam semoga dalam keadaan sehat dan prima selalu... Amiin.
terima kasih atas macronya walaupun pusing... maklum masih awam.
sy merubah sedikit supaya nomor tampil otomatis pada saat menginput tanggal, eh malah jadi berantakan (terlampir)
ma'af yang udah membantu n minta solusinya lagi ya ...!
satu lagi tanpa mengurangi semangat buat belajar, mohon infonya dong kira2 ada gak buku belajar macro ..?
salam
dep_har
- 2g.
-
Re: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LO
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Mon Jan 9, 2012 10:07 pm (PST)
Untuk menampilkan No Urut Otomatis, coba ganti formula di sel B6 menjadi :
=IF(C6="","",N(B5)+1) .
Kemudian di copy ke bawah.
Salam,
Hendrik Karnadi
_____________________ _________ __
From: depi Hariyanto <depi.hari_yanto@yahoo.co. >id
To: "belajar-excel@yahoogroups. " <belajar-excel@com yahoogroups. >com
Sent: Monday, 9 January 2012, 23:58
Subject: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
ysh. Master Excel.
salam semoga dalam keadaan sehat dan prima selalu... Amiin.
terima kasih atas macronya walaupun pusing... maklum masih awam.
sy merubah sedikit supaya nomor tampil otomatis pada saat menginput tanggal, eh malah jadi berantakan (terlampir)
ma'af yang udah membantu n minta solusinya lagi ya ...!
satu lagi tanpa mengurangi semangat buat belajar, mohon infonya dong kira2 ada gak buku belajar macro ..?
salam
dep_har
_____________________ _________ __
Dari: o' Seno <ontoseno84@gmail.com >
Dikirim: Minggu, 8 Januari 2012 0:32
Siap Boss !!...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long, JmlBar As Range
LastRow = Cells(Cells.Rows.Count, 12).End(xlUp) .Row
Set JmlBar = Cells(LastRow, 2).Resize(1, 11)
Application.EnableEvents = False
If Target.Column = 2 Then
If Target.Row > 5 Then
If Target.Row < LastRow Then
If Target.Cells.Count = 1 Then
If Not Target.Value = vbNullString Then
If Target.Value - 1 = Target(0, 1) Then
JmlBar.Offset(-1, 0).Insert shift:=xlDown
Target(0, 7).Resize(1, 5).Copy
Target(1, 7).PasteSpecial xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False
Target(1, 2).Activate
End If
ElseIf Target.Value = vbNullString Then
Target(1, 1).Resize(1, 11).Delete shift:=xlUp
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
'-------------
2012/1/7 i Haps <hapsari.stlizbeth@gmail.com >
Seno, masih online ?!? Maju coy ! blum ada yg ambil tuh...
- 2h.
-
Re: mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Mon Jan 9, 2012 10:18 pm (PST)
mangsalahnya apa ini ya...?
kok ndak diceritakan di BADAN EMAIL mengulang kesalahan yg lalu ?
malah cari jalan pintas "please solusinya" ( pendek-amat, sedangkan
si Amat tidak terlalul pendek,,,) tanpa mengungkapkan problem yg dihadapi
( & juga topik sudah bergeser ke MAKRO, bukan formula lagi lho....)
Private Sub Worksheet_Change(ByVal Target As Range)
' o'Seno - ngawur-ngawuran tgl 7 jan 2012
' for milis be-Excel / case #15065
' modified : 10 Jan 2012 / indri Hapsari
'==================== ========= ========= ==
Dim LastRow As Long, JmlBar As Range
LastRow = Cells(Cells.Rows.Count, 2).End(xlUp) .Row
Set JmlBar = Cells(LastRow, 2).Resize(1, 11)
Application.EnableEvents = False
If Target.Column = *3* Then
If Target.Row > 5 Then
If Target.Row < LastRow Then
If Target.Cells.Count = 1 Then
If Not Target.Value = vbNullString Then
If IsDate(Target.Value) Then
Target(2, 0).Resize(1, 11).Insert _
shift:=xlDown, CopyOrigin:=True
Target(1, 0) = Target(0, 0) + 1 '<< Nr otomatis
Target(0, 6).Resize(1, 5).Copy
Target(1, 6).PasteSpecial *12*
Application.CutCopyMode = False
Target(1, 2).Activate
End If
ElseIf Target.Value = vbNullString Then
Target(1, 0).Resize(1, 11).Delete shift:=xlUp
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
'==================== ========= ========= ========= ==
pengisian kolom ini akan memicu makro ber-aksi
© memberi nomor otomatis di kolom b
© mengkopy rumus di H:L baris di atas target ke baris target (same columns)
© menginsert baris baru di atas BarisPenjumlahan
Syarat:
pengisian harus 1 cell demi satu cell
di kolom C ; setelah baris 5, dan
harus berupa data TANGGAL
Jika kita menghapus data tanggal yg ada : *Baris *tsb akan dilineyapkan...
pr untuk pak delphi dan para kawogan (para yg tertarik)
1
carikan keywords mana saja yg dimodifikasi oleh iHaps ??
2
makro tsb belum mencegah pengisian data loncat
(misal: data TGL terakhir ada di baris 5 kita masih bisa mengisi baris 8 !!)
bgmana coding syaraatnya; agar entri data loncat dapat dicegah!?
2012/1/10 depi Hariyanto <depi.hari_yanto@yahoo.co. >id
> **
>
> dear All Master Excel,
> please, ... solusinya.
> best Regards,
> dep_har
>
*
> ----- Pesan yang Diteruskan -----
> Dari: depi Hariyanto <depi.hari_yanto@yahoo.co. >id
> Dikirim: Selasa, 10 Januari 2012 0:58
> Judul: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod:
> LOOKUP & RUJUKAN)
>
> ysh. Master Excel.
> salam semoga dalam keadaan sehat dan prima selalu... Amiin.
> terima kasih atas macronya walaupun pusing... maklum masih awam.
> sy merubah sedikit supaya nomor tampil otomatis pada saat menginput
> tanggal, eh malah jadi berantakan (terlampir)
> ma'af yang udah membantu n minta solusinya lagi ya ...!
>
> satu lagi tanpa mengurangi semangat buat belajar, mohon infonya dong kira2
> ada gak buku belajar macro ..?
>
> salam
> dep_har*
>
- 2i.
-
Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP
Posted by: "depi Hariyanto" depi.hari_yanto@yahoo.co.id depi.hari_yanto
Tue Jan 10, 2012 6:18 am (PST)
dear pakar excel yang budiman,
bukan saya tidak mau ngerjain pr dari master iHaps dan bukan saya menyerah untuk menjawab tapi memang saya tidak ngerti macro (baru mau belajar). dan pertanyaan saya sangat dibutuhkan segera.
saya rasa para master yang budiman dapat bantu saya.
pertanyaan : pada saat saya input tanggal kolom biaya pada H:L tidak keluar otomatis.
salam dan terima kasih.
dep_har
_____________________ _________ __
Dari: i Haps <hapsari.stlizbeth@gmail.com >
Kepada: belajar-excel@yahoogroups. com
Dikirim: Selasa, 10 Januari 2012 14:17
Judul: Re: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
mangsalahnya apa ini ya...?
kok ndak diceritakan di BADAN EMAIL mengulang kesalahan yg lalu ?
malah cari jalan pintas "please solusinya" ( pendek-amat, sedangkan
si Amat tidak terlalul pendek,,,) tanpa mengungkapkan problem yg dihadapi
( & juga topik sudah bergeser ke MAKRO, bukan formula lagi lho....)
Private Sub Worksheet_Change(ByVal Target As Range)
' o'Seno - ngawur-ngawuran tgl 7 jan 2012
' for milis be-Excel / case #15065
' modified : 10 Jan 2012 / indri Hapsari
'==================== ========= ========= ==
Dim LastRow As Long, JmlBar As Range
LastRow = Cells(Cells.Rows.Count, 2).End(xlUp) .Row
Set JmlBar = Cells(LastRow, 2).Resize(1, 11)
Application.EnableEvents = False
If Target.Column = 3Then
If Target.Row > 5 Then
If Target.Row < LastRow Then
If Target.Cells.Count = 1 Then
If Not Target.Value = vbNullString Then
If IsDate(Target.Value) Then
Target(2, 0).Resize(1, 11).Insert _
shift:=xlDown, CopyOrigin:=True
Target(1, 0) = Target(0, 0) + 1 '<< Nr otomatis
Target(0, 6).Resize(1, 5).Copy
Target(1, 6).PasteSpecial 12
Application.CutCopyMode = False
Target(1, 2).Activate
End If
ElseIf Target.Value = vbNullString Then
Target(1, 0).Resize(1, 11).Delete shift:=xlUp
End If
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
'==================== ========= ========= ========= ==
pengisian kolom ini akan memicu makro ber-aksi
© memberi nomor otomatis di kolom b
© mengkopy rumus di H:L baris di atas target ke baris target (same columns)
© menginsert baris baru di atas BarisPenjumlahan
Syarat:
pengisian harus 1 cell demi satu cell
di kolom C ; setelah baris 5, dan
harus berupa data TANGGAL
Jika kita menghapus data tanggal yg ada : Baris tsb akan dilineyapkan...
pr untuk pak delphi dan para kawogan (para yg tertarik)
1
carikan keywords mana saja yg dimodifikasi oleh iHaps ??
2
makro tsb belum mencegah pengisian data loncat
(misal: data TGL terakhir ada di baris 5 kita masih bisa mengisi baris 8 !!)
bgmana coding syaraatnya; agar entri data loncat dapat dicegah!?
2012/1/10 depi Hariyanto <depi.hari_yanto@yahoo.co. >id
>dear All Master Excel,
>please, ... solusinya.
>best Regards,
>dep_har
>----- Pesan yang Diteruskan -----
>Dari: depi Hariyanto <depi.hari_yanto@yahoo.co. >id
>Dikirim: Selasa, 10 Januari 2012 0:58
>Judul: Bls: [belajar-excel] mohon bantuan (Koreksi Subject dari Mod: LOOKUP & RUJUKAN)
>
>ysh. Master Excel.
>salam semoga dalam keadaan sehat dan prima selalu... Amiin.
>terima kasih atas macronya walaupun pusing... maklum masih awam.
>sy merubah sedikit supaya nomor tampil otomatis pada saat menginput tanggal, eh malah jadi berantakan (terlampir)
>ma'af yang udah membantu n minta solusinya lagi ya ...!
>
>satu lagi tanpa mengurangi semangat buat belajar, mohon infonya dong kira2 ada gak buku belajar macro ..?
>
>salam
>dep_har
- 3a.
-
Pivot tabel di VB-Revisi
Posted by: "dimas ricky" dimasr1985@gmail.com
Tue Jan 10, 2012 12:15 am (PST)
Dear Mods & Members,
Mohon maaf sebelumnya karena saya sudah posting perntanyaan tanpa membaca dulu peraturan dari milis ini hehehe ( mudah2an sekarnag tidak salah lagi ya :p )
Berikut adalah masalah yang saya hadapi dalam membuat tabel pivot :
1. kode vb yang saya coba buat untuk tabel, hasilnya adalah field2nya
( maap kalau salah) berada dalam satu kolom saja ( lihat sheet "Hasil yang ada"), sedangkan hasil yang saya inginkan adalah hasilnya itu terpencar di row2 yang ada ( lihat sheet "Hasil yang di inginkan ").
Pertanyaan saya adalah bagaimana cara agar hasil pivot bsa seperti yang diinginkan ( seperti sheet "Hasil yang di inginkan")
Berikut kode makro yang saya sudah buat ( maap kalau berantakan, saya masih newbie soalnya di makro hikz ! ) hehe , sapa tau dari kode vb ini ada yang perlu di revisi :
Sub CreatePivot()
' Creates a PivotTable report from the table on Sheet1
' by using the PivotTableWizard method with the PivotFields
' method to specify the fields in the PivotTable.
Dim objTable As PivotTable, objField As PivotField
' Memilih sheet datase dengan cell yang pertama.
ActiveWorkbook.Sheets("DB_ 1").Select
Range("A4").Select
' Membuat pivottable dari database yang ada.
Set objTable = Sheet1.PivotTableWizard
' Spesifik row dan Field.
Set objField = objTable.PivotFields("Co No")
objField.Orientation = xlRowField
Set objField = objTable.PivotFields("Descriptions" )
objField.Orientation = xlRowField
' Spesifik data dengan rangkumannya .
' function and format.
Set objField = objTable.PivotFields("Depok" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Bekasi" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Mampang" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Pramuka" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Warung" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Buncit" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Kuningan" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Tebet" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Benhill" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Pancoran" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Kalibata" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Pasar Minggu")
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Pondok Indah")
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Tanggerang" )
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
Set objField = objTable.PivotFields("Total Cost")
objField.Orientation = xlDataField
objField.Function = xlSum
objField.NumberFormat = "#,##0"
' Melihat hasil PrintPreview .
ActiveSheet.PrintPreview
' Pilihan untuk menghapus pivot or tidak .
Application.DisplayAlerts = False
If MsgBox("Delete the Report ?", vbYesNo) = vbYes Then
ActiveSheet.Delete
End If
Application.DisplayAlerts = True
End Sub
Terima kasih untuk bantuannya..saya harap saya tidak menyalahi aturan milis lagi =(
Dimas
- 3b.
-
Re: Pivot tabel di VB-Revisi
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Tue Jan 10, 2012 3:05 am (PST)
Coba sebelum print preview, pindahkan Data Field ke column
dengan object yang anda miliki, bisa jadi seperti :
objtable.datapivotfield.orientation =xlcolumnfield
Kid.
2012/1/10 dimas ricky <dimasr1985@gmail.com >
> **
>
>
> Dear Mods & Members,
>
> Mohon maaf sebelumnya karena saya sudah posting perntanyaan tanpa membaca
> dulu peraturan dari milis ini hehehe ( mudah2an sekarnag tidak salah lagi
> ya :p )
>
> Berikut adalah masalah yang saya hadapi dalam membuat tabel pivot :
>
> 1. kode vb yang saya coba buat untuk tabel, hasilnya adalah field2nya
> ( maap kalau salah) berada dalam satu kolom saja ( lihat sheet "Hasil yang
> ada"), sedangkan hasil yang saya inginkan adalah hasilnya itu terpencar di
> row2 yang ada ( lihat sheet "Hasil yang di inginkan ").
>
> Pertanyaan saya adalah bagaimana cara agar hasil pivot bsa seperti yang
> diinginkan ( seperti sheet "Hasil yang di inginkan")
>
> Berikut kode makro yang saya sudah buat ( maap kalau berantakan, saya
> masih newbie soalnya di makro hikz ! ) hehe , sapa tau dari kode vb ini ada
> yang perlu di revisi :
>
> Sub CreatePivot()
> ' Creates a PivotTable report from the table on Sheet1
> ' by using the PivotTableWizard method with the PivotFields
> ' method to specify the fields in the PivotTable.
> Dim objTable As PivotTable, objField As PivotField
>
> ' Memilih sheet datase dengan cell yang pertama.
> ActiveWorkbook.Sheets("DB_ 1").Select
> Range("A4").Select
>
> ' Membuat pivottable dari database yang ada.
> Set objTable = Sheet1.PivotTableWizard
>
> ' Spesifik row dan Field.
> Set objField = objTable.PivotFields("Co No")
> objField.Orientation = xlRowField
> Set objField = objTable.PivotFields("Descriptions" )
> objField.Orientation = xlRowField
>
> ' Spesifik data dengan rangkumannya .
> ' function and format.
> Set objField = objTable.PivotFields("Depok" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Bekasi" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Mampang" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Pramuka" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Warung" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Buncit" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Kuningan" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Tebet" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Benhill" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Pancoran" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Kalibata" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Pasar Minggu")
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Pondok Indah")
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Tanggerang" )
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
> Set objField = objTable.PivotFields("Total Cost")
> objField.Orientation = xlDataField
> objField.Function = xlSum
> objField.NumberFormat = "#,##0"
>
> ' Melihat hasil PrintPreview .
> ActiveSheet.PrintPreview
>
> ' Pilihan untuk menghapus pivot or tidak .
> Application.DisplayAlerts = False
> If MsgBox("Delete the Report ?", vbYesNo) = vbYes Then
> ActiveSheet.Delete
> End If
> Application.DisplayAlerts = True
>
> End Sub
>
> Terima kasih untuk bantuannya..saya harap saya tidak menyalahi aturan
> milis lagi =(
>
> Dimas
>
>
>
- 4a.
-
menghitung kolom yg berisi nilai lebih dari 0 (nol)
Posted by: "Mulki Akbar" mulki@aop.component.astra.co.id mulki_akbar
Tue Jan 10, 2012 12:36 am (PST)
Assalamu'alaikum wr. wb.
mohon pencerahan para suhu.
saya punya data sbb :
customer product jan-qty feb-qty mar-qty shipment
A pensil 1 15 0 2
B buku 15 0 0 1
C pen 0 0 0 0
dgn data tersbt saya mau menghitung jumlah shipment utk tiap customer seperti contoh diatas.
bagaimana formulanya ya ?
mohon dicerahkan.
thx & wassalam,
mulki - 4b.
-
Re: menghitung kolom yg berisi nilai lebih dari 0 (nol)
Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi
Tue Jan 10, 2012 1:00 am (PST)
Pakai formula :
=COUNTIF(Range,">0")
dimana Range adalah yang akan dijumlahkan dan>0 adalah kriteria (diapit dua apostropi).
Salam,
Hendrik Karnadi
From: Mulki Akbar <mulki@aop.component.astra.co. >id
To: belajar-excel@yahoogroups. com
Sent: Tuesday, 10 January 2012, 15:28
Subject: [belajar-excel] menghitung kolom yg berisi nilai lebih dari 0 (nol)
Assalamu'alaikum wr. wb.
mohon pencerahan para suhu.
saya punya data sbb :
customer
product jan-qty
feb-qty mar-qty shipment
A
pensil
1 15
0 2
B
buku
15
0 0
1
C
pen
0
0 0
0
dgn data tersbt saya mau
menghitung jumlah shipment utk tiap customer seperti contoh
diatas.
bagaimana formulanya ya ?
mohon dicerahkan.
thx & wassalam,
mulki
- 4c.
-
Re: menghitung kolom yg berisi nilai lebih dari 0 (nol)
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Tue Jan 10, 2012 1:01 am (PST)
RUMUS untuk kolom SHIPMENT
=COUNTIF(C2:E2, "<>0")
hitunglah ada berapa* cacah* (bukan jumlah) data di C2:E2 yg "BUKAN eNol"
jika semua data di kolom C:E pasti data bilangan positip, rumusnya
=COUNTIF(C2:E2, ">0")
pak mulk ini hanya lupa saja, karena dulu, setahu saya
excellevelnya sudah oke... *(sok tahu guWé... maff...)*
2012/1/10 Mulki Akbar <mulki@aop.component.astra.co. >id
> **
> Assalamu'alaikum wr. wb.
> mohon pencerahan para suhu.
> saya punya data sbb :
>
> *customer product jan-qty feb-qty mar-qty shipment*
> *A pensil 1 15 0 2*
> *B buku 15 0 0 1*
> *C pen 0 0 0 0*
>
> dgn data tersbt saya mau menghitung jumlah shipment utk tiap customer
> seperti contoh diatas.
> bagaimana formulanya ya ?
> mohon dicerahkan.
> thx & wassalam,
> mulki
>
>
>
- 4d.
-
Re: menghitung kolom yg berisi nilai lebih dari 0 (nol)
Posted by: "Mulki Akbar" mulki@aop.component.astra.co.id mulki_akbar
Tue Jan 10, 2012 1:57 am (PST)
thx pencerahannya pak karnadi, tadi saya udah coba formulanya tp error trus ehhh ternyata saya kurang tanda kutipnya :)
sekali lagi terimakasih.
Thx & Wassalam,
mulki
----- Original Message -----
From: hendrik karnadi
To: belajar-excel@yahoogroups. com
Sent: Tuesday, January 10, 2012 4:00 PM
Subject: Re: [belajar-excel] menghitung kolom yg berisi nilai lebih dari 0 (nol)
Pakai formula :
=COUNTIF(Range,">0")
dimana Range adalah yang akan dijumlahkan dan >0 adalah kriteria (diapit dua apostropi).
Salam,
Hendrik Karnadi
From: Mulki Akbar <mulki@aop.component.astra.co. >id
To: belajar-excel@yahoogroups. com
Sent: Tuesday, 10 January 2012, 15:28
Subject: [belajar-excel] menghitung kolom yg berisi nilai lebih dari 0 (nol)
Assalamu'alaikum wr. wb.
mohon pencerahan para suhu.
saya punya data sbb :
customer product jan-qty feb-qty mar-qty shipment
A pensil 1 15 0 2
B buku 15 0 0 1
C pen 0 0 0 0
dgn data tersbt saya mau menghitung jumlah shipment utk tiap customer seperti contoh diatas.
bagaimana formulanya ya ?
mohon dicerahkan.
thx & wassalam,
mulki
- 4e.
-
Re: menghitung kolom yg berisi nilai lebih dari 0 (nol)
Posted by: "Mulki Akbar" mulki@aop.component.astra.co.id mulki_akbar
Tue Jan 10, 2012 1:57 am (PST)
hahahaa .. mb haps salah org ...
iyaa ... tadi saya kelupaan tanda kutipnya n thx sudah diingatkan.
Thx & Wassalam,
mulki
----- Original Message -----
From: i Haps
To: belajar-excel@yahoogroups. com
Sent: Tuesday, January 10, 2012 4:00 PM
Subject: Re: [belajar-excel] menghitung kolom yg berisi nilai lebih dari 0 (nol)
RUMUS untuk kolom SHIPMENT
=COUNTIF(C2:E2, "<>0")
hitunglah ada berapa cacah (bukan jumlah) data di C2:E2 yg "BUKAN eNol"
jika semua data di kolom C:E pasti data bilangan positip, rumusnya
=COUNTIF(C2:E2, ">0")
pak mulk ini hanya lupa saja, karena dulu, setahu saya
excellevelnya sudah oke... (sok tahu guWé... maff...)
2012/1/10 Mulki Akbar <mulki@aop.component.astra.co. >id
Assalamu'alaikum wr. wb.
mohon pencerahan para suhu.
saya punya data sbb :
customer product jan-qty feb-qty mar-qty shipment
A pensil 1 15 0 2
B buku 15 0 0 1
C pen 0 0 0 0
dgn data tersbt saya mau menghitung jumlah shipment utk tiap customer seperti contoh diatas.
bagaimana formulanya ya ?
mohon dicerahkan.
thx & wassalam,
mulki
- 5a.
-
Rekam Data Dengan Makro
Posted by: "Imam Sinurat" sin.ur4t@yahoo.com sin.ur4t
Tue Jan 10, 2012 1:57 am (PST)
Salam Be-Excel,
Mohon Bantuan para pakar dan rekan-rekan....
Langsung saja, bagaimana rumus makronya untuk permasalahan yang kami hadapi ini :data di-entri pada sheet "isian" lalu direkam (disimpan) di sheet "gudang". lalu sheet "isian" dibersihkan, kemudian di-entri data berikutnya dan disimpan kembali.
Terima Kasih Sebelumnya.
Sinurat-Sumut.
- 5b.
-
Re: Rekam Data Dengan Makro
Posted by: "i Haps" hapsari.stlizbeth@gmail.com liz_indri_haps
Tue Jan 10, 2012 3:49 am (PST)
*Urusan mengisi Combobox *
(kedua combobox diganti dari keluarga ActiveX-control , gampang
"disuruh-suruh..")
*Combox1* diisi secara manual (in design mode) : Properti ListFillRange
diisi
daftar kecamatan yg sudah di REMOVE Duplicate nya (tinggal data Unik-nya)
Pada saat digunakan *Combobox1 harus di isi lebih dulu *(dengan memilih
list)
(jika Combobox1 masih kosong >> Combobox2 juga masih kosong)
*Combox2* diisi melalui pemrograman agar isinya (nama desa) berubah-ubah
sesuai Kecamatan nya.. (module Sheet 'Isian' / Event Combobox1_Change)
Private Sub ComboBox1_Change()
' mengisi NamaDesa di Combo2 sesuai
' nama kecamatannya
' iHaps: 10 jan 2012
'-------------------- --------- -------
Dim KecDes As Range,i As Integer
Set KecDes = Sheets("Lokasi").Cells(1) .CurrentRegion
With ComboBox2
.Clear
If ComboBox1.ListIndex > -1 Then
For i = 2 To KecDes.Rows.Count
If KecDes(i, 1) = ComboBox1.Value Then
.AddItem KecDes(i, 2)
End If
Next i
End If
End With
End Sub
'-------------------
*Urusan Entri Data*
*Sub Button11_Click()*
' entri data isian ke tabel di sheet gudang
' iHaps: 10 jan 2012
'-------------------- --------- --------- -----
' declare MemVar
Dim dTabel As Range, dIsian As Range
Dim NewRow As Long, r As Long
' init
Set dIsian = Sheets("isian").Cells(9, 1).CurrentRegion
Set dTabel = Sheets("Gudang").Cells(1) .CurrentRegion
NewRow = dTabel.Rows.Count + 1
dTabel.Parent.Activate
' mengisi tabel (proses entri data)
With dIsian
For r = 2 To dIsian.Rows.Count
dTabel(NewRow + r - 2, 1) = .Parent.ComboBox1.Value
dTabel(NewRow + r - 2, 2) = .Parent.ComboBox2.Value
dTabel(NewRow + r - 2, 3) = .Parent.Range("D6").Value
dTabel(NewRow + r - 2, 4) = dIsian(r, 2).Value
dTabel(NewRow + r - 2, 5) = dIsian(r, 4).Value
Next r
' mengosongkan Isian
ComboBox1.ListIndex = -1
ComboBox2.ListIndex = -1
.Parent.Range("D6").ClearConte nts
.Offset(1, 0).ClearContents
End With
End Sub
'-------------------- --------- ---
sekian terima kasih, mudah2an tiak terlalu kacauw...
*2012/1/10 Imam Sinurat <sin.ur4t@yahoo.com >
>
> Salam Be-Excel,
> Mohon Bantuan para pakar dan rekan-rekan....
> Langsung saja, bagaimana rumus makronya untuk permasalahan yang kami
hadapi ini :
> data di-entri pada sheet "isian" lalu direkam (disimpan) di sheet
"gudang". *
*> lalu sheet "isian" dibersihkan, kemudian di-entri data berikutnya dan
disimpan kembali.
> Terima Kasih Sebelumnya.
> Sinurat-Sumut.*
*
*
- 6a.
-
Formula terbilang
Posted by: "Rukia" rukia@mps-eng.com.sg
Tue Jan 10, 2012 2:35 am (PST)
Dear pakar dan teman2 semua,,,
Bagaimana rumus unntuk baca angka dengan huruf yah??
Misal nya : Rp 2,000
Dengan huruf nya : Dua Ribu Rupiah
Bagaimana formula untuk huruf itu yah??
Terimakasih
Beautiful Regards
Rukia Siagian
--- Mods ---
Mohon posting berikutnya :
1. Beri subject yang mencerminkan isi pokok masalah
2. Disempatkan search di message yang lalu lebih dulu
Untuk kasus ini, bisa search dengan key 'terbilang'
------------
- 6b.
-
Re: Formula terbilang
Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com
Tue Jan 10, 2012 3:57 am (PST)
mbak / mas; bisa browse ke sini:
http://tech.groups.yahoo. com/group/ belajar-excel/ files/
di area files (milis kita ini) itu ada beberapa file mengenei "TERBILANG"
yg bisa di download
Jika keperluannya belum terpenuhi dengan file yg ada, mohon posting lagi
ceritakan keluah & kehendaknya...
*o'Seno*
http://www.box.com/s/1c5lpx7mcb 8y0t2meaxh
2012/1/10 Rukia <rukia@mps-eng.com.sg >
> **
>
>
> Dear pakar dan teman2 semua,,,
>
> Bagaimana rumus unntuk baca angka dengan huruf yah??
>
> Misal nya : Rp 2,000
> Dengan huruf nya : Dua Ribu Rupiah
> Bagaimana formula untuk huruf itu yah??
> Terimakasih
>
> Beautiful Regards
> Rukia Siagian
>
> --- Mods ---
> Mohon posting berikutnya :
> 1. Beri subject yang mencerminkan isi pokok masalah
> 2. Disempatkan search di message yang lalu lebih dulu
>
> Untuk kasus ini, bisa search dengan key 'terbilang'
> ------------
>
>
Need to Reply?
Click one of the "Reply" links to respond to a specific message in the Daily Digest.
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
MARKETPLACE
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Tidak ada komentar:
Posting Komentar