Jumat, 04 Oktober 2013

[belajar-excel] Digest Number 2578

15 New Messages

Digest #2578
2a
Re: Print banyak data dlm satu form by "hendrik karnadi" hendrikkarnadi
6
Memindahkan data ke dalam slip gaji by "Tjahya Hartono" tjahyahartono
8
Fungsi code by "neza ibaneza" nezaibaneza

Messages

Thu Oct 3, 2013 7:02 am (PDT) . Posted by:

"abdul hafidz" a.hafidz

Mr. Bagus, Mr. Kid, Mr. fery and Miss jan... terima kasih atas pencerahan yg telah diberikan

trims.

 

________________________________
Dari: Bagus <bagus@kingjim.co.id>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Kamis, 3 Oktober 2013 14:35
Judul: Re: Re: [belajar-excel] Kombinasi rumus IF, OR, AND


 

Coba ini pak...
 
=IF(AND(C7="PM",D7>0),1,IF(AND(C7="PS",D7>1),2,IF(AND(C7="PP",D7>2),3,"")))
 
Copy paste kebawah
 
 
Wassalam
 
~ Bagus ~
 
----- Original Message -----
>From: abdul hafidz
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, October 03, 2013 2:22 PM
>Subject: Bls: Re: [belajar-excel] Kombinasi rumus IF, OR, AND [1 Attachment]
>
> 
>Terima kasih atas pencerahan yg diberikan, namun masih ada kendala dimana rumus masih belum bisa menghasilkan dengan kreteria yang di inginkan, mohon pencerahannya kembali dengan lampiran yang ada.
>
>trims.  
>
>
>
>________________________________
> Dari: "fset2006@gmail.com" <fset2006@gmail.com>
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Kamis, 3 Oktober 2013 9:32
>Judul: RE: Re: [belajar-excel] Kombinasi rumus IF, OR, AND
>
>
>
> 
> Cara lainnya mungkin seperti ini :
> 
>=IF(OR(A1="PS",A1="PM",A1="PP"),MIN(B1,3),"")
> 
>Karena saya lihat syaratnya adalah jika
>B1 = 1, maka 1
>B1 = 2, maka 2
>B1 >= 3, maka 3
> 
>Dengan menggunakan fungsi MIN(B1,3), maka jika B1 < 3, maka nilai yang muncul adalah nilai B1, jika lebih dari sama dengan 3, maka yang akan dimunculkan adalah 3
> 
>Semoga membantu
>Thanks
>Ferry
> 
>---In belajar-excel@yahoogroups.com, <belajar-excel@yahoogroups.com> wrote:
>
>
>Coba ini pak..
> 
>=IF(AND(OR(A1="PS",A1="PM",A1="PP"),B1>=3),3,IF(AND(OR(A1="PS",A1="PM",A1="PP"),B1>=2),2,IF(AND(OR(A1="PS",A1="PM",A1="PP"),B1>=1),1,"")))
> 
> 
>Wassalam
> 
>~ Bagus ~
> 
>----- Original Message -----
>From: <a.hafidz@...>
>To: <belajar-excel@yahoogroups.com>
>Sent: Thursday, October 03, 2013 2:28 AM
>Subject: [belajar-excel] Kombinasi rumus IF, OR, AND
>
>> Dear all master be-eXcel
>
>> salamat malam menjelang pagi
>
>>
>>> Mohon pencerahannya
apakah sdh benar penulisannya /peletakan fungsi rumus ini :
>
>> 
>>> Di asumsikan
rumus di tulis pada  cell C1
>
>>
>>> =IF(OR(AND(A1="PS",A1="PM",A1="PP"),(B1)>=1,"1",(B1)>=2,"2",(B1)>=3,"3"))
>
>>
>>> Dengan logika
seperti berikut :
>>> Jika A1 = PS atau A1 = PM atau A1 = PP dan jika B1>=1 maka hasilnya 1 dan jika B1>=2 maka hasilnya 2 dan jika B1>=3 maka hasilnya 3
>
>>
>>> Kurang lebih seperti
itu logika yg di inginkan, so' mohon pencerhannya yah....
>
>>
>>> Trims.
>>> Sent from my BlackBerry®
>
>> powered by Sinyal Kuat INDOSAT
>>>
>>> ------------------------------------
>
>>
>>> =====================================================================
>
>> Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
>
>> Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
>
>> Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
>
>> Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
>
>> href="http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3">http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
>> =====================================================================
>
>> Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
>
>> =====================================================================
>
>>
>>> ----------------------------------------------------------
>
>> bergabung ke milis (subscribe), kirim mail kosong ke:
>
>> href="mailto:belajar-excel-subscribe@yahoogroups.com">belajar-excel-subscribe@yahoogroups.com
>>
>
>> posting ke milis, kirimkan ke:
>>> href="mailto:belajar-excel@yahoogroups.com">belajar-excel@yahoogroups.com
>>
>
>> berkunjung ke web milis
>>> href="http://tech.groups.yahoo.com/group/belajar-excel/messages">http://tech.groups.yahoo.com/group/belajar-excel/messages
>>
>
>> melihat file archive / mendownload lampiran
>
>> href="http://www.mail-archive.com/belajar-excel@yahoogroups.com/">http://www.mail-archive.com/belajar-excel@yahoogroups.com/
>> atau (sejak 25-Apr-2011) bisa juga di :
>
>> href="http://milis-belajar-excel.1048464.n5.nabble.com/">http://milis-belajar-excel.1048464.n5.nabble.com/
>>
>
>> menghubungi moderators & owners: href="mailto:belajar-excel-owner@yahoogroups.com">belajar-excel-owner@yahoogroups.com
>>
>
>> keluar dari membership milis (UnSubscribe):
>>> kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
>> ----------------------------------------------------------Yahoo! Groups Links
>
>>
>>    href="http://groups.yahoo.com/group/belajar-excel/">http://groups.yahoo.com/group/belajar-excel/
>>
>
>>    Individual Email | Traditional
>>>
>>    (Yahoo! ID required)
>
>>
>>    href="mailto:belajar-excel-digest@yahoogroups.com">belajar-excel-digest@yahoogroups.com
>
>>    href="mailto:belajar-excel-fullfeatured@yahoogroups.com">belajar-excel-fullfeatured@yahoogroups.com
>>
>
>>    href="mailto:belajar-excel-unsubscribe@yahoogroups.com">belajar-excel-unsubscribe@yahoogroups.com
>>
>
>>    href="http://info.yahoo.com/legal/us/yahoo/utos/terms/">http://info.yahoo.com/legal/us/yahoo/utos/terms/
>>
>
>>
>
>

