Jumat, 24 Juni 2011

]] XL-mania [[ Digest Number 2191

Microsoft Excel Community

Messages In This Digest (7 Messages)

Messages

1a.

Bls: ]] XL-mania [[ Bagaimana menampilkan hasil pivot ke file lain?

Posted by: "Juwono Radyanto edi" juwono.re2002@yahoo.com   juwono.re2002

Fri Jun 24, 2011 5:04 am (PDT)



Dear Mr Kawaguchi,

Saya juga pendatang baru, mangkanya saya reply ke Mr saja. Mungkin formula ini yang bapak maksud.
Yang lainnya tinggal copy rumusnya, dan menyesuaikan dengan range nya.
Semoga berguna

Thx
JRE

________________________________
Dari: kawaguchi eki <novenrichard@gmail.com>
Kepada: XL-mania@yahoogroups.com
Dikirim: Kamis, 23 Juni 2011 13:32
Judul: ]] XL-mania [[ Bagaimana menampilkan hasil pivot ke file lain?

 
Dear rekan2 XL Mania...
saya pendatang baru di milis ini dan salam kenal buat semuanya..:)
saya punya 2 file excel, file 20110616.xls (hasil pivot) dan file inventory.xls (file terlampir)
Ingin menanyaklan, bagaimana formula yang benar agar isi dari sel "Total" di file 20110616 ingin saya input ke dalam file inventory.xls ?
saya sudah coba pake vlookup hasilnya selalu #N/A...apakah hasil dari pivot tidak bisa di referensikan ?
sebagai gambaran ilustrasinya saya sertakan juga (inv.jpg)
Mohon pencerahannya ya teman2...:)
Terima kasih...

2a.

Re: Mengelompokkan Sheet Berdasakan Salah Satu Kolom

Posted by: "STDEV(i)" setiyowati.devi@gmail.com   siti_vi

Fri Jun 24, 2011 5:05 am (PDT)



Sub Du_Sam_Ting()
'------------------------------
' siti Vi
' bluewater, 23 jun 2011
'------------------------------
Dim UnxFood(), AllData(), ArrShtNm()
Dim CurRnge As Range, NewRnge As Range, NewHead As Range
Dim NewBook As Workbook, CurBook As Workbook
Dim ShtInBook As Integer, st As Integer
Dim i As Long, n As Long, r As Long
Dim FSO As Object, FOL As Object, F As Object
Dim PathDirNm As String

PathDirNm = ThisWorkbook.Path
On Error GoTo akhir
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FOL = FSO.GetFolder(PathDirNm).Files

With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
ShtInBook = .SheetsInNewWorkbook

For Each F In FOL
If Left(F.Name, 2) = "20" Then
st = st + 1
ReDim Preserve ArrShtNm(1 To st)
ArrShtNm(st) = Left(F.Name, InStr(1, F.Name, ".") - 1)
Workbooks.Open ThisWorkbook.Path & "\" & F.Name
Set CurRnge = Workbooks(F.Name).Sheets(1).Cells(1).CurrentRegion
If st = 1 Then
CurRnge.Resize(1, CurRnge.Columns.Count).Copy _
ThisWorkbook.Sheets(1).Cells(50, 1)
Set NewHead = ThisWorkbook.Sheets(1).Cells(50, 1). _
Resize(1, CurRnge.Columns.Count)
End If
For i = 2 To CurRnge.Rows.Count
CurRnge.Select
n = n + 1
ReDim Preserve UnxFood(1 To n)
UnxFood(n) = CurRnge(i, 2)
ReDim Preserve AllData(1 To CurRnge.Columns.Count + 1, 1 To n)
AllData(1, n) = CurRnge(i, 1)
AllData(2, n) = CurRnge(i, 2)
AllData(3, n) = Left(F.Name, InStr(1, F.Name, ".") - 1)
Next i
Workbooks(F.Name).Close SaveChanges:=False
End If
Next

akhir:

UnxFood = LOUV(UnxFood)
.SheetsInNewWorkbook = UBound(ArrShtNm)
For i = LBound(UnxFood) To UBound(UnxFood)
Set NewBook = Workbooks.Add
For st = 1 To UBound(ArrShtNm)
NewBook.Sheets(st).Name = ArrShtNm(st)
NewHead.Copy NewBook.Sheets(st).Cells(1)
Set NewRnge = NewBook.Sheets(st).Cells(2, 1)
r = 0
For n = LBound(AllData, 2) To UBound(AllData, 2)
If AllData(2, n) = UnxFood(i) Then
If AllData(3, n) = ArrShtNm(st) Then
r = r + 1
NewRnge(r, 1) = AllData(1, n)
NewRnge(r, 2) = AllData(2, n)
End If
End If
Next n
Next st
NewBook.Close SaveChanges:=True, _
Filename:=ThisWorkbook.Path & "\" & UnxFood(i)
Next i

