Re: [belajar-excel] Fungsi Max

[dwint ruswanto]

Jika data yang dibandingkan berisi lebih dari 1 data maka disebut array,
untuk memperoleh hasil yang tepat harus menggunakan Ctrl Shift Enter, atau
biasa juga disebut sebaga CSE Formula

Sedangkan jika data yang dibandingkan hanya 1 (disebut variabel) maka cukup
dengan menekan enter saja

CSE formula juga dapat dibuat tanpa harus menekan tombol Ctrl Shift Enter,
hanya saja untuk hal ini harus ditambahkan dengan formula INDEX

cmiiw


wassalam,

-dwint-

Pada 15 Mei 2012 16:31, adithya permana  menulis:

> **
>
>
> Pak Ruswanto, apakah guna dari ctrl+shift+enter tersebut sehingga muncul
> tanda kurung kurawal ( { } ), karena jika saya menggunakan fungsi max + if
> saja tanpa ctrl+shift+enter, nilai yang muncul 0 (nol). Mohon penjelasannya.
>
>
>
> --- On *Tue, 5/15/12, dwint ruswanto * wrote:
>
>
> From: dwint ruswanto 
> Subject: Re: [belajar-excel] Fungsi Max
> To: belajar-excel@yahoogroups.com
> Date: Tuesday, May 15, 2012, 1:06 AM
>
>
>  coba bantu solusinya dengan menggunakan array formula kombinasi MAX
> dengan IF
>
> =Max(If(kriteria;nilai_jika_kriteria_terpenuhi))
>
> =Max(If($B$4:$B$19=E4;$C$4:$C$19)) diakhiri dengan menekan tombol CTRL
> Shift Enter
>
> penjabarannya sebagai berikut
>
> If(Jika di cell B4 s/d B19 = Pepaya; ambil nilai di cell C4 s/d C19)
>
> setelah itu gunakan formula MAX untuk mengambil nilai terbesar dari hasil
> sortir sebelumnya
>
> file terlampir
>
> wassalam,
>
> -dwint-
>
>
>
>
>
>
>
> Pada 15 Mei 2012 14:16, adithya permana 
> http://us.mc1905.mail.yahoo.com/mc/compose?to=adithya_perm...@yahoo.com>
> > menulis:
>
> **
>
>  Excel Master,
> Saya memiliki ratusan item, beberapa diantaranya memiliki duplikasi
> 2,3,4,dan 5 sehingga line-nya akan menjadi ribuan. Masing-masing item tidak
> memiliki nilai tunggal. Permasalahannya adalah bagaimana mencari nilai max
> dari semua item tersebut. Mohon pencerahannya untuk kasus saya ini.
> Note: jika masih memungkinkan, solusi dengan formula excel, jika tidak,
> boleh juga menggunakan VBA (macro)
> Contoh kasusnya saya lampirkan.
>
> Terima kasih.
> a.permana
>
> --- Mods ---
> Untuk penyertaan gambar, mohon diusahakan agar filenya gambarnya tidak
> besar. Misal dengan mengubah format menjadi .jpg,.gif,.png atau yang
> lainnya yang bisa mengurangi ukurannya.
> 
>
>
>  
>

Re: [belajar-excel] Copy Kriteria seleksi ke Sheet Baru

[milsrin lee]

Dear Pak Hendrik dan para Agan/Aganwati,

Terimakasih banyak atas informasinya.

Cuma sepertinya jika memakai PivotTable, saya agak kesulitan dalam hal 
pengolahan data untuk selanjutnya. Misalnya untuk keperluan rekonsiliasi AP, 
AR, dan bank perperiode.

Regards,

Handaka 

--- On Fri, 5/11/12, hendrik karnadi  wrote:

From: hendrik karnadi 
Subject: Re: [belajar-excel] Copy Kriteria seleksi ke Sheet Baru
To: "belajar-excel@yahoogroups.com" 
Date: Friday, May 11, 2012, 3:07 AM