Thu Oct 3, 2013 7:09 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

coba pelajari cara mencetak otomatis dalam file terlampir.

Salam,
HK

________________________________
From: Md Switra <mswitra@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 3 October 2013, 18:43
Subject: [belajar-excel] Print banyak data dlm satu form


 
Selamat Malam Semua dalam group ini.
Hari ini saya memiliki sebuah pertanyaan tentang print data. Saya membuat form untuk slip gaji dan data untuk form tersebut. formnya hanya satu tapi data yang mau dicetak terdiri dari beberapa orang. Yang ingin saya tanyakan adalah 1. Bisa di buatkan formula untuk mencetak beberapa slip gaji dalam satu perintah? 2. Formula untuk hal tersebut. Saya sudah menggunakan @vlookup tapi hanya bisa satu persatu, saya ingin jika ada formula untuk bisa langsung mencetak seluruh data.
Terima kasih.
Dikirim dari Yahoo! Mail pada Android
Switra

Thu Oct 3, 2013 7:22 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Macro tsb didesign untuk preview sekaligus, tinggal klik "close print preview" untuk lihat invoice berikutnya.
Untuk Slip Gaji tinggal sesuaikan format dan formulanya.
Pelajari dahulu sebelum mencetak sekaligus.

Kalau sdh siap dan mau cetak ke printer langsung, tinggal ganti perintah:
ActiveSheet.PrintPreview

menjadi
ActiveSheet.PrintOut

Salam,
HK

----- Forwarded Message -----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Sent: Thursday, 3 October 2013, 21:09
Subject: Re: [belajar-excel] Print banyak data dlm satu form [1 Attachment]


 
coba pelajari cara mencetak otomatis dalam file terlampir.

Salam,
HK