ThisWorkbook.Sheets(1).Range("A50:B50").Clear
Application.SheetsInNewWorkbook = ShtInBook

End Sub
'-----------------------------------

setelah selesai menjalankan makro, untuk mengetahui hasilnya buka folder nya
apakah ada penambahan file baru, dan apakah isinya sesuai ??

2011/6/22 akbar arsyad <akbar_arsyad@yahoo.co.id>

>
>
> Dear All,
>
> Saya mempunyai permasalahan, saya punya beberapa file, yaitu file tahun
> 2003.xls, 2004.xls, dan 2005.xls
> Masing-masing berisi satu sheet, contohnya sbb:
>
> -2003.xls
> Kolom A Kolom B
> Binatang Makanannya <<< Header
> Kucing Ikan
> Anjing Ikan
> Kelinci Wortel
> Kuda Rumput
> Sapi Rumput
>
> -2004.xls
> Kolom A Kolom B
> Binatang Makanannya <<< Header
> Kucing Ikan
> Anjing Daging
> Kelinci Wortel
> Kuda Wortel
> Sapi Rumput
>
> -2005.xls
> Kolom A Kolom B
> Binatang Makanannya <<< Header
> Kucing Daging
> Anjing Tulang
> Kelinci Rumput
> Kuda Rumput
> Sapi Jagung
>
> Saya ingin menggenerate file2 yang judulnya berdasarkan makanannya, jadi
> ada file Ikan.xls, wortel.wls, rumput.xls, daging.xls, tulang.xls, dan
> jagung.xls.
> Masing2 file terdiri dari tiga sheet, yaitu 2003, 2004, dan 2005. Isin
> rownya hanya header dan row yang pada kolom makanan sesuai dengan nama
> filenya.
>
>
> Terima Kasih,
>
> Akbar Jamaluddin Arsyad
>
3a.

Re: Bagaimana menampilkan hasil pivot ke file lain?

Posted by: "Partroom 1" tpmpc1@chemi-con.co.id

Fri Jun 24, 2011 5:05 am (PDT)



Dear Kawaguchi San

Saya mencoba membantu salah satu dari sekian banyak solusi.
Saya menggunakan rumus SUMIF bukan VLOOKUP, tapi total nya saya cek sama dengan grand total pada 20110616_Inbound.

=SUMIF([20110616_Inbound.xls]Sheet2!$B:$B,C5&" Total",[20110616_Inbound.xls]Sheet2!$G:$G)

Semoga bermanfaat.

Dalis.

----- Original Message -----
From: kawaguchi eki
To: XL-mania@yahoogroups.com
Sent: Thursday, June 23, 2011 12:32 PM
Subject: ]] XL-mania [[ Bagaimana menampilkan hasil pivot ke file lain?

Dear rekan2 XL Mania...
saya pendatang baru di milis ini dan salam kenal buat semuanya..:)
saya punya 2 file excel, file 20110616.xls (hasil pivot) dan file inventory.xls (file terlampir)
Ingin menanyaklan, bagaimana formula yang benar agar isi dari sel "Total" di file 20110616 ingin saya input ke dalam file inventory.xls ?
saya sudah coba pake vlookup hasilnya selalu #N/A...apakah hasil dari pivot tidak bisa di referensikan ?
sebagai gambaran ilustrasinya saya sertakan juga (inv.jpg)
Mohon pencerahannya ya teman2...:)
Terima kasih...

4.

jika data error

Posted by: "Ardi Tussiam" ardi.tussiam@live.com

Fri Jun 24, 2011 5:06 am (PDT)





formula apakah yang paling tepat untuk mengatasi masalah saya, jika ditemukan N/A dalam data, karena saya sudah menggunakan IFERROR, namun hasil yang keluar seperti hasil terlampir.

Please help me para Master Excel.
5.

Membuat footer dinamis tiap halaman kedua dan seterusnya berbeda

Posted by: "angundi" angundi@yahoo.co.id   angundi

Fri Jun 24, 2011 5:07 am (PDT)



Membuat footer dinamis tiap halaman kedua dan seterusnya berbeda

Halo para suhu milis XL-mania yg budiman, saya mau tanya :
Saya punya dokumen sampai sebanyak 25 halaman atau bisa lebih yang ingin dibuat mail merge dengan database dari excel, dimana :
- pada akhir halaman pertama saya ingin menampilkan footer dengan cara mengambil satu kata dari halaman ke-2 pada alinea pertama
- pada akhir halaman kedua saya ingin menampilkan footer dengan cara mengambil satu kata dari halaman ke-3 pada alinea pertama
- pada akhir halaman ketiga saya ingin menampilkan footer dengan cara mengambil satu kata dari halaman ke-4 pada alinea pertama
- pada akhir halaman keempat .. dst …