Dear Handaka,Problem serupa tapi tak sama (mirip) pernah saya upload di 
2shared.com dengan nama LapKeu.rar.Sheetnya bernama Buku Besar (Pakai 
PivotTable). Programnya dibantu oleh Mr. KidCoba main-main ke sana.
Salam,Hendrik Karnadi
From: Handaka Lee 
 To: belajar-excel@yahoogroups.com 
 Sent: Friday, 11 May 2012, 13:30
 Subject: [belajar-excel] Copy Kriteria seleksi ke Sheet Baru
   















 




  
  
  Dear all Agan & Aganwati Be-Exceller,

Ane mohon bantuannya atas kasus seperti lampiran

Terimakasih banyak,

Salam,
Handaka




 

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

terimkasih Mr.Kid,,
mantapatas bantuannya,





 Dari: Kid Mr. 
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Selasa, 15 Mei 2012 17:29
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
 

  
Kalau gitu, ide yang tadi dihapus saja.

Sekarang yang bagian ini aja : (di event klik milik  tambahkan)
khusus baris ini saja yang diganti :
    'hapus data
    'txtTGL.Value = ""
    'txtMRIS.Value = ""

jadi 
    'hapus data
    txtTGL.enabled= false
    txtMRIS.enabled = false

Wassalam,
Kid.


2012/5/15 achmad adi 

 
>  
>kok langsung non aktif,,,
>maksudnya,,,
>pertama input tanggal,,mris,n jumlah aktif
>kedua input dan seterusnya tanggal,,mris non aktif,,hanya jumlahnya aja yang 
>aktif...
>ini berlangsung terus sebelum KELUAR dari FORM
>
>apabila sudah keluar FORM dan memanggil kembali,,,
>mulai dari pertama lagi,
>begitu Mr.Kid
>
>
>
>
>
>
>
>
>
>
>
> 
>Dari: Kid Mr. 
>Kepada: belajar-excel@yahoogroups.com 
>Dikirim: Selasa, 15 Mei 2012 15:03
>
>Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
> 
>
>
>  
>Buat event UserForm Initialize
>Kemudian isi dengan :
>if lenb( sheets("dataentri").range("b6").value ) <> 0 then
> txttgl.enabled=false
> txtmris.enabled=false
>endif
>
>
>Wassalam,
>Kid.
>
>
>2012/5/15 achmad adi 
>
>Trimakasih banyak ats bantuannya Mr. Kid.
>>ini ada satu lagi,,,hee,,
>>untuk menonaktifkan Teks Box ( txtTGL )  
>>Teks Box ( txtMRIS )
>>setelah Penginputan data Pertama...
>>teks box tersebut langsung non aktif untuk penginputan data selanjutnya...
>>tujuan ini supaya mendapatkan TANGGAL dan MRIS satu data aja,,
>> 
>>If Trim(txtJUMLAH.Value) = "" Then
>>    txtJUMLAH.SetFocus
>>    MsgBox " masukan Jumlah mriss !!"  
>>    Exit Sub
>>    End If
>> 
>>Jadi untuk penginputan kedua dan selanjutnya langsung berada di Teks Box 
>>Jumlah
>>
>>
>>Dari: Kid Mr. 
>>Kepada: belajar-excel@yahoogroups.com 
>>Dikirim: Selasa, 15 Mei 2012 1:05
>>
>>Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
>>
>>
>>  
>>Jadi kasus Option Control Object sudah kelar.
>>Untuk tentang ComboBox, mungkin buat thread baru dengan penjelasan yang detil 
>>disertai contoh hasil dan contoh filenya.
>>Jangan lupa batas file dimilis diusahakan maksimal 250KB.
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>
>
>

 

Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[Kid Mr.]

Kalau gitu, ide yang tadi dihapus saja.

