Selasa, 15 Januari 2013

[belajar-excel] Digest Number 2026

5 New Messages

Digest #2026

Messages

Tue Jan 15, 2013 4:01 am (PST) . Posted by:

johaneswawan

Dear Mr. Kid

Thank's Mr. Table tools sdh bs digunakan.

Salam,
Wawan

Sent from BlackBerry® on 3

-----Original Message-----
From: "Mr. Kid" mr.nmkid@gmail.com>
Sender: belajar-excel@yahoogroups.com
Date: Tue, 15 Jan 2013 18:53:23
To: belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Table tools

Hai Wawan,

Coba :
0. pastikan data tabel yang akan dijadikan excel table memenuhi kaidah
database terutama headernya, yaotu tidak ada merge cell, semua kolom
memiliki nama header, kolomnya rapat, header hanya dalam 1 baris saja, nama
header adalah unique.
1. blok data yang belum menjadi tabel tapi sudah berkaidah database hasil
proses 0
2. ribbon Home -> group Styles -> Format as table -> pilih sebuah styles
3. formula bisa merujuk ke tabel seperti menyusun formula biasanya
4. tabel bisa diberi agregat pada sisi bawah tabel
5. formula dalam tabel secara default akan dicopy langsung ke seluruh record

Wassalam,
Kid.

On Tue, Jan 15, 2013 at 6:43 PM, johaneswawan@yahoo.co.id> wrote:

> Dear pakar excels,
>
> Mohon bantuannya untuk langkah² menggunakan table tools.
> Thank's
>
> Salam,
> Wawan
> Sent from BlackBerry® on 3
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>

Tue Jan 15, 2013 4:15 am (PST) . Posted by:

Alhamdulillah. Berhasil. Terima kasih Mr. Kid. Walaupun kita baru bertemu,
saya hanya berdoa semoga Allah SWT membalas kebaikan Mr. Kid.

Wassalamu alaikum.

"Mr. Kid" mr.nmkid@gmail.com>
Sent by: belajar-excel@yahoogroups.com
01/15/2013 06:40 PM
Please respond to belajar-excel

To: belajar-excel@yahoogroups.com
cc:
Subject: Re: [belajar-excel] Refresh Chart dengan mengganti resource data

Wa'alaikumussalam Wr. Wb.

Pak Tio,

Mungkin bagian :
Sheets("Sheet1").Selection.selection.Cells
diganti menjadi :
Sheets("Sheet1").Selection

Atau seluruhnya dari diganti menjadi :
Sub RefreshChart()

    ActiveSheet.ChartObjects("Chart 91").Activate

   'syarat : data diapit cell kosong, yaitu :
    'baris 5 dan baris setelah record terakhir harus kosong
    'kolom C dan kolom setelah kolom terakhir harus kosong
   ActiveChart.SetSourceData
Source:=Sheets("Sheet1").Range("D6").currentregion, PlotBy:=  xlRows

End Sub

Wassalamu'alaikum Wr. Wb.
Kid.

2013/1/15 tio.adjie@ptssb.co.id>
 

Assalamu alaikum dan selamat pagi.

Sebelumnya saya ingin perkenalkan diri. Saya Tio dan sekarang sedang
membuat database excel walaupun ini bukan main job saya, tapi terpaksa
saya lakukan juga karena ini perintah dari Boss.

he..he...

Saya sekarang sedang membuat chart dan ingin refresh dengan mengubah
resource datanya.

Awalnya range source data chart yang saya buat adalah range D6:I9. Tapi
karena kolomnya bertambah terus (seperti jadi D6:J9) , maka saya buat
tombol untuk refresh dengan mengubah source

datanya, tapi tidak berhasil .

Ini code macronya :

Sub RefreshChart()

    Range("D6").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.ChartObjects("Chart 91").Activate
    ActiveChart.ChartArea.Select
'    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("D6:I9"),
PlotBy:= _
'        xlRows ' ini code awalnya
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Selection.selection.Cells, PlotBy:= _
        xlRows      'ini modif dari kodenya, tapi tidak berhasil yaitu di
bagian yang ditandai tebal Sheets("Sheet1").Selection.selection.Cells

End Sub

Mohon bantuan teman-teman , bagaimana untuk memodif source datanya ?

Terima kasih. atas bantuannya.

regards,
Tio
_

Tue Jan 15, 2013 5:00 am (PST) . Posted by:

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