________________________________
From: Md Switra <mswitra@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 3 October 2013, 18:43
Subject: [belajar-excel] Print banyak data dlm satu form


 
Selamat Malam Semua dalam group ini.
Hari ini saya memiliki sebuah pertanyaan tentang print data. Saya membuat form untuk slip gaji dan data untuk form tersebut. formnya hanya satu tapi data yang mau dicetak terdiri dari beberapa orang. Yang ingin saya tanyakan adalah 1. Bisa di buatkan formula untuk mencetak beberapa slip gaji dalam satu perintah? 2. Formula untuk hal tersebut. Saya sudah menggunakan @vlookup tapi hanya bisa satu persatu, saya ingin jika ada formula untuk bisa langsung mencetak seluruh data.
Terima kasih.
Dikirim dari Yahoo! Mail pada Android
Switra

Thu Oct 3, 2013 12:36 pm (PDT) . Posted by:

suhady_m


hiii para guru excel,

saya sangat senang bias ikut gabung group belajar exel ini,

dengan group ini saya sangat terbantu dalam menyelesaikan masalah
dalam excel.

ada yang ingin saya tanyakan



rumus macro yang saya buat



Macro6 macro



Range("B10:J18").Select
Selection.Copy
Sheets("Database").Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select

end sub



permasalahan yang keluar,

saat saya menginput data selantjutnya

di sheet "database"; pada kolom A (tgl) terbaca filter blank

sedangkan yang saya inginkan ada dibawah tgl terakhir yang ada
data.

apakah ada solusinya.





thanks


Thu Oct 3, 2013 1:43 pm (PDT) . Posted by:

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

Hai Archi,

Di area input kan ada formulanya. Nah... cell yang diisi formula itu kan
udah gak blank lagi. Formula yang hasilnya "" artinya menulis NULLSTRING.
Tetap saja si cell sudah ndak blank.

Jadi ketika di-copy ke database, cell yang begituan (berisi "" hasil
formula) memang akan tampak blank bagi manusia. Tapi buat komputer itu gak
blank. Akhirnya manusia melihatnya diproses input berikutnya ada lompatan.
Padahal ndak ada yang melompat-lompat didatabase. Script untuk proses
penulisannya ke database juga berjalan dengan baik.

Kalo yang dipengenken adalah di database ndak ada baris yang kelihatan
seperti blank itu, ada beberapa kondisi cara input yang sepertinya pantas
untuk diperhatikan. Kira-kira gini :
1. kalau inputnya pasti urut terus alias gak bakal lompat baris
berarti yang diper halus adalah bagian yang bertugas memilih baris yang
akan di-copy. Dalam script yang ada, baris ini berbunyi :
Range("B10:J18").Select
bisa diubah menjadi :
'di kolom D dari B10:B18, pilih cell yang berisi formula dan
menghasilkan tipe data numeric, lalu diperluas jadi 9 kolom, di-select
'kalo manual di worksheetnya, blok B10:B18, CTRL G, Special, pilih
Formulas, hilangkan centang kecuali Numbers, OK,
'tekan tombol SHIFT terus menerus lalu klik kolom J di baris
terakhir yang terblok di kolom B nya.

range("b10:b18").specialcells(xlcelltypeformulas,xlnumbers).resize(,9).select

2. kalau inputnya boleh lompat baris sesukanya
berarti :
cara1 : bisa pakai loop untuk kolom B nya yang ada isinya saja yang
disalin ke database
berarti semua baris script kecuali baris
Range("B10:J18").Select dimasukkan ke blok loop menjadi :
dim rng as range
for each rng in range("b10:b18")
if len(rng.value)<>0 then
rng.resize(1,9).select
Selection.Copy
Sheets("Database").Select
Range("A2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1,
0).Range("A1").Select
Selection.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False,
Transpose:=False
Range("A2").Select
end if
next rng

cara2 : proses input apa adanya, tapi di database (usai paste
special) ada acara bersih-bersih dari yang terkesan blank di kolom A nya
jadi setelah baris paste special sebelum select range
A2 diberi kode :
on error resume next

activecell.resize(100,1).specialcells(xlcelltypeconstants,xltextvalues).entirerow.delete
err.clear
on error goto 0

Script hasil record macro bisa disederhanakan.