Sekarang yang bagian ini aja : (di event klik milik  tambahkan)
khusus baris ini saja yang diganti :
'hapus data
'txtTGL.Value = ""
'txtMRIS.Value = ""

jadi
'hapus data
txtTGL.enabled= false
txtMRIS.enabled = false

Wassalam,
Kid.

2012/5/15 achmad adi 

> **
>
>
> kok langsung non aktif,,,
> maksudnya,,,
> pertama input tanggal,,mris,n jumlah aktif
> kedua input dan seterusnya tanggal,,mris non aktif,,hanya jumlahnya aja
> yang aktif...
> ini berlangsung terus sebelum KELUAR dari FORM
> apabila sudah keluar FORM dan memanggil kembali,,,
> mulai dari pertama lagi,
> begitu Mr.Kid
>
>
>
>
>   --
>  *Dari:* Kid Mr. 
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 15 Mei 2012 15:03
>
> *Judul:* Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
>
>
> Buat event UserForm Initialize
> Kemudian isi dengan :
> if lenb( sheets("dataentri").range("b6").value ) <> 0 then
>  txttgl.enabled=false
>  txtmris.enabled=false
> endif
>
>
> Wassalam,
> Kid.
>
> 2012/5/15 achmad adi 
>
> Trimakasih banyak ats bantuannya Mr. Kid.
> ini ada satu lagi,,,hee,,
> untuk menonaktifkan Teks Box ( txtTGL )
> Teks Box ( txtMRIS )
> setelah Penginputan data Pertama...
> teks box tersebut langsung non aktif untuk penginputan data selanjutnya...
> tujuan ini supaya mendapatkan TANGGAL dan MRIS satu data aja,,
>
> If Trim(txtJUMLAH.Value) = "" Then
> txtJUMLAH.SetFocus
> MsgBox " masukan Jumlah mriss !!"
> Exit Sub
> End If
>
> Jadi untuk penginputan kedua dan selanjutnya langsung berada di Teks Box
> Jumlah
>
>   *Dari:* Kid Mr. 
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 15 Mei 2012 1:05
>
> *Judul:* Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
>
>
> Jadi kasus Option Control Object sudah kelar.
> Untuk tentang ComboBox, mungkin buat thread baru dengan penjelasan yang
> detil disertai contoh hasil dan contoh filenya.
> Jangan lupa batas file dimilis diusahakan maksimal 250KB.
>
> Wassalam,
> Kid.
>
>
>
>
>
>   
>

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

kok langsung non aktif,,,
maksudnya,,,
pertama input tanggal,,mris,n jumlah aktif
kedua input dan seterusnya tanggal,,mris non aktif,,hanya jumlahnya aja yang 
aktif...
ini berlangsung terus sebelum KELUAR dari FORM

apabila sudah keluar FORM dan memanggil kembali,,,
mulai dari pertama lagi,
begitu Mr.Kid







 Dari: Kid Mr. 
Kepada: belajar-excel@yahoogroups.com 
Dikirim: Selasa, 15 Mei 2012 15:03
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
 

  
Buat event UserForm Initialize
Kemudian isi dengan :
if lenb( sheets("dataentri").range("b6").value ) <> 0 then
 txttgl.enabled=false
 txtmris.enabled=false
endif


Wassalam,
Kid.


2012/5/15 achmad adi 