Wa'alaikumussalam Wr. Wb.

Pak Muzakki,

Coba pada cell C6 sheet jadwal per guru diberi formula :
=IFERROR(LOOKUP(2,1/(INDEX('Jadwal Umum'!$C$5:$AZ$52,SUMPRODUCT(('Jadwal
Umum'!$A$5:$A$52=C$5)*('Jadwal Umum'!$B$5:$B$52=$B6)*(ROW('Jadwal
Umum'!$C$5:$AZ$52)-ROW('Jadwal Umum'!$C$4))),0)=*$C$4*),'Jadwal
Umum'!$B$3:$AY$3),0)

tapi ada syaratnya, yaitu :
1. kolom nama hari di sheet jadwal umum harus terisi semuanya (tidak ada
yang blank)
2. nama-nama hari di sheet jadwal per guru harus sama dengan nama hari di
sheet jadwal umum

atur format number cell c6 dengan custom berisi General;;
copy formula C6 ke cell lain dalam area guru tersebut.
penerapan ke area guru lainnya memerlukan penyesuaian rujukan *kode guru*

file terlampir.

Wassalamu'alaikum Wr. Wb.
Kid.

2013/1/15 Muzakki Harun muzakkiharun@ymail.com>

> **
>
>
> Assalamu'alaikum Wr. Wb.
> Dear All,
> Mohon bantuannya kepada Para Suhu Excel, Bagaimana caranya membuat jadwal
> Pelajaran perguru dengan merujuk pada jadwal umum yang ada di sheet Jadwal
> Umum? File terlampir
> Atas bantuan para suhu excel saya ucapkan terimakasih
>
> Wassalamu'alaikum Wr. Wb.
>
> Best Regard
>
> Muzakki Harun
>
>
>

Tue Jan 15, 2013 5:33 am (PST) . Posted by:

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

Hai Nori,

Letakkan script berikut pada event yang anda sukai antara selection change
atau before double click
dim rng as range 'range yang diproses
dim sFile as string 'nama workbook tujuan
dim sMsg as string 'wadah pesan ke user
dim wbk as workbook 'workbook tujuan
dim sht as worksheet 'nama sheet tujuan

on error resume next 'trap error agar jalan terus, karena proses akibat
error diletakkan setelah baris error
set rng=target.resize(1,1) 'selalu ambil cell pertama yang diproses
with rng 'pada range yang diproses
if lenb(.value)<>0 then 'ada isinya
if .row>3 and .column>9 and .column<12 then 'dibaris setelah
header pada kolom 10 sampai 11
sfile="datapa.xlsx"; 'simpan nama workbook
set wbk=workbooks(sfile) 'set workbook dengan workbook
yang bernama sesuai sfile
if wbk is nothing then 'workbook belum dibuka
'buka file tanpa update link dan kondisi readonly
set wbk = workbooks( thisworkbook.path & "\" & sfile
, false,true )
if wbk is nothing then 'gak ada file yang bisa
dibuka
smsg="tidak ada workbook bernama " & sfile & _
" di folder bernama " & thisworkbook.path
goto keluar 'ke blok keluar dibawah sana
endif
endif

wbk.activate 'aktifkan
workbook
set sht=wbk.sheets( .value ) 'set worksheet dalam
workbook sesuai isi range yang diproses
if sht is nothing then 'gak ada sheet dimaksud
smsg="tidak ada sheet bernama " & .value & " dalam
workbook bernama " & sfile
wbk.close false 'tutup workbook tanpa
di save
goto keluar 'ke blok keluar
dibawah sana
endif
sht.activate 'aktifkan worksheet
endif
endif
end with

Keluar:
err.clear
on error goto 0
if lenb(smsg)<>0 then
msgbox smsg,vbcritical
endif

Wassalam,
Kid.

2013/1/15 Nori Z ordinarynori@yahoo.com>

> **
>
>
> Dear all,,
> Please help me.. hikss.. hikss..
> Gimana solusinya ? :(
>
> thanks...
>
> Best,
> Nori.
>
> ------------------------------
> *From:* Nori Z ordinarynori@yahoo.com>
> *To:* "belajar-excel@yahoogroups.com" belajar-excel@yahoogroups.com>
> *Sent:* Monday, January 14, 2013 11:18 AM
> *Subject:* [belajar-excel] Masih tentang bagaimana akses workbook yang
> lain dari sebuah workbook .
>
>
> Dear All,
> Sebelumnya saya pernah menanyakan topik 'Bagaimana agar bisa akses sel
> dari sheet yang berbeda dan dengan kode yang bersesuaian?'
> Saat itu saya mendapatkan pencerahan dari Master zainul_ulum[at]yahoo[dot]com
> zainul_ulum@yahoo.com> .
> Saya ucapkan banyak terimakasih ..
>
> Namun saat ini saya ada sedikit kendala, ternyata permasalahannya agak
> sedikit kompleks bagi saya (hmm.. karena saya merasa sangat kesulitan
> menemukan solusinya :( ... )
>
> Pada file terlampir,
> Permasalahannya saya ingin merujuk pada workbook yang lain namun harus
> menuju/merujuk pada sheet yang bersesuaian dengan kode sel yang saya klik
> dari Tabel Utama. Penjelasan permasalahannya sudah saya lampirkan dalam
> file excel ini.
> Yang sangat mumet bagi saya karena form ini merupakan form master / awal
> yang mana nantinya akan dilakukan input data... makanya mesti melakukan
> perintah pencopyan master tabel dari sheet yang satu ke sheet yang lain
> (jika sheet tersebut kosong) pada workbook yang dituju dengan memperhatikan
> kode sel yang diklik sebelumnya... Selanjutnya jika sheet tersebut sudah
> terisi tabel dan data maka perintah yang dilakukan hanya mengakses/merujuk
> pada sheet dimaksud tersebut...
>
> Saya sangat mengharapkan bantuan dari para Master disini...
> Terimakasih,
>
>
> Best,
> Nori.
>
>
>
>

Tue Jan 15, 2013 6:50 am (PST) . Posted by:

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

Pak Rachmat,

Conditional formatting tidak bisa merujuk langsung ke sheet lain. Oleh
sebab itu dibutuhkan nama range.
Pada sheet data, buat nama range untuk :
1. Tag (misal bernama _dtTAG_)
2. User status _dtUserStatus_
3. Init text _dtInitTxt_
4. tanggal bas start _dtBasStart_

Pada sheet hasil :
1. Untuk ambil data dari kolom Init Text, pada cell C4 diberi formula :
=IFERROR(LOOKUP(2,1/((_dtTAG_=$B4)*(YEAR(_dtBasStart_)=C$3)),_dtInitTxt_),"")
lalu copy formula ke cell lain dikanan dan bawahnya

Bagian LookUp untuk mengambil nilai init text, dan bagian IFError untuk
trap error ketika hasil lookup adalah #N/A

2. Conditional formatting
>> dibutuhkan 2 conditional formatting, 1 untuk kuning dan 1 lagi untuk
hijau (buat 2 kali dengan formula dan format yang berbeda)
>> Dibuat dengan memblok area hasil mulai C4 dan memilih opsi Use Formula
>> bunyi formula untuk warna kuning :

=LEFT(LOOKUP(2,1/((_dtTAG_=$B4)*(YEAR(_dtBasStart_)=C$3)),_dtUserStatus_),3)
*=*"WIP"
>> bunyi formula untuk warna hijau :

=LEFT(LOOKUP(2,1/((_dtTAG_=$B4)*(YEAR(_dtBasStart_)=C$3)),_dtUserStatus_),3)
*<>*"WIP"

File terlampir.

Wassalam,
Kid.

2013/1/15 Rachmad HIDAYAT rachmad.hidayat@external.total.com>

> **
>
>
> dear pakar Excel yang saya
> hormati,
> ****
>
>
> ****
>
> Mohon pencerahannya, secerah pagi di kota saya J
> ****
>
> saya punya PLANNING EQUIPMENT yang di updated setiap bulannya untuk
> kerjaan tahun 2012 - 2018
> ****
>
> Pertanyaan saya
> ;
> ****
>
> - Bagaimana menggunakan *formula atau conditional format* yang nantinya
> jika terpenuhi, maka di Planning BERWARNA (HIJAU jika SELESAI, KUNING jika
> INPROGRESS) ****
>
> syaratnya : Warna HIJAU jika di USER STATUS di temukan
> WECO atau TECO **
> **
>
> Warna KUNING jika USER STATUS di
> temukan WIP ****
>
> TAG, INITIAL SHORT TEXT, YEAR
> terpenuhi****
>
> ** **
>
> ** **
>
> Terima Kasih,****
>
> Rachmad Hidayat****
>
>
> ****
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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 11.21

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)