dimana tiap alinea halaman kedua dst bersifat dinamis, artinya mungkin kata pada alinea pertama tersebut mungkin bergeser karena kalimat dalam dokumen tersebut satu dokumen dengan dokumen lainnya berbeda. Intinya saya hanya ingin membuat/menampilkan footer dengan cara mengambil satu kata dari halaman berikutnya. Sementara pada halaman terakhir tidak perlu ada footer, dengan menggunakan macro vba excel / word.

Untuk lebih jelas saya ilustrasian sebagai berikut :

Pada Halaman Pertama Alinea terakhir berisi :
………….
"-----Barang tersebut akan ditawarkan, …"

Saya ingin menampilkan footer pada akhir halaman pertama sebagai berikut :

"Peserta …/Lembar Kedua" (tanpa tanda kutip)

Pada Halaman kedua Alinea pertama adalah sebagai berikut :

-----Peserta dapat mengajukan penawaran …..

Saya ingin menampilkan footer pada akhir halaman kedua sebagai berikut :

Pembeli …/Lembar Ketiga (tanpa tanda kutip)

Halaman ketiga
Alinea pertama untuk halaman ketiga adalah sebagai berikut :

------Pembeli tidak diperkenankan

Halaman keempat dst…
Saya ingin menampilkan footer pada akhir halaman keempat dst mengambil satu kata dari alinea halaman berikutnya :

Tolong pencerahannya.

Thank's.

Angundi

6a.

Re: grafik sayur dan buah

Posted by: "Shanie Gumilang" shanie.gumilang@daya-adira.com

Fri Jun 24, 2011 5:08 am (PDT)



coba jawab ya..
pake 2 axis..
untuk yang secondary axisnya type chart nya coloum juga
tp si setting
format data series nya --> option overlap dan gap width nya di ubah

semoga membantu
Regards,
Shanie
______________________________

PT. Daya Adira Mustika
Jl. Raya Cibeureum No. 26
Bandung
Phone : (022) 6051033 ext.114
Fax : (022) 6037495
Email : shanie.gumilang@daya-adira.com


Before printing, think about the Environment! If necessary, please use Recycled Paper!

----- Original Message -----
From: Give Me Your Smile ...:)
To: XL-mania@yahoogroups.com
Cc: sudah@daya-adira.com ; beli:mengapa boss benci chart anda@daya-adira.com ; ?:)@daya-adira.com
Sent: Wednesday, June 22, 2011 1:02 PM
Subject: ]] XL-mania [[ grafik sayur dan buah

dear all para suhu,
mohon pencerahannya ...

saya ingin membuat grafik perpaduan antara grafik column dan stack bar
seperti grafik attachment tetapi untuk yg sayur ada di sebelah kanan dari grafik buah tidak didalam buah

mohon pencerahhnya para suhu excel

tks


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

---
This message was processed by Kaspersky Mail Gateway 5.6.28/RELEASE running at host smtp-in.daya-adira.com
Visit our web-site: <http://www.kaspersky.com>, <http://www.viruslist.com>

----------

---
This message was processed by Kaspersky Mail Gateway 5.6.28/RELEASE running at host smtp.daya-adira.com
---
IMPORTANT ---The contents of this email and its attachments are intended only for the individual or entity addressed above and may contain confidential and/or privileged material. Any unauthorized use of the contents is expressly prohibited. If you receive this email in error, please contact us, then delete the email. Please note that any views or opinions presented in this email are solely those of the author and do not necessarily represent those of the company and should not be seen as forming a legally binding contract without express written confirmation. Finally, the recipient should check this email and any attachments for the presence of viruses. PT Daya Adira Mustika accepts no liability for any damage caused by any virus transmitted by this email.
7a.

Macro untuk perhitungan uang makan

Posted by: "Ahmad Only" ahmad_twofive@yahoo.com   ahmad_twofive

Fri Jun 24, 2011 5:08 am (PDT)




Dear Master Xl-mania,

>Saya membuat perhitungan untuk perhitungan uang makan dll dengan menggunakan
>formula, tetapi saya ingin mencoba dengan macro atau vba karena saat ini
>saya baru belajar jadi belum pernah berhasil, mohon pencerahannya.  Atas
>perhatiannya saya ucapkan terima kasih.

>Best regards,Ahmad
>

Recent Activity
Visit Your Group
Yahoo! Groups

Small Business Group

Improve your business

by community exchange

Yahoo! Groups

Parenting Zone

Resources and tips

for parents

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| tiap tanggal gajian, order buku "mengapa boss benci chart anda    |
| membludak :) ayo2 pesan yang belum punya....                      |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Tidak ada komentar:

Posting Komentar