Senin, 16 Januari 2012

[belajar-excel] Digest Number 1477

Messages In This Digest (9 Messages)

Messages

1a.

Re: Diskusi di BBM Group Belajar Excel

Posted by: "Aliif Akbar" aliif.akbar@yahoo.co.id   aliif.akbar

Sun Jan 15, 2012 8:53 am (PST)



Mr.Kid,
Oke,
Dipelajari dulu untuk rumus ini, soalnya saya jg baru dalam hal ini,..m
Regrds,

Asror


Sent from my BlackBerry® smartphone from Sinyal Bagus XL, Nyambung Teruuusss...!

-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Sun, 15 Jan 2012 20:06:31
To: <belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Diskusi di BBM Group Belajar Excel

Selamat malam Asror,

Coba file terlampir yang mencoba memperkenalkan fungsi Index agar lebih
disukai.
Selama ini, telah banyak kemudahan yang didapat dari fungsi Offset yang
bersifat volatile.
Semoga Index yang tidak volatile bisa menjadi alternatif pilihan
menggantikan Offset, terutama pada data yang begitu banyak dengan
pengolahan yang intensif.

Wassalamualaikum Wr. Wb.
Kid.


2012/1/15 Zainudin Asror <aliif.akbar@yahoo.co.id>

> **
>
>
> Selamat malam,****
>
> Dear rekan BeExcel, berikut saya share hasil diskusi kami rekan2 Belajar
> Excel BBM Group.****
>
> ** **
>
> PENANYA : Imam F. Sinurat****
>
> Topik : DATA VALIDATION****
>
> Pertanyaan :****
>
> Jika Cell A1 berisi 'padi', maka pada A2 pilihan yg muncul hanya 'hibrida'
> atau 'unggul'.. Tapi jika A1 berisi 'plwj', maka pada A2 pilihan yang
> muncul hanya 'komposit' atau 'lokal'.. Nah, bgmn cara membuat validasi pada
> sel A2?? Saya pake excel 2003.. Mohon bantuan rekan2, trims sblmnya :)****
>
> Solusi :****
>
> ASR****
>
> Coba di cell C1 padi, C2 plwj,****
>
> Di cell D1 pake rumus =IF(a1="padi","hybrida","komposit")****
>
> Di cell D2 pake rumus =IF(a1="padi","unggul","lokal")****
>
> Terus di Cell A1 divalidasi menggunakan list di cell C1 sampe C2****
>
> Validasi di cell A2 menggunakan validasi lis di cell D1 sampe D2,****
>
> ** **
>
> Pertanyaan 2 :****
>
> ** **
>
> Imam F. Sinurat : (NEW) Pengembangan ****
>
> Topik: DATA VALIDATION****
>
> Jika A1 berisi 'padi', maka pada A2 pilihan yg muncul hanya 'hibrida',
> 'unggul', dan 'lokal'.. Tapi jika A1 berisi 'plwj', maka pada A2 pilihan
> yang muncul hanya 'tongkol', 'pipil', dan 'giling'.. Nah, bgmn cara membuat
> validasi pada sel A2?? Saya pake excel 2003.. Mohon bantuan rekan2, trims
> sblmnya :)****
>
> ** **
>
> Solusi :****
>
> Cell F2 padi, F3 plwj, Cell G2 hybrida, Cell G3 unggul, Cell G4 lokal,
> Cell H2 tongkol, Cell H3 pipil, Cell H4 giling, Cell E2 rumus (=IF($A$1=
> $F$2,G2,IF($A$1= $F$3,H2,"")), Cell di E2 di copy sampe cell E4, Terus
> di A1 isi validasi berdasarkan cell di F2:F3, Cell di A2 di isi validasi
> list di E2:E4****
>
> ** **
>
> Pertanyaan 3 :****
>
> Biar saya gak penasaran, kita tambah variabel 1 lagi, gmn pak?? Pilihan
> plwj kita tambah lagi, skrg jadi 'tongkol', 'pipil', 'giling', dan 'tepung'
> Bisa nggak ya pak?? Ini saya maksudkan biar saya bisa memahami 'logika
> penyusunan validasinya' ****
>
> Solusi :****
>
> Coba di cell H5 dikasih "tepung", Terus cell E4 di copy ke cell E5****
>
> ** **
>
> Untuk detail contoh di Excel ada di lampiran, terimakasih.****
>
> ** **
>
> ASROR****
>
> BBM Group Belajar Excel****
>
> ** **
>
> *Kalau temen2 ingin join BBM Group Belajar Excel, silahkan Japri ke Email
> saya ini.*
>
> *Terimakasih.*
>
> ** **
>
> Dear Moderator Milis, mohon bimbingannya ia?****
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
2a.

Re: Memasukkan data ke dalam sheet lain dengan dua kriteria

Posted by: "Isti Astro" milisastro@gmail.com   isti_astro

Sun Jan 15, 2012 6:44 pm (PST)



Dear Pak Seno,

Kode modifikasi dari Bapak lebih simple dan ringkas, namun mohon maaf belum
sesuai yang diinginkan. Karena yang diinginkan adalah data di tabel rekap
sudah fix dan terdiri dari list nomor ID, nama dan tanggal, nah yang
diinginkan adalah me-lookup data yang terdapat di tabel data kemudian
dimasukkan ke tabel rekap sesuai dengan nomor ID (posisinya random) menurut
tanggal awal sampai akhirnya.

Mohon bantuannya sekali lagi. Terima kasih.

Regards,
Isti

2012/1/14 o' Seno <ontoseno84@gmail.com>

> **
>
>
> -- di-modipikasi sedikitt..
>
> Sub Generate_CutiReport()
> ' coded by: Indri Hapsari
> ' 12 dec 2012 // jkt. / BeExcelCase #15152
> ' modified by: oSeno (ontoseno84@gmail.com)
> '------------------------------------------
> Dim dTabel As Range, dRekap As Range, Libur As Range
> Dim TglAwal As Date, TglAkir As Date, vTgl As Date
> Dim *TGLRepA As Date, TGLRepZ As Date*
> Dim iRow As Integer, iCol As Integer
> Dim CriYYMM As String, Tipe As String
>
> Set dTabel = Sheet4.Cells(1).CurrentRegion
> Set dRekap = Sheet5.Cells(1).CurrentRegion.Offset(1, 3)
> Set Libur = Application.Range("LiburNas")
> TGLRepA = Sheet5.Cells(2).Value
> TGLRepZ = DateSerial(Year(TGLRepA), Month(TGLRepA) + 1, 0)
> CriYYMM = Format(TGLRepA, "yyMM")
> dRekap.Parent.Activate
>
> For iRow = 2 To dTabel.Rows.Count
> dRekap(iRow, -2) = iRow - 1
> dRekap(iRow, -1) = dTabel(iRow, 1)
> dRekap(iRow, 0) = dTabel(iRow, 2)
> If LCase(dTabel(iRow, 6)) Like "approved*" Then
> TglAwal = dTabel(iRow, 3): TglAkir = dTabel(iRow, 4)
> '-------------------------------------------------
> * If TglAwal <= TGLRepZ And TglAkir >= TGLRepA Then*
> * If TglAwal < TGLRepA Then TglAwal = TGLRepA*
> * If TglAkir > TGLRepZ Then TglAkir = TGLRepZ*
> '--------------------------------------------------
> Tipe = LeaveCode(dTabel(iRow, 5).Value)
>
> ' TipeCuti ditulis JIKA :BulanThIni, nonMinggu & NonLibur
> For iCol = Day(TglAwal) To Day(TglAkir)
> vTgl = dRekap(1, iCol).Value
> If Format(vTgl, "yyMM") = CriYYMM Then
> If Weekday(vTgl) > 1 Then dRekap(iRow, iCol) = Tipe
> If WorksheetFunction.CountIf(Libur, vTgl) > 0 Then
> dRekap(iRow, iCol) = vbNullString
> End If
> End If
> Next iCol
> End If
> End If
> Next iRow
> End Sub
>
> *o'Seno*
>
>
>
> 2012/1/13 Isti <milisastro@gmail.com>
>
>> **
>>
>> saya sudah coba utak-atik dengan mengganti coding :
>> -------------------------------------
>> IGems = dTabel(i, 2) ' ID
>> -------------------------------------
>> dan
>> ------------------------------------------------------
>> For c = Day(TglAwal) To Day(TglAkir)
>> vTgl = dRekap(1, c).Value
>> If Weekday(vTgl) > 1 Then dRekap(IGems, c) = Tipe
>>
>> If WorksheetFunction.CountIf(Libur, vTgl) > 0 _
>> Then dRekap(i, c) = vbNullString
>> Next c
>> ------------------------------------------------------
>> Namun yang terisi kok cuma tiga employee ID saja, sedangkan yang lain
>> kosong sedang datanya ada sekitar 500. Mohon bantuannya Bu Haps dan para
>> master sekalian.
>>
>> Regards,
>> Isti
>>
>>
>> --- In belajar-excel@yahoogroups.com, Isti Astro <milisastro@...> wrote:
>> >
>> > Bu Siti ternyata setelah di aplikasikan banyak error terjadi, karena di
>> > contoh makro dan file solusi Bu siti, untuk tabel drekap diisi lewat
>> > makro...sedang di data contoh yang saya kirim maksudnya adalah tabel
>> rekap
>> > sudah ada dan data yang ada di sember data hanya dipindahkan ke rekap
>> > sesuai dengan nomor ID dan tanggal pengajuan. (kalo pakai rumus seperti
>> > vlookup)
>> > Mohon informasinya
>>
>
>
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
3a.

Bls: [belajar-excel] Label Bebas utk Scatter Chart

Posted by: "supri yadi" supriyadi_sbm@yahoo.co.id   supriyadi_sbm

Sun Jan 15, 2012 6:45 pm (PST)



Dear pak Toton,

Install PUP7trial.exe
setelah terinstall,

click scatter chart,
chart click pupV7,
click charting tools,
click chart data labeler,
lalu pilih series produk ID,
click pada label range, dan blok range D2:D7 lalu OK. seperti di lampiran.

Semoga membantu.

Best Regards,
Supriyadi,

===============================================
ModsNote:
maaf file pup7trial.exe terpaksa kami cekal
karena berukuran RIBUAN KB !! sedangkan aturan
milis membatasi max 250 KB
Disarankan pak Supriy jika akan menunjukkan
file cukup diberikan link/URL-nya saja.....
misal:
http://spreadsheetpage.com/index.php/pupv7/trial
================================================

________________________________
Dari: toton rusmadi <t_rusmadi@yahoo.com>
Dikirim: Minggu, 15 Januari 2012 8:03
 
Dear Pakar Excel,
Mohon bantuan sehubungan saya yang mencoba memberi label pada titik-titik dalam grafik scatter sesuai dengan isi dalam kolom yg kita inginkan. Contoh kasus filenya ada dalam  lampiran.
Terima kasih banyak sebelumnya atas bantuan exceler semua, semoga sharingya
bisa bermanfaat untuk yg membutuhkan. Mohon maaf apabila ini repost
topik.
Terima kasih.

Salam,
t_rusmadi
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
4a.

Re: Menggabung kode untuk di jadikan patokan

Posted by: "Yan" yan.novianto@yahoo.com   yan.novianto

Sun Jan 15, 2012 11:29 pm (PST)



Dear Bu Haps dan exel_ers

Hehehe, maksudnya….
Di kolom hasil adalah data cusomernya lebih banyak ( master ) dari colom data ( yg terdistribusi ), sehingga di mungkinkan data yang di cari ( tidak sebaris ) dengan data “distribusi”.

Sehingga kalo di rubah datanya maka tidak sesuai..maaf kalo salah tangkap.
Untuk Mr.KID,…rumus bener bener panjaaaaaang dan laaaama…( kayak iklan coklat J )

Masalahnya saat saya coba implementasi ke masalah yang sesungguhnya jadi mumet…hehehe, mungkin hanya di copi paste saja formula-formula yang di bikin oleh Mr.KID ke

Masalah yang sebernarnya. ( pokoknya mantabs deh Mr,KID, nanti akan saya baca dan pelajari pelan pelan rumusan Mr.KID).

Saya yang sedikit nyantol adalah rumusan yang di buat oleh ibu Haps dan om Ghozi,

Berhubung yang ibu haps juga ada feedback, maka yang saya Tanya lagi ama beliaw..hehehe data terlampir ya bu Haps, semoga jawaban dari Bu Haps kali ini benar benar bisa sesuai dengan keinginan…

Salam exel…
Yan

From: belajar-excel@yahoogroups.com On Behalf Of i Haps
Sent: Monday, January 09, 2012 10:10 PM

(1)
>> tp juga mengurutkan dahulu no Customernya,
>> jika 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 hapus 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 pula: mengetik jawaban pada saat masih memakai "kalung Stetoskop"

dan masih pakai disposable medical 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..)
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (7)
5.