Trimakasih banyak ats bantuannya Mr. Kid.
>ini ada satu lagi,,,hee,,
>untuk menonaktifkan Teks Box ( txtTGL )  
>Teks Box ( txtMRIS )
>setelah Penginputan data Pertama...
>teks box tersebut langsung non aktif untuk penginputan data selanjutnya...
>tujuan ini supaya mendapatkan TANGGAL dan MRIS satu data aja,,
> 
>If Trim(txtJUMLAH.Value) = "" Then
>    txtJUMLAH.SetFocus
>    MsgBox " masukan Jumlah mriss !!"  
>    Exit Sub
>    End If
> 
>Jadi untuk penginputan kedua dan selanjutnya langsung berada di Teks Box Jumlah
>
>
>Dari: Kid Mr. 
>Kepada: belajar-excel@yahoogroups.com 
>Dikirim: Selasa, 15 Mei 2012 1:05
>
>Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
>
>
>  
>Jadi kasus Option Control Object sudah kelar.
>Untuk tentang ComboBox, mungkin buat thread baru dengan penjelasan yang detil 
>disertai contoh hasil dan contoh filenya.
>Jangan lupa batas file dimilis diusahakan maksimal 250KB.
>
>Wassalam,
>Kid.
>
>
>

 

Re: [belajar-excel] Fungsi Max

[adithya permana]

Pak Ruswanto, apakah guna dari ctrl+shift+enter tersebut sehingga muncul tanda 
kurung kurawal ( { } ), karena jika saya menggunakan fungsi max + if saja tanpa 
ctrl+shift+enter, nilai yang muncul 0 (nol). Mohon penjelasannya.
 


--- On Tue, 5/15/12, dwint ruswanto  wrote:


From: dwint ruswanto 
Subject: Re: [belajar-excel] Fungsi Max
To: belajar-excel@yahoogroups.com
Date: Tuesday, May 15, 2012, 1:06 AM



  



coba bantu solusinya dengan menggunakan array formula kombinasi MAX dengan IF


=Max(If(kriteria;nilai_jika_kriteria_terpenuhi))


=Max(If($B$4:$B$19=E4;$C$4:$C$19)) diakhiri dengan menekan tombol CTRL Shift 
Enter


penjabarannya sebagai berikut


If(Jika di cell B4 s/d B19 = Pepaya; ambil nilai di cell C4 s/d C19)


setelah itu gunakan formula MAX untuk mengambil nilai terbesar dari hasil 
sortir sebelumnya


file terlampir


wassalam,


-dwint-













Pada 15 Mei 2012 14:16, adithya permana  menulis:


  



Excel Master,
Saya memiliki ratusan item, beberapa diantaranya memiliki duplikasi 2,3,4,dan 5 
sehingga line-nya akan menjadi ribuan. Masing-masing item tidak memiliki nilai 
tunggal. Permasalahannya adalah bagaimana mencari nilai max dari semua item 
tersebut. Mohon pencerahannya untuk kasus saya ini. 
Note: jika masih memungkinkan, solusi dengan formula excel, jika tidak, boleh 
juga menggunakan VBA (macro)
Contoh kasusnya saya lampirkan.
 
Terima kasih.
a.permana

--- Mods ---
Untuk penyertaan gambar, mohon diusahakan agar filenya gambarnya tidak besar. 
Misal dengan mengubah format menjadi .jpg,.gif,.png atau yang lainnya yang bisa 
mengurangi ukurannya.

Re: [belajar-excel] Pengisian combobox dari data vertikal

[the_x_mikey]

Dear Mr.Kid

Mantap, it works. Thanks a lot
-Original Message-
From: "Kid Mr." 
Sender: belajar-excel@yahoogroups.com
Date: Tue, 15 May 2012 15:27:23 
To: 
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Pengisian combobox dari data vertikal

Pada event change combo si supervisor :
 Dim rng As Range
Dim sIsiCbo As String

sIsiCbo = comborsm.Text
combosm.Clear

If LenB(sIsiCbo) <> 0 Then
For Each rng In Sheet1.Range("g1").CurrentRegion.Resize(, 1)
If rng.Value = sIsiCbo Then
combosm.AddItem rng.Offset(0, 1).Value
End If
Next rng
End If

Wassalam,
Kid.

2012/5/15 

> **
>
>
> Dear all,
>
> Saya membuat dua combo box yang saling berhubungan, sebelumnya data
> diambil mengacu dari kolom kanan dst dari sumber data. Skarang kondisinya
> adalah data tsb menurun kebawah dan jadi tidak unique. Lengkapnya di
> attachment
> Mohon bantuannya ya
>  
>
>