Wassalam,
Kid.

2013/10/4 <archi.deco@yahoo.com>

> **
>
>
> hiii para guru excel,
>
> saya sangat senang bias ikut gabung group belajar exel ini,
>
> dengan group ini saya sangat terbantu dalam menyelesaikan masalah dalam
> excel.
>
> ada yang ingin saya tanyakan
>
>
>
> rumus macro yang saya buat
>
>
>
> Macro6 macro
>
>
>
> Range("B10:J18").Select
> Selection.Copy
> Sheets("Database").Select
> Range("A2").Select
> Selection.End(xlDown).Select
> ActiveCell.Offset(1, 0).Range("A1").Select
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
> SkipBlanks _
> :=False, Transpose:=False
> Range("A2").Select
>
> end sub
>
>
>
> permasalahan yang keluar,
>
> saat saya menginput data selantjutnya
>
> di sheet "database"; pada kolom A (tgl) terbaca filter blank
>
> sedangkan yang saya inginkan ada dibawah tgl terakhir yang ada data.
>
> apakah ada solusinya.
>
>
>
>
>
> thanks
>
>
>
>
>

Thu Oct 3, 2013 6:34 pm (PDT) . Posted by:

"KESI VIZZIANTI"

Selamat pagi
Semoga di akhir hari kerja ini semua dalam kondisi sehat
kali ini saya ada data yang lumayan banyak dan ingin merubah dalam bentuk
susunan lain.
Mohon pencerahan untuk kasus saya seperti terlampir

Salam
*Kesi*

Thu Oct 3, 2013 7:55 pm (PDT) . Posted by:

"Jan Raisin"

Hai Kesi..

semangat pagi.. ini slogannya siapa ya? lupa xixixixi ^_^

Jan bisanya kasih solusi pakai VBA aja ya.. solusi dengan formula atau cara
yang lain belum kepikiran..
script-nya ditulis di worksheet dengan event change

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rgHd As Range, rgFind As Range
Dim sKrit As String
Dim lTbl As Long, lData As Long, i As Long
Dim iCol As Integer

With Target
If .Count = 1 Then
If .Column = 10 And .Row > 3 Then
Set rgHd = Range("d2:h2")
lTbl = Cells(Rows.Count, 2).End(xlUp).Row
sKrit = .Value
Set rgFind = rgHd.Find(sKrit, MatchCase:=False)
If rgFind Is Nothing Then
MsgBox "Tidak ada proses tersebut", vbOKOnly + vbCritical,
"Proses Tidak Ditemukan"
Exit Sub
End If
iCol = rgFind.Column
For i = 4 To lTbl
If Cells(i, iCol).Value > 0 Then
lData = Cells(Rows.Count, 11).End(xlUp).Row + 1
Cells(lData, 11).Value = Cells(i, 2).Value
End If
Next i
End If
End If
End With
End Sub

solusi file terlampir.. silakan dicoba disesuaikan untuk kondisi
sebenarnya..
jangan lupa, diaktifkan dahulu macronya ya..

Salam,

-Miss Jan Raisin-

Pada 4 Oktober 2013 08.32, KESI VIZZIANTI <kesi.vizzianti@gmail.com>menulis:

> **
>
>
> Selamat pagi
> Semoga di akhir hari kerja ini semua dalam kondisi sehat
> kali ini saya ada data yang lumayan banyak dan ingin merubah dalam bentuk
> susunan lain.
> Mohon pencerahan untuk kasus saya seperti terlampir
>
> Salam
> *Kesi*
>

Thu Oct 3, 2013 9:06 pm (PDT) . Posted by:

"Bagus" bagus4bls

Dear Kesi;

Pakai kolom bantu boleh ya...
File terlampir

Wassalam

~ Bagus ~

----- Original Message -----
From: KESI VIZZIANTI
To: belajar-excel@yahoogroups.com
Sent: Friday, October 04, 2013 8:32 AM
Subject: [belajar-excel] Mengurutkan data selain transpore [1 Attachment]

Selamat pagi

Semoga di akhir hari kerja ini semua dalam kondisi sehat

kali ini saya ada data yang lumayan banyak dan ingin merubah dalam bentuk susunan lain.

