Kamis, 21 Juli 2011

]] XL-mania [[ Digest Number 2212

Messages In This Digest (15 Messages)

1a.
Re: print dokumen excel From: erik pratama
2a.
Bls: ]] XL-mania [[ Dropdown dipakaikan lookup dulu From: Tommy K
3a.
Re: penjumlahan dalam hlookup (menggunakan kriteria tertentu) From: STDEV(i)
4.
Belajar membuat data base From: Sri Yansen Tanjung
5a.
Re: Menambahkan Makro Cancel From: Saleng, Muhamad
6a.
Re: Cetak Form From: STDEV(i)
6b.
Re: Cetak Form From: STDEV(i)
7a.
Re: Split data per sheet From: STDEV(i)
7b.
Re: Split data per sheet From: aurino djamaris
8a.
Re: Urutan Angka From: STDEV(i)
8b.
Re: Urutan Angka From: Mr. Kid
9.
Bls: ]] XL-mania [[ Urutan Angka From: ghozi alkatiri
10a.
Re: Overtime calculation From: Mr. Kid
11a.
Re: Menyisipkan koma di depan 2 angka paling belakang From: STDEV(i)
11b.
Re: Menyisipkan koma di depan 2 angka paling belakang From: rivo jacob

Messages

1a.

Re: print dokumen excel

Posted by: "erik pratama" erik_pratama23@yahoo.com   erik_pratama23

Wed Jul 20, 2011 5:04 pm (PDT)



Dear
rekan Excel

Kalo seperti ini biasanya saya pakai tombol pada menu View - Toolbars - control toolbox - pilih Command botton, tapi sebelumnya record macro dulu sesuai keinginan misal privie atau print, selanjutnya klik kanan pada tombol comman button pilih Asign macro yang telah dibuat tadi

semoga membantu
Erwin

________________________________
From: imam nahrowi <nahraw_1@yahoo.com>
To: XL-mania@yahoogroups.com
Sent: Thursday, July 14, 2011 9:52 AM
Subject: ]] XL-mania [[ print dokumen excel

 
minta bantuannya rekan rekan xl mania, bagaimana cara mencetak dokumen tersebut secara langsung bukan satu persatu...tq atas bantuannya
2a.

Bls: ]] XL-mania [[ Dropdown dipakaikan lookup dulu

Posted by: "Tommy K" tommy_k58@yahoo.com   tommy_k58

Wed Jul 20, 2011 5:04 pm (PDT)



Dear Bambang S
 
Mungkin File terlampir seperti ini yang dikehendaki.
 
Tommy
 

Dari: "bsatyawan@qbe.co.id" <bsatyawan@qbe.co.id>
Kepada: XL-mania@yahoogroups.com
Dikirim: Rabu, 13 Juli 2011 15:45
Judul: ]] XL-mania [[ Dropdown dipakaikan lookup dulu

 

Para pakar XL Mania,

Saya sebenarnya tidak tau apakah harus menggunakan Vlookup atau ada cara lain.

Ada 3 List Data :
1. Merk Mobil
2. Type Mobil
3. Detail Mobil.

Yang ingin saya tanyakan saat memilih Merk Mobil melalui Dropdown, Contoh : TOYOTA, maka data dropdown dalam Type mobil yang tampil hanya tipe-tipe mobil Toyota.
Setelah saya memilih Type Mobil, contoh AVANZA, maka dropdown pada Detail Kendaraan hanya akan tampil jenis2 dari mobil AVANZA.

Jadi tidak "Type Mobil" dari semua "Merk Mobil" dan semua "Detail Mobil" tampil di dropdown sehingga dropdown tidak terlalu panjang/tinggi.

Atas bantuan dan sharing-nya saya mengucapkan banyak terima kasih.

Salam

Bambang S

__________________________________________________________
IMPORTANT NOTICE : The information in this email is confidential and may also be privileged.
If you are not the intended recipient, any use or dissemination of the information and any disclosure or copying of this email is unauthorised and strictly prohibited.
If you have received this email in error, please promptly inform us by reply email or telephone. You should also delete this email and destroy any hard copies produced.

__________________________________________________________

3a.

Re: penjumlahan dalam hlookup (menggunakan kriteria tertentu)

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

Wed Jul 20, 2011 5:05 pm (PDT)



jika anda pernah mendengar adanya fungsi SUMIF
tetapi BELUM pernah mempraktekkan, maka sekarang ini lah waktunya...
(dijamin tak kan lupa seumur hidup: belajar satu hal kecil yg sedang benar2
diperlukan)

[image: SUMIF (smurf).PNG]

=SUMIF($A$2:$A$15,*G2*,$D$2:$D$15)

SUMIF adalah fungsi untuk menjumlah, bersyarat, dgn satu kriteria

Range (items yg akan dievaluasi) *A2:A5*
KRITERIA * G2*
Range yg dijumlah *D2:D15*
*
*
*[image: sumif sheet.GIF]
*
*
*
*
*
~ siti

2011/7/17 Sunarto Heni <naruto51008@gmail.com>
>
> Dear pakar XL semua..
> Disini saya (newbie) mohon bantuan untuk kasus saya ini.
> bagaimana cara untuk menjumlahan angka dalam tabel,tetapi menggunakan
kriteria tertentu
> file excel saya lampirkan
> terimakasih
4.

Belajar membuat data base

Posted by: "Sri Yansen Tanjung" sri.yansen@gmail.com   syansen

Wed Jul 20, 2011 5:05 pm (PDT)



Selamat Sore XL-Mania,

Saya dapat tugas dari kantor untuk membuat data base harga material.
Setiap material tersebut jenisnya bisa terdiri dari beberapa buah. Salah
satu contoh misalnya: untuk Monitor Regulator, sizenya terdiri dari:
2,3,4,6,8,10 dst, class/ratingnya terdiri dari 150,300,600,900 dst dan
materialnya bisa terdiri dari Carbon Steel, Stainless Steel 304, Stainless
Steel 316 dlsbg. Mohon bantuannya bagaimana caranya agar membuat data
basenya?

terlampir data yang sudah saya buat..tetapi saya ada masalah dalam
mengisikan data material dan juga vendornya. Karena jenis material dan
vendor ini lebih dari satu.

wassalam,

--
*Sri Yansen*
*Phone: +62 21 2904 6471*
*mobile: +62 811 938974*
*Taman Serua RT03/RW08*
*Blok D3/12 A*
*Serua, Bojongsari,Depok*
*Jawa Barat 16517*
5a.

Re: Menambahkan Makro Cancel

Posted by: "Saleng, Muhamad" muhamad_saleng@fmi.com

Wed Jul 20, 2011 5:06 pm (PDT)



Semoga bisa membantu:

Sub Refresh()
Dim respon
Respon =msgbox("Apakah anda yakin ingin menghapus?",vbquestion+vbyesno,"Konfirmasi Hapus")
If respon = vbyes then

Hapus
Range("B3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Goto Reference:="range"
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B6").Select
Application.CutCopyMode = False
Sheets("PPPH").Select
ActiveWindow.SelectedSheets.Delete
exit sub
Else
Msgbox "Anda batal menghapus",vbexclamation,"Batal Hapus"
Exit sub
end if
End Sub

Sub Hapus()
Range("B6:B64").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.EntireRow.Delete
End Sub

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of Wandi Wandi
Sent: Wednesday, July 13, 2011 5:12 PM
To: xl-mania@yahoogroups.com
Cc: Wandi
Subject: ]] XL-mania [[ Menambahkan Makro Cancel

Dear Master
Saya ingin menambahkan msgbox untuk data makro dibawah
Bila click cancel tidak melakukan apa2 dan untuk OK (sudah berjalan dgn baik)

Filenya tidak bisa saya lampirkan krn 2 mega lebih.
Tks

Sub Refresh()
Hapus
Range("B3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.Goto Reference:="range"
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B6").Select
Application.CutCopyMode = False
Sheets("PPPH").Select
ActiveWindow.SelectedSheets.Delete

End Sub

Sub Hapus()
Range("B6:B64").Select
Selection.SpecialCells(xlCellTypeFormulas, 16).Select
Selection.EntireRow.Delete
End Sub

Terima kasih

[http://us.i1.yimg.com/us.yimg.com/i/mesg/tsmileys2/18.gif]wandi

[cid:image001.jpg@01CC4783.B93D4530]

6a.

Re: Cetak Form

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

Wed Jul 20, 2011 5:07 pm (PDT)



perbaikan makro, sedikitts ..
(dong yg dikirim kemarin belum diberi command: langsung cetak)

[image: makro klik cetak SJ.GIF]

On Tue, Jul 19, 2011 at 9:32 PM, STDEV(i) <setiyowati.devi@gmail.com> wrote:

> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
> ' siti Vi // 19 Juli 2011 // XL-mania msg#18855
> '----------------------------------------------
> Dim Daftar As Range, Bantu As Range, SJ As String
> Dim r As Long, i As Long
> Set Daftar = Range("B4").CurrentRegion
> Set Bantu = Daftar.Offset(0, Daftar.Columns.Count - 1).Resize(, 1)
> If Target.Count = 1 Then
> If Target.Column = 3 And Target.Row > 4 Then
> r = 1: SJ = Target.Value
> With Sheets("Form Surat Jalan")
> .Range("C12").CurrentRegion.Offset(1, 0).ClearContents
> .Range("E6") = Target(1, 0)
> .Range("E7") = Target(1, 2)
> .Range("D10") = Target(1, 1)
> Do
> .Range("C13").Cells(r, 1) = Target(r, 3)
> .Range("C13").Cells(r, 2) = Target(r, 4)
> r = r + 1
> Loop While Target(r, 5) = SJ
> .Activate
> End With
> End If
> End If
> End Sub
>
>
>
>
> 2011/7/19 Endut Karim <endutkarim@yahoo.co.id>
> >
> > Dear XL-Mania's,
> > Mohon bantuan
> > Saya punya Daftar Surat Jalan dan Form Surat Jalan,
> > yang diinginkan apabila No. Surat Jalan pada Daftar Surat Jalan *diKlik
> *
> > maka Form Jalan akan tercetak di layar maupun ke printer.
> > Terlampir Daftar Surat Jalan dan Formnya
> > Thnaks bantuannya
> > Regard
> > Effendy Karim
>
6b.

Re: Cetak Form

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

Wed Jul 20, 2011 5:08 pm (PDT)



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
' siti Vi // 19 Juli 2011 // XL-mania msg#18855
'----------------------------------------------
Dim Daftar As Range, Bantu As Range, SJ As String
Dim r As Long, i As Long
Set Daftar = Range("B4").CurrentRegion
Set Bantu = Daftar.Offset(0, Daftar.Columns.Count - 1).Resize(, 1)
If Target.Count = 1 Then
If Target.Column = 3 And Target.Row > 4 Then
r = 1: SJ = Target.Value
With Sheets("Form Surat Jalan")
.Range("C12").CurrentRegion.Offset(1, 0).ClearContents
.Range("E6") = Target(1, 0)
.Range("E7") = Target(1, 2)
.Range("D10") = Target(1, 1)
Do
.Range("C13").Cells(r, 1) = Target(r, 3)
.Range("C13").Cells(r, 2) = Target(r, 4)
r = r + 1
Loop While Target(r, 5) = SJ
.Activate
End With
End If
End If
End Sub

2011/7/19 Endut Karim <endutkarim@yahoo.co.id>
>
> Dear XL-Mania's,
> Mohon bantuan
> Saya punya Daftar Surat Jalan dan Form Surat Jalan,
> yang diinginkan apabila No. Surat Jalan pada Daftar Surat Jalan *diKlik *
> maka Form Jalan akan tercetak di layar maupun ke printer.
> Terlampir Daftar Surat Jalan dan Formnya
> Thnaks bantuannya
> Regard
> Effendy Karim
7a.

Re: Split data per sheet

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

Wed Jul 20, 2011 5:07 pm (PDT)



wah... yg seperti ini kan sudah sering ..

dan kalau semangatnya belajar, mestinya requestnya bukan dengan kata* *
*" *Mohon bantuannya untuk dapat *membuat *data secara otomatis*"* dgn
sekali ceklik" ... ??

Penutup suratnya jadi tidak senada dengan pembukanya: "ditunggu solusinya"
Seharusnya : "ditunggu kiriman pesanannya "

Sebetulnya, milis bukan tempat menyuruh dibuatkan program gratis, tetapi
tempat belajar.., maaf mungkin saya terlalu terus terang....

Terlampir contoh yg sama /kasus agak lama: th 2008

2011/7/19 Yayat Hidayat <yayath_cs@yahoo.co.id>

>
> Dear para pakar-pakar excel yg baik,
>
> Mohon bantuannya* untuk dapat membuat data secara otomatis dengan
> menggunakan macro (tinggal klik)*. Data tersebut dipisahkan per sheet
> sesuai dengan data yg ada di sheet Master berdasarkan nama departemen yang
> ada (file terlampir).
> Contoh data hasil split ada di sheet "HR". Terdapat penambahan nama
> Departemen pada setiap judul di bagian atas setiap sheetnya.
>
> *Ditunggu solusinya...*
> Terima kasih atas bantuannya...
>
>
7b.

Re: Split data per sheet

Posted by: "aurino djamaris" aurinoradjamaris@yahoo.com   aurinoradjamaris

Wed Jul 20, 2011 5:08 pm (PDT)



Dear Yayat Hidayat

Saran saya sebaiknya data sort per departemen dan di subtotal saja jadi tidak perlu dibuat dengan macro  karena setiap saat kita bisa mengatur pencetakan dengan menggunakan filter subtotal. 
1. Langkahnya pertama kita pindahkan Kolom departemen ke kiri (A)
2. Sort berdasarkan departemen
3. Kemudian Gunakan subtotal
4. Lalu format as table

dan atur page layout dengan Row at the topnya 7 baris dan print areanya yang dibawahnya

sehingga kalau anda perlu membuat laporan untuk satu, dua atau bahkan beberapa departemen tidak perlu menggabungkan lagi.

 On Tue, 7/19/11, Yayat Hidayat <yayath_cs@yahoo.co.id> wrote:

From: Yayat Hidayat <yayath_cs@yahoo.co.id>
Subject: ]] XL-mania [[ Split data per sheet
To: XL-mania@yahoogroups.com
Date: Tuesday, July 19, 2011, 6:50 PM

 

Dear para pakar-pakar excel yg baik,
Mohon bantuannya untuk dapat membuat data secara otomatis dengan menggunakan macro (tinggal klik). Data tersebut dipisahkan per sheet sesuai dengan data yg ada di sheet
Master berdasarkan nama departemen yang ada (file terlampir).Contoh data hasil split ada di sheet "HR". Terdapat penambahan nama Departemen pada setiap judul di bagian atas setiap sheetnya.
Ditunggu solusinya...
Terima kasih atas bantuannya...

8a.

Re: Urutan Angka

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

Wed Jul 20, 2011 5:08 pm (PDT)



=REPLACE(C3,3,2,TEXT(MID(C3,3,2)+1,"00"))

bisa juga

=LEFT(D3,2)&RIGHT("00"&MID(D3,3,2)+1,2)&RIGHT(D3,2)

dan masih banyak cara lagi

Karena contoh hanya satu, maka pemberi rumus bisa salah
misalnya tiba tiba anda punya data *EGP001LOCH*
( sebelum angka - 3 karakter, angka 3 digit.)

2011/7/19 Dani <riodan77@gmail.com>
>
> Mohon pencerahan untuk pengurutan angka diantara huruf berikut:
> Asal Kata: MG01JN
> Hasil Yang Diinginkan: MG01JN
> MG02JN
> MG03JN
> dst
> Angka akan berurutan ketika ditarik kebawah. File contoh terlampir.
> Sebelumnya saya ucapkan terima kasih.
> Dani
8b.

Re: Urutan Angka

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Jul 20, 2011 5:08 pm (PDT)



Coba :
=REPLACE($A$3,3,2,TEXT(ROW(1:1),"00"))

Kid.

2011/7/19 Dani <riodan77@gmail.com>

> **
>
>
> Dear Master� Excel,
>
>
> Mohon pencerahan untuk pengurutan angka diantara huruf berikut:
>
> Asal Kata: MG01JN
>
> Hasil Yang Diinginkan: MG01JN
> MG02JN
> MG03JN
> dst
>
> Angka akan berurutan ketika ditarik kebawah. File contoh terlampir.
>
> Sebelumnya saya ucapkan terima kasih.
>
>
> Dani
>
>
>
9.

Bls: ]] XL-mania [[ Urutan Angka

Posted by: "ghozi alkatiri" ghozialkatiri@yahoo.co.id   ghozialkatiri

Wed Jul 20, 2011 5:08 pm (PDT)



gunakan formula
=REPLACE(A$3;3;2;TEXT(ROW(1:1);"00"))
copy ke bawah dst
hasilanya akan seperti yang diinginkan

wassalam

Ghozi Alkatiri

--- Pada Sel, 19/7/11, Dani <riodan77@gmail.com> menulis:

Dari: Dani <riodan77@gmail.com>
Judul: ]] XL-mania [[ Urutan Angka
Kepada: XL-mania@yahoogroups.com
Tanggal: Selasa, 19 Juli, 2011, 12:13 PM

 

Dear Master² Excel,
 
 
Mohon pencerahan untuk pengurutan angka diantara huruf berikut:
 
Asal Kata: MG01JN
 
Hasil Yang Diinginkan: MG01JN
                                  MG02JN
                                  MG03JN
                                  dst
 
Angka akan berurutan ketika ditarik kebawah. File contoh terlampir.
 
Sebelumnya saya ucapkan terima kasih.
 
 
Dani

10a.

Re: Overtime calculation

Posted by: "Mr. Kid" mr.nmkid@gmail.com   nmkid.family@ymail.com

Wed Jul 20, 2011 5:08 pm (PDT)



Silakan dicoba.

Kid.

2011/7/18 Maintenance <maint1@sumcosi.com>

> **
>
>
> **
>
> Dear Para Master XL,
>
>
>
> Mohon bantuannya untuk menghitung overtime.
>
> File terlampir.
>
>
>
>
>
> Thanks Yah,
>
> -Siti Nur-
>
>
>
>
11a.

Re: Menyisipkan koma di depan 2 angka paling belakang

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

Wed Jul 20, 2011 5:08 pm (PDT)



kalau datanya type bilangan,
dibuat sederhana saja: *dibagi seratus..*
=D2/100

2011/7/18 Ahmad Zawawi <abu_abadillah@yahoo.co.uk>

>
> Dear para pakar XL,
> Saya punya file XL , berisi daftar mutasi bank.
> Isinya:
> Tgl, Keterangan Cab, Mutasi C/D Saldo 15-Apr BIAYA ADM 0 20.000,00
> DB 2.286.188,02
> Perlu diketahui, data angka pada kolom mutasi dan saldo sudah berformat
> angka, bukan teks (yang pasti bisa menerima fungsi matematika)
>
> Musibah yg menimpa saya. Stlh lama tidak dibuka, pada kolom saldo, 2 angka
> di belakang koma bergabung kepada nominal di depan koma, alias KOMAnya
> hilang.
> dan ini terjadi berurut pada bbrpa baris.
> Contoh diatas yg sudah diperbaiki (manual) sebelumnya angka 2.286.188,02
> (dua jutaan) berubah 228.618.802 (dua ratus juta lebih)
>
> Pertanyaan saya:
> 1. Bagaimana perubahan (kesalahan) tsb terjadi?
> 2. Bagaimana cara cepat mereplace 2 angka terakhir menjadi di belakang
> koma. atau
> 3. Menyisipkan koma di depan 2 angka terakhir.
>
> Terimakasih sebelumnya.
>
11b.

Re: Menyisipkan koma di depan 2 angka paling belakang

Posted by: "rivo jacob" rivocbs@gmail.com   revival_name

Wed Jul 20, 2011 5:09 pm (PDT)



Dear Bro Ahmad,

Mungkin contoh attach bisa sesuai yang anda butuhkan.

salam,
Rivo

On 7/18/11, Ahmad Zawawi <abu_abadillah@yahoo.co.uk> wrote:
> Dear para pakar XL,
>
> Saya punya file XL , berisi daftar mutasi bank.
>
> Isinya:
> Tgl, Keterangan Cab, Mutasi C/D Saldo
> 15-Apr BIAYA ADM 0 20.000,00 DB 2.286.188,02
> Perlu diketahui, data angka pada kolom mutasi dan saldo sudah berformat
> angka, bukan teks (yang pasti bisa menerima fungsi matematika)
>
> Musibah yg menimpa saya. Stlh lama tidak dibuka, pada kolom saldo, 2 angka
> di belakang koma bergabung kepada nominal di depan koma, alias KOMAnya
> hilang.
> dan ini terjadi berurut pada bbrpa baris.
> Contoh diatas yg sudah diperbaiki (manual) sebelumnya angka 2.286.188,02
> (dua jutaan) berubah 228.618.802 (dua ratus juta lebih)
>
> Pertanyaan saya:
> 1. Bagaimana perubahan (kesalahan) tsb terjadi?
> 2. Bagaimana cara cepat mereplace 2 angka terakhir menjadi di belakang koma.
> atau
> 3. Menyisipkan koma di depan 2 angka terakhir.
>
> Terimakasih sebelumnya.
>
Recent Activity
Visit Your Group
Yahoo! Groups

Small Business Group

Own a business?

Connect with others.

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Yahoo! Groups

Parenting Zone

Tips for a happy,

healthy home

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....                      |
| www.facebook.com/pages/XL-mania/104233892978057                   |
+-------------------------------------------------------------------+
| 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