Re: [belajar-excel] Pengisian combobox dari data vertikal

[Kid Mr.]

Pada event change combo si supervisor :
 Dim rng As Range
Dim sIsiCbo As String

sIsiCbo = comborsm.Text
combosm.Clear

If LenB(sIsiCbo) <> 0 Then
For Each rng In Sheet1.Range("g1").CurrentRegion.Resize(, 1)
If rng.Value = sIsiCbo Then
combosm.AddItem rng.Offset(0, 1).Value
End If
Next rng
End If

Wassalam,
Kid.

2012/5/15 

> **
>
>
> Dear all,
>
> Saya membuat dua combo box yang saling berhubungan, sebelumnya data
> diambil mengacu dari kolom kanan dst dari sumber data. Skarang kondisinya
> adalah data tsb menurun kebawah dan jadi tidak unique. Lengkapnya di
> attachment
> Mohon bantuannya ya
>  
>
>

Re: [belajar-excel] Fungsi Max

[Kid Mr.]

File terlampir mencoba dengan pivot table.
Daftar item akan terupdate sesuai data jika pivot direfresh.

Wassalam,
Kid.

2012/5/15 adithya permana 

> **
>
>
> Excel Master,
> Saya memiliki ratusan item, beberapa diantaranya memiliki duplikasi
> 2,3,4,dan 5 sehingga line-nya akan menjadi ribuan. Masing-masing item tidak
> memiliki nilai tunggal. Permasalahannya adalah bagaimana mencari nilai max
> dari semua item tersebut. Mohon pencerahannya untuk kasus saya ini.
> Note: jika masih memungkinkan, solusi dengan formula excel, jika tidak,
> boleh juga menggunakan VBA (macro)
> Contoh kasusnya saya lampirkan.
>
> Terima kasih.
> a.permana
>
> --- Mods ---
> Untuk penyertaan gambar, mohon diusahakan agar filenya gambarnya tidak
> besar. Misal dengan mengubah format menjadi .jpg,.gif,.png atau yang
> lainnya yang bisa mengurangi ukurannya.
> 
>  
>


re-fungsi max.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet

Re: [belajar-excel] Fungsi Max

[dwint ruswanto]

coba bantu solusinya dengan menggunakan array formula kombinasi MAX dengan
IF

=Max(If(kriteria;nilai_jika_kriteria_terpenuhi))

=Max(If($B$4:$B$19=E4;$C$4:$C$19)) diakhiri dengan menekan tombol CTRL
Shift Enter

penjabarannya sebagai berikut

If(Jika di cell B4 s/d B19 = Pepaya; ambil nilai di cell C4 s/d C19)

setelah itu gunakan formula MAX untuk mengambil nilai terbesar dari hasil
sortir sebelumnya

file terlampir

wassalam,

-dwint-







Pada 15 Mei 2012 14:16, adithya permana  menulis:

> **
>
>
> Excel Master,
> Saya memiliki ratusan item, beberapa diantaranya memiliki duplikasi
> 2,3,4,dan 5 sehingga line-nya akan menjadi ribuan. Masing-masing item tidak
> memiliki nilai tunggal. Permasalahannya adalah bagaimana mencari nilai max
> dari semua item tersebut. Mohon pencerahannya untuk kasus saya ini.
> Note: jika masih memungkinkan, solusi dengan formula excel, jika tidak,
> boleh juga menggunakan VBA (macro)
> Contoh kasusnya saya lampirkan.
>
> Terima kasih.
> a.permana
>
> --- Mods ---
> Untuk penyertaan gambar, mohon diusahakan agar filenya gambarnya tidak
> besar. Misal dengan mengubah format menjadi .jpg,.gif,.png atau yang
> lainnya yang bisa mengurangi ukurannya.
> 
>  
>