Mohon pencerahan untuk kasus saya seperti terlampir

Salam

Kesi

Fri Oct 4, 2013 12:08 am (PDT) . Posted by:

"KESI VIZZIANTI"

Berhasil........thanks kang Bagus...jan Raisin thanks juga!!

Pada 4 Oktober 2013 04.07, Bagus <bagus@kingjim.co.id> menulis:

> **
>
>
> **
> Dear Kesi;
>
> Pakai kolom bantu boleh ya...
> File terlampir
>
>
> Wassalam
>
> ~ Bagus ~
>
>
>
> ----- Original Message -----
> *From:* KESI VIZZIANTI <kesi.vizzianti@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Friday, October 04, 2013 8:32 AM
> *Subject:* [belajar-excel] Mengurutkan data selain transpore [1
> Attachment]
>
>
>
> Selamat pagi
> Semoga di akhir hari kerja ini semua dalam kondisi sehat
> kali ini saya ada data yang lumayan banyak dan ingin merubah dalam bentuk
> susunan lain.
> Mohon pencerahan untuk kasus saya seperti terlampir
>
> Salam
> *Kesi*
>
>
>
>

--
*Kesi Vizzianti*
Email kesi.vizzianti@gmail.com
Phone 0812-77176028
Blog http://kesivizzianti.blogspot.com/
Twitter KesiVizzianti <https://twitter.com/KesiVizzianti>

Thu Oct 3, 2013 8:59 pm (PDT) . Posted by:

"Ahmad Habibillah" abiel_1108

Selamat Pagi,

mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin

dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,

dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.

dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.

berikut saya lampirkan file yang dimaksud.

atas perhatian dan bantuannya terima kasih

cheers,
Ahmad H

Thu Oct 3, 2013 10:36 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Pak De, boleh pinjam codenya ya ?
Coba copas macro Pak De Premor di bawah ini pada Sheet VBA Module1 (diambil dari kasus filtering sebelumnya),

Sub Masukin()
    Dim SrcData As Range, Rng As Range
    Dim cKode As New Collection
    Dim LRow As Long

    Application.ScreenUpdating = False
    Set SrcData = Sheets("rekap detail").Range("E2", Range("E2").End(xlDown))
    
    On Error Resume Next
    For Each Rng In SrcData
        cKode.Add Trim(Rng), CStr(Rng)
    Next
    
    For LRow = 1 To cKode.Count
        Set Rng = SrcData.CurrentRegion.Offset(1, 0).Resize(SrcData.Rows.Count, 6)
        SrcData.CurrentRegion.AutoFilter Field:=5, Criteria1:=cKode.Item(LRow)
        Rng.SpecialCells(xlCellTypeVisible).Copy Sheets(cKode.Item(LRow)).Range("A2")
        SrcData.CurrentRegion.AutoFilter
    Next
    Application.ScreenUpdating = True
End Sub

Warna merah adalah bagian yang disesuaikan.

Salam,
HK

________________________________
From: Ahmad Habibillah <abiel_1108@yahoo.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, 4 October 2013, 10:57
Subject: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet [1 Attachment]


 
Selamat Pagi,

mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan keberkahan dalam hidup. amin

dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya alami,

dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat membantu jika dapat di lakukan otomasi by vb or macro.

dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown nya.

berikut saya lampirkan file yang dimaksud.

atas perhatian dan bantuannya terima kasih

cheers,
Ahmad H
 

Thu Oct 3, 2013 11:20 pm (PDT) . Posted by:

"Jan Raisin"

hai Ahmad Habibillah,

Jan bantu solus tapi gak pakai vba ya.. cukup hanya menggunakan fitur Pivot
Table-nya excel
alasannya:
1. lebih mudah dibuatnya
2. lebih ringan saat proses dengan data yang sangat banyak

cara buatnya:
1. ubah data dalam sheet "rekap detail" menjadi tabel
>>> blok seluruh data
>>> riboon "Home"
>>> frame "Styles"
>>> klik "Format as Table"
>>> pilih jenis tabel yang diinginkan
[image: Gambar sisip 1]

Q: Kenapa kok harus diubah ke format tabel?
A: Agar data bisa lebih dinamis, setiap perubahan yang terjadi akan
dapat diolah Pivot Tabel dengan lebih mudah