REKAP NILAI SISWA MULTI SHEET

Posted by: "Wxwx Tit" wxwxtit@yahoo.co.id   wxwxtit

Sun Jan 15, 2012 11:30 pm (PST)



Selamat siang semuanya,

Dear rekan excel

saya lagi rekap semua nilai siswa, yang jadi masalah

data nilai awal terdiri dari banyak Sheet, dan klo urutan data tiap sheets berbeda gimana yah
data terlapir

Thanks bantuannya,

Alex Purnama
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)
6a.

Re: Formula terbilang

Posted by: "Adi Irawan" airawanp@gmail.com

Mon Jan 16, 2012 1:40 am (PST)



Bu Indri, Terima kasih bnyak ya untuk Bantuannya,..

2012/1/13 i Haps <hapsari.stlizbeth@gmail.com>
> Jika ingin PROGRAM itu sendiri yg meniadakan "Rupiah" dan "Sen" nya
> di bagian prosedur fungsi Terbilang / *Function Terbilang(....)*
> lihat di bagian terbawah di BLOK Select Case (2 blok)
> bisa di-obok-obok menjadi seperti ini
> '-------------
> Select Case Rupiah
> Case ""
> Rupiah = "Nol" ' Rupiah"
> Case Else
> Rupiah = Rupiah ' & "Rupiah"
> End Select
>
> Select Case Sen
> Case ""
> Sen = ""
> Case Else
> Sen = " dan " & Sen &* "Per-Seratus"* ' "Sen"
> End Select
>
> CMIIW
>
> 2012/1/13 Adi Irawan <airawanp@gmail.com>
> > Bu Inri, File yang saya maksud adalah file yng di kirim oleh pak Djati
> > kalau terbilangnya tidak pake rupiah gimana ya ?
> > saya coba2 utak atik tapi malah eror.heheh

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (20)
7a.

Re: Warna pada kolom

Posted by: "Budhi Cahyanto" budhi.cahyanto@suryajayaenergy.com

Mon Jan 16, 2012 1:43 am (PST)



Thanks to pak Sudarsono, pak O'Seno, dan mba' Riska.
It works.

From: belajar-excel@yahoogroups.com
On Behalf Of jkssxls Sudarsono
Sent: 14 Januari 2012 13:02

kalau ingin membatasi isian maka di sheet sheet1 sel B2 diubah menjadi
_____

From: jkssxls@hotmail.com
Date: Sat, 14 Jan 2012 05:24:36 +0000

bisa juga gunakan event change pada Sheet yang ingin diberi warna , misal di
sheet "2008"
sebelumnya buat sheet baru , misal "Sheet1" , mulai sel B1 buat seperti ini
( warna sel )

From: ontoseno84@gmail.com
Date: Fri, 13 Jan 2012 20:43:52 +0700

betul sekali kata mbak Riska, gunakan fitur Conditional Formatting

Selain itu di tiap kolom kolom sebelah kanan kolom Tanggal bisa di"pasang" fitur Data Validation > List yg listnya bisa diambil dari Daftar Legend agar nantinya JENIS CUTI tidak perlu diketikkan, tetapi cukup dipilih dari DropDownButton yg muncul jika cell di aktifkan

o'Seno

2012/1/13 Riska Wahyu Nirmalasari <Riska.Nirmalasari@danone.com>

Untuk hal tersebut menggunakan conditional formatting.
Berikut filenya.

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (6)
8a.

search dengan criteria tertentu

Posted by: "Adi Irawan" airawanp@gmail.com

Mon Jan 16, 2012 2:22 am (PST)



dear members,

Mohon bantuannya, seandainya saya ingin filter hasil cirteria tertentu
contoh seperi:
1234.567.000 jadi semua yang ada "567" di tengahnya bisa ke select semuanya.

kode macro yang sudah saya buat hasilnya kosong setelah di search. Berikut
kode yang saya buat :

'wsDatabase adalah worksheet Database
Set wsDatabase = Sheets("Combined")
'wsHasil adalah worksheet HasilFilter
Set wsHasil = Sheets("hasil")
'Menghapus seluruh data dalam worksheet HasilFilter
wsHasil.Cells.Delete
'Menyalin lebar kolom range A2:F7
wsDatabase.Range("A2:e2").Copy
wsHasil.Range("A4").PasteSpecial Paste:=xlPasteColumnWidths
'Menyaring data menggunakan Advanced Filter
wsDatabase.Range("search_gross").AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=Range("Criteria"), _
CopyToRange:=wsHasil.Range("A4")
'Menyeleksi worksheet HasilFilter
wsHasil.Select
'Menyeleksi sel A1
Range("A1").Select

Mohon bantuannya ya...

Terima kasih banyak
Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
8b.

Re: search dengan criteria tertentu

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com   hendrikkarnadi

Mon Jan 16, 2012 6:05 am (PST)



Macronya Ok pak, yang slah kriterianya ganti tanda "   " dengan *  *
Contoh terlampir.

________________________________
From: Adi Irawan <airawanp@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Monday, 16 January 2012, 16:41
Subject: [belajar-excel] search dengan criteria tertentu


 
dear members,

Mohon bantuannya, seandainya saya ingin filter hasil cirteria tertentu
contoh seperi:
1234.567.000 jadi semua yang ada "567" di tengahnya bisa ke select semuanya.

kode macro yang sudah saya buat hasilnya kosong setelah di search. Berikut
kode yang saya buat :

'wsDatabase adalah worksheet Database
Set wsDatabase = Sheets("Combined")
'wsHasil adalah worksheet HasilFilter
Set wsHasil = Sheets("hasil")
'Menghapus seluruh data dalam worksheet HasilFilter
wsHasil.Cells.Delete
'Menyalin lebar kolom range A2:F7
wsDatabase.Range("A2:e2").Copy
wsHasil.Range("A4").PasteSpecial Paste:=xlPasteColumnWidths
'Menyaring data menggunakan Advanced Filter
wsDatabase.Range("search_gross").AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=Range("Criteria"), _
CopyToRange:=wsHasil.Range("A4")
'Menyeleksi worksheet HasilFilter
wsHasil.Select
'Menyeleksi sel A1
Range("A1").Select

Mohon bantuannya ya...

Terima kasih banyak

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
Recent Activity
Visit Your Group
Yahoo! Groups

Parenting Zone

Tips for a happy,

healthy home

Y! Groups blog

The place to go

to stay informed

on Groups news!

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

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Diposting oleh EXCEL FEED LEARNING di 07.08

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)