dwint_fungsi max.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet

Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[Kid Mr.]

Buat event UserForm Initialize
Kemudian isi dengan :
if lenb( sheets("dataentri").range("b6").value ) <> 0 then
 txttgl.enabled=false
 txtmris.enabled=false
endif


Wassalam,
Kid.

2012/5/15 achmad adi 

> Trimakasih banyak ats bantuannya Mr. Kid.
> ini ada satu lagi,,,hee,,
> untuk menonaktifkan Teks Box ( txtTGL )
> Teks Box ( txtMRIS )
> setelah Penginputan data Pertama...
> teks box tersebut langsung non aktif untuk penginputan data selanjutnya...
> tujuan ini supaya mendapatkan TANGGAL dan MRIS satu data aja,,
>
> If Trim(txtJUMLAH.Value) = "" Then
> txtJUMLAH.SetFocus
> MsgBox " masukan Jumlah mriss !!"
> Exit Sub
> End If
>
> Jadi untuk penginputan kedua dan selanjutnya langsung berada di Teks Box
> Jumlah
>
>   *Dari:* Kid Mr. 
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Selasa, 15 Mei 2012 1:05
>
> *Judul:* Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN
>
>
> Jadi kasus Option Control Object sudah kelar.
> Untuk tentang ComboBox, mungkin buat thread baru dengan penjelasan yang
> detil disertai contoh hasil dan contoh filenya.
> Jangan lupa batas file dimilis diusahakan maksimal 250KB.
>
> Wassalam,
> Kid.
>
>
>

[belajar-excel] Fungsi Max

[adithya permana]

Excel Master,
Saya memiliki ratusan item, beberapa diantaranya memiliki duplikasi 2,3,4,dan 5 
sehingga line-nya akan menjadi ribuan. Masing-masing item tidak memiliki nilai 
tunggal. Permasalahannya adalah bagaimana mencari nilai max dari semua item 
tersebut. Mohon pencerahannya untuk kasus saya ini.
Note: jika masih memungkinkan, solusi dengan formula excel, jika tidak, boleh 
juga menggunakan VBA (macro)
Contoh kasusnya saya lampirkan.
 
Terima kasih.
a.permana

--- Mods ---
Untuk penyertaan gambar, mohon diusahakan agar filenya gambarnya tidak besar. 
Misal dengan mengubah format menjadi .jpg,.gif,.png atau yang lainnya yang bisa 
mengurangi ukurannya.


fungsi max.xlsx
Description: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet

Bls: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

[achmad adi]

Trimakasih banyak ats bantuannya Mr. Kid.
ini ada satu lagi,,,hee,,
untuk menonaktifkan Teks Box ( txtTGL )  
Teks Box ( txtMRIS )
setelah Penginputan data Pertama...
teks box tersebut langsung non aktif untuk penginputan data selanjutnya...
tujuan ini supaya mendapatkan TANGGAL dan MRIS satu data aja,,
 
If Trim(txtJUMLAH.Value) = "" Then    txtJUMLAH.SetFocus    MsgBox " masukan Jumlah mriss !!"      Exit Sub    End If
 
Jadi untuk penginputan kedua dan selanjutnya langsung berada di Teks Box Jumlah




Dari: Kid Mr. Kepada: belajar-excel@yahoogroups.com Dikirim: Selasa, 15 Mei 2012 1:05Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

  

Jadi kasus Option Control Object sudah kelar.Untuk tentang ComboBox, mungkin buat thread baru dengan penjelasan yang detil disertai contoh hasil dan contoh filenya.Jangan lupa batas file dimilis diusahakan maksimal 250KB.Wassalam,Kid.
2012/5/15 achmad adi 



oalah 
a sayamake nya koma ( , )  ,50
harusnya titik ( . )  .50

