Messages In This Digest (9 Messages)
- 1a.
- Re: Diskusi di BBM Group Belajar Excel From: Aliif Akbar
- 2a.
- Re: Memasukkan data ke dalam sheet lain dengan dua kriteria From: Isti Astro
- 3a.
- Bls: [belajar-excel] Label Bebas utk Scatter Chart From: supri yadi
- 4a.
- Re: Menggabung kode untuk di jadikan patokan From: Yan
- 5.
- REKAP NILAI SISWA MULTI SHEET From: Wxwx Tit
- 6a.
- Re: Formula terbilang From: Adi Irawan
- 7a.
- Re: Warna pada kolom From: Budhi Cahyanto
- 8a.
- search dengan criteria tertentu From: Adi Irawan
- 8b.
- Re: search dengan criteria tertentu From: hendrik karnadi
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?****
>
>
>
- 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. , Isti Astro <milisastro@com ...> 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
>>
>
>
- 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
- 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. On Behalf Of i Hapscom
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..)
- 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
- 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
- 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.
- 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").PasteSpeci al Paste:=xlPasteColum nWidths
'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
- 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").PasteSpeci al Paste:=xlPasteColum nWidths
'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
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