2. Buat Pivot Tablenya:
>>> Blok seluruh tabel hasil dari langkah 1
>>> ribbon "Insert"
>>> frame "Tables"
>>> klik "Pivot Table"
>>> pilih "Insert Pivot Tabel"
[image: Gambar sisip 2]

>>> pada kotak "Table/Range" otomatis akan terisi berdasarkan tabel
yang telah dipilh
>>> kalo sudah ada lokasi penulisan data, beri tanda pada "Existing
Worksgeet", kalo belum ada, pilih "New Worksheet"
>>> pilih lokasi penulisan data, sebaiknya pojok kiri paling atas
>>> setelah itu klik "OK"
[image: Gambar sisip 3]

>>> drag & drop field berikut ke kotak Row Labels
>>> PO Number
>>> User Name
>>> City Name
>>> PR/PO Status
>>> Keterangan

>>> drag & drop field Vendor Name ke kotak Report Filter
>>> drag & drop field PO Number ke kotak Values
[image: Gambar sisip 4]

>>> klik kanan di area Pivot Tabel, pilih Pivot Table Options
[image: Gambar sisip 5]

>>> klik tab "Display"
>>> beri tanda centang pada kotak "Classic Pivot Table layout"
>>> klik "OK"
[image: Gambar sisip 6]

>>> klik salah satu area pada Pivot Table
>>> ribbon "Design"
>>> pada frame "Layout"
>>> klik "Sub Totals", lalu pilih "Do Not Show Sub Totals"
>>> klik "Grand Totals", lalu pilih "Off for Rows and Colums"
[image: Gambar sisip 7]

>>> klik tanda segitiga pada "Vendor Name"
>>> beri tanda centang pada kotak "Select Multiple Items"
>>> pilih vendor yang sesuai
>>> klik "OK"
[image: Gambar sisip 8]

>>> copas Pivot Table tersebut ke sheet yang lain, dan sesuaikan filter
yang ada
>>> hide kolom yang tidak diperlukan

Jika ada perubahan data pada sheet "rekap detail", cukup klik kanan di
Pivot Table yang pertama lalu pilih Refresh, maka seluruh data pada Pivot
Table yang lain akan terupdate secara otomatis.

Semoga dongeng pengantar tidur siang ini bermanfaat untuk Be-Exceller..

oia, kalo mau belajar lebih lengkap tentang Pivot Table, silakan buka
blognya mr Kid, pembahasannya sampai saat ini tentang Pivot Table sudah
sampai seri ke 3,
seri pertamanya bisa dilihat pada link berikut
ini<http://excel-mr-kid.blogspot.com/2013/04/pivot-table-1-kenalan.html>

File terlampir

Salam,

-Miss Jan Raisin-

Pada 4 Oktober 2013 10.57, Ahmad Habibillah <abiel_1108@yahoo.com> menulis:

> **
>
>
> Selamat Pagi,
>
> mudah-mudah an semua anggota di belajar-excel ini selalu mendapatkan
> keberkahan dalam hidup. amin
>
> dalam hal ini saya mau minta mohon bantuannya untuk permasalahan yang saya
> alami,
>
> dikarenakan olah data ini dilakukan 2 hari sekali maka akan sangat
> membantu jika dapat di lakukan otomasi by vb or macro.
>
> dalam 1 file excel terdapat sheet file detail dan beberapa sheet breakdown
> nya.
>
> berikut saya lampirkan file yang dimaksud.
>
> atas perhatian dan bantuannya terima kasih
>
> cheers,
> Ahmad H
>
>

Thu Oct 3, 2013 9:13 pm (PDT) . Posted by:

"Tjahya Hartono" tjahyahartono

Salam Be exceler's

Saya kembali bertanya, kali ini mengenai keinginan saya untuk memindahkan data saya Sheet "Daftar gaji" untuk membuat slip gaji yang ada pada sheet "Slip gaji". Berulang kali saya memindahkan secara manual, bisakah saya memindahkan secara otomatis, dan apabila ada penambahan bulan kerja, apakah bisa ikut terupdate pula. Mohon dibantu ya para master Excel dan teman2 be Excelers

Hormat saya,

Tjahya Hartono

Thu Oct 3, 2013 9:25 pm (PDT) . Posted by:

"marone oke" maroneoke940

Dear  DWINT RUSWANTO....

terima kasih atas solusinya...tapi sepertinya masih ada kendala, antara lain :

- jika data sama, maka pada tampilan user form tertulis kata "DATA SAMA" lalu ditampilkan seluruh data yang sama

(yg diblok kuning) pada user form

- jika  klik tombol LANJUT, maka input data dibolehkan dan tampilan normal kembali

- jika  klik tombol BATAL. maka input data tidak boleh

begitu clue nya...mohon maaf sudah merepotkan, karna saya masih belajar VB
terima kasih atas bantuannya

best regard

________________________________
Dari: dwint ruswanto <dwint.ruswanto@yahoo.co.id>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Rabu, 2 Oktober 2013 15:02
Judul: Bls: [belajar-excel] warning data sama dan tampilkan data sama sebelumnya [1 Attachment]


 
Hai Marone,

Sekedar pendapat pribadi saya, pada kasus ini hanya diperlukan 2 buah tombol saja yaitu Batal dan Lanjut, karena pada saat ada nilai yang sama secara otomatis akan ditampilkan nilai-nilai yang sama, sehingga user hanya perlu untuk melanjutkan atau membatalkan inputan data.

scriptnya sbb:

ditulis pada sheet1:
====================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rgNilai As Range, celNilai As Range
Dim lRow As Long
Dim iCount As Integer

With Target
    If .Count = 1 Then
        If .Column = 3 And .Row > 2 Then
            lRow = Cells(Rows.Count,

3).End(xlUp).Row
            Set rgNilai = Range(Cells(3, 3), Cells(lRow, 3))
            iCount = Application.WorksheetFunction.CountIf(rgNilai, .Value)
            If iCount > 1 Then
                For Each celNilai In rgNilai
                    If celNilai.Value = .Value Then
                        Range(celNilai.Offset(, -1), celNilai).Font.Size =
15
                        Range(celNilai.Offset(, -1), celNilai).Font.Bold = True
                        Range(celNilai.Offset(, -1), celNilai).Interior.Color = vbYellow
                    End If
                Next celNilai
                UserForm1.Show
            End If
        End If
    End If
End With
End Sub

ditulis pada user
form:
=======================
Private Sub cmdLanjut_Click()
NormalLagi
Cells(lRow + 1, 2).Select
Unload Me
End Sub

Private Sub cmdStop_Click()

NormalLagi
Range(Cells(lRow, 2), Cells(lRow, 3)).ClearContents
Cells(lRow, 2).Select
Unload Me
End Sub

ditulis pada sebuah modul:
==========================
Public lRow As Long

Sub NormalLagi()
Dim rgNilai As Range, celNilai As Range

Application.ScreenUpdating = False
lRow = Cells(Rows.Count, 3).End(xlUp).Row
Set rgNilai = Range(Cells(3, 3), Cells(lRow, 3))
For Each celNilai In rgNilai

    If celNilai.Font.Bold = True Then
        Range(celNilai.Offset(, -1), celNilai).Font.Bold = False
        Range(celNilai.Offset(, -1), celNilai).Font.Size =
11
        Range(celNilai.Offset(, -1), celNilai).Interior.Color = vbWhite
    End If
Next celNilai
Application.ScreenUpdating = True
End Sub

semoga sesuai dengan harapan.

Salam,

-dwint-

________________________________
Dari: marone oke <maroneoke940@yahoo.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Rabu, 2 Oktober 2013 11:28
Judul: [belajar-excel] warning data sama dan tampilkan data sama sebelumnya [1 Attachment]


 
Dear pakar Excel...

tolong saya dibantu untuk membuat system untuk bisa memberi warning jika data sama dan menampilkan data sama

sebelumnya... (file terlampir)

terima kasih sebelumnya...

best regard

Fri Oct 4, 2013 12:07 am (PDT) . Posted by:

"neza ibaneza" nezaibaneza



Dear all
B-excel

Boleh tau fungsi dari code
On error resume next, apa ya?

Salam
Neza
Dikirim dari Yahoo! Mail pada Android

GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

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

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

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

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

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

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)