heee,,,ok trimakasih banyak Mr Kid,,,atas bantuannya
masih da lagi nh pertanyaan,,he,,,bolehkan,,,
untuk penyimapan TOTAL SUM,,,ke work sheet,,,menurut dtata di COMBO BOX,,





Dari: Kid Mr. Kepada: belajar-excel@yahoogroups.com Dikirim: Selasa, 15 Mei 2012 0:06
Judul: Re: [belajar-excel] OPTION BUTTON UNTUK MENENTUKAN LETAK SIMPAN

 



Terus terang saya ndak mudeng maksud 2 angka dibelakang koma itu ndak ada.Berikut contoh hasilnya bukan ?Semua ada 2 angka dibelakang koma.Cell terkanan adalah hasil penjumlahan seluruh cell di kirinya.Penjumlahan yang Anda lakukan seperti apa ?Jika dengan VBA, coba sertakan baris yang menjumlahkan tersebut.Wassalam,Kid.
2012/5/14 achmad adi 

  



terimakasih baynak Mr Kid,,,dah membantu masalah ini,,,tetapi untuk desimal,,,,xx ,xx  ditambahkanhasilnya tetep aja O,tidak bisa dua angka dibelakang koma( pecahan )

Re: [belajar-excel] Trs: Filter untuk Aplikasi Excel Faktur Pajak

[Kid Mr.]

Bagaimana kalau dicoba :
1. Insert sebuah sheet baru dan letakkan di paling kanan
2. ke sheet template output yang kemarin telah diisi formula
3. blok kolom-kolom hasil (klik nama kolomnya, misal klik A tekan shift
terus menerus, diikuti klik P)
4. klik kanan sebuah cell terblok, pilih copy
5. ke sheet baru tadi
6. klik kanan A1 pilih paste special, pilih values and number format lalu
tekan OK.

Jika ingin membuatnya otomatis, sebelum melakukan instruksi no 1, pencet
tombol Record Macro lalu ingat nama Macro yang tertulis, kemudian tekan OK
Lakukan langkah-langkah di atas
Jika sudah selesai tekan tombol Stop Recording

Kemudian tekan ALT F12 untuk ke VBE
Cari module1 dan cari di lembar kanannya, nama macro tadi.

Sekarang edit macro ya... (sambil belajar)
Nanti disana akan tampak scriptnya, dan mulai cari bagian yang *hasil kerja
nomor 1*, biasanya dimulai dari :
sheets("nama sheet yang mau dicopy").select
sampai dengan :
sheets("nama sheet barusan insert").move after:=bla

Ganti beberapa baris tersebut menjadi : (tinggal 1 baris saja)
sheets.add after:=  sheets(sheets.count   )

*Hasil kerja nomor 2 sampai 4 :*
Mulai dari 1 baris tepat setelah yang atas tadi, sampai baris :
selection.copy
Beberapa baris ini diganti menjadi : (ganti nama sheet sesuai kebutuhan,
ganti rujukan kolom sesuai kebutuhan)
sheets("nama sheet yang mau dicopy").columns("A:P").copy

*Hasil kerja nomor 5 dan 6 :*
Mulai dari 1 baris tepat setelah yang atas tadi, sampai sebelum *End Sub*
ganti dengan :
sheets(  sheets.count ).range("a1").pastespecial
xlpastevaluesandnumberformats

Sekarang, pengen ganti nama macronya
Ada tulisan Sub bla-bla(
ganti bla-bla tadi dengan 1 kata tanpa tanda baca kecuali underscore dan
tidak diawali angka, misal : CopySheetFaktur

Selesai dah macronya
kembali ke wroksheet dengan tekan ALT F12
save as -> jika xl2007, pastikan pilih ekstensi file yang .xlsm (excel
enable macro workbook) atau .xlsb

Kalau mau buat tombol supaya bisa di ceklik
>> klik sebuah cell di kanan dari kolom terkanan yang di copy
>> insert sebuah shape (bisa kotak, segitiga atau foto apa aja deh).
>> Klik kanan si shape tadi pilih Assign Macro
>> pilih nama macro tadi (tadi dikasih nama CopySheetFaktur ).
>> tekan OK.

Selamat mencoba.

Wassalam,
Kid.

2012/5/15 caecilia sarah Floresa 

> **
>
>
> sudah saya coba dan berhasil.
> Trims Mr. Kid :)
>
> Tapi, karena setiap penerbitan faktur pajak harus saya simpan, apakah ada
> cara agar file faktur pajak saya tersebut bisa menjadi database?
>
> Misal saya menerbitkan Faktur Pajak untuk PT. A untuk 2 kali pembelian
> barang kami.
> Sehingga masing2 faktur pajak tersebut harus tetap tersimpan dalam bentuk
> sheet.
>
> Apakah ada tahap2 yg bisa saya coba?
>
> Atas bantuannya, saya ucapkan terima kasih.
>
> --- Pada *Sen, 14/5/12, Kid Mr. * menulis:
>
>
> Dari: Kid Mr. 
> Judul: Re: [belajar-excel] Trs: Filter untuk Aplikasi Excel Faktur Pajak
> Kepada: belajar-excel@yahoogroups.com
> Tanggal: Senin, 14 Mei, 2012, 9:24 AM
>
>
>
>
> Silakan dicoba ya Bu Sarah,
>
> 1. membuat nama range berisi nama-nama PT
> >> ke sheet data yang anda maksud, blok nama-nama PT (tanpa header) -->
> misal di range F2 sampai F20 <--,
> klik kanan pilih name a range kalau tidak ada, klik name box yang ada di
> kiri formula bar di atas angka 1 baris excel,
> tulis sebuah nama yang mewakili tanpa spasi dan tanda baca selain
> underscore, misal myNamaPT
> lalu tekan ENTER
>
> 2. membuat dropdownlist dengan fitur Data Validation
> ke sheet outputnya, asumsi inputan bentuk dropdownlist akan diletakkan di
> cell E15 (sesuaikan dengan posisi cell di-file Anda)
> >> maaf, karena diopen pakai web jadi gak ada header excelnya <<
> misal di E15, ke menu Data pilih Validation (xl2003) atau Data Validation
> di xl2007
> di Allow nya pilih List
> di source nya tulis =myNamaPT
> tekan OK
>
> 3. Mengisi field alamat dan npwp dengan formula
> Misal :
> - cellnya di E17 (alamat)
> - tabel referensi di sheet DataKu range F2 sampai H20 berisi NamaPT,
> Alamat, dan NPWP
> di E17, beri formula :
> =*VLookUp( e15 , 'dataku'!$F$2:$H$20 , 2 , false )* -> angka 2
> karena akan mengambil kolom ke dua dari 'dataku'!$F$2:$H$20 yang isinya
> adalah alamat
>
> bagaimana dengan cara mengambil data NPWP yang akan diletakkan di field
> NPWP (cell E19 misalnya) ? tentu bisa kan.
>
> Justru sekarang, masalahnya adalah ketika isi nama PT adalah blank, maka
> formula E17 akan menghasilkan error value. Kurang enak dipandang tentunya.
> Maka ubah sedikit formula E15 dengan menambah kondisi (pakai fungsi IF kan)
> =IF(  len( e15 )   ,*VLookUp( e15 , 'dataku'!$F$2:$H$20 , 2 , false )*
> , "" )
>
> untuk E17, silakan disesuaikan.
>
> >> nama-nama sheet, nama-nama range, dan alamat range yang digunakan,
> disesuaikan dengan keadaan real di data masing-masing <<
>
> Wassalam,
> Kid.
>
> 2012/5/14 caecilia sarah Floresa 
> http://mc/compose?to=perempuan0...@yahoo.co.id>
> >
>
> **
>
>
> Dear Excel Master,
>
>
> Saya masih m