Jumat, 05 Juli 2013

[belajar-excel] Digest Number 2404

15 New Messages

Digest #2404
1a
Re: Jatuh tempo Invoice by "lapendosol opik" lapendosol
2
Manfaat Goal Seek by "hendrik karnadi" hendrikkarnadi
4a
Re: Mengelompokkan data dan mengkalkulasikannya by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
5a
6a
Re: aplikasi error can't find library or project by "Mr. Kid" nmkid.family@ymail.com
6d
Re: aplikasi error can't find library or project by "Mr. Kid" nmkid.family@ymail.com
7a
Kuis - Excel 2007 yang di Save As ke Excel 2003 by "hendrik karnadi" hendrikkarnadi
7b
Re: Kuis - Excel 2007 yang di Save As ke Excel 2003 by "Heri Pamungkas ( Gmail )" dchoosen88
8a
MEMBUAT QUERY by "Salam"
8b
Re: MEMBUAT QUERY by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
9a
Makro dan VBA by "Eko Noviyanto" nopenk77
9b
Re: Makro dan VBA by "Mr. Kid" nmkid.family@ymail.com

Messages

Thu Jul 4, 2013 8:22 am (PDT) . Posted by:

"lapendosol opik" lapendosol

Trimakasih Mas DP dan Mas Kid,
Kedua solusi sangat membantu sesuai harapan saya.
Wassalam,

________________________________
From: Mr. Kid <mr.nmkid@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com>
Sent: Thursday, July 4, 2013 7:15 PM
Subject: Re: [belajar-excel] Jatuh tempo Invoice


Coba : (xl2003 kebawah, aktifkan analysis toolpak addin)
=EDate( a1 , 2 )
"Ambil tanggal di 2 bulan kedepan dari tanggal di a1"

Wassalam,

Kid.

________________________________
From: De Premor <de@premor.net>
To: belajar-excel@yahoogroups.com
Sent: Thursday, July 4, 2013 7:08 PM
Subject: Re: [belajar-excel] Jatuh tempo Invoice


 
Pakai fungsi Date coba, trus dibagian month di tambah 2

=DATE(YEAR(A1),MONTH(A1)+2,DAY(A1))

Pada 04/07/2013 18:54, lapendosol opik menulis:

 
>Dear rekan-rekan Be-Excel,
>Melanjutkan dari pertanyaan sebelumnya tentang invoice,
>Saya membuat Invoice dimana didalamnya terdapat masa jatuh tempo (dibantu dengan VBA)
>Jatuh tempo bulanan ada 2 pilihan, 1 bulan dan 2 bulan. Tetep saya menggunakan kolom bantu dalam pembuatan tanggal jatuh tempo, tapi menemukan kendala dalam perhitungannya. Saya udah ubek2 file-file dari milis ketemu file yg mirip, (re-SIMULASI BIAYA TAHUNAN.xls) paling tidak ada kasus tentang penambahan waktu seperti jatuh tempo gitu dah, tapi hasilnya kurang memuaskan.
>Misal di A1 isinya tanggal sekarang 4 juli 2013
>(dengan bantuan form VBA) jika dipilih jatuh tempo 2 bulan maka jatuh temponya (yg diharapkan) pada tanggal 4 september 2013 (di A2). Saya menggunakan rumus =60+A1 hasilnya jadi 2 september 2013.
>
>Saya coba menggunakan rumus =MONTH(A1)+2&"/4/2013" tapi hasilnya jadi format text (hanya tampilannya aja 9/4/2013). Jelas banget kedua rumus ini kurang tepat untuk jatuh tempo bulanan karena jumlah hari setiap bulan berbeda. Mohon bantuannya untuk penambahan bulanan terhadap data awal (dalam kasus ini A2 biar menjadi 4 september 2013 gitu).
>Trimakasih sebelum dan sesudahnya.
>Wassalam,
>

Thu Jul 4, 2013 8:32 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Rekan Be-Exceler,
Selama ini kita asyik bermain dengan formula dan belajar Macro.
Namun ada hal kecil dalam menu Excel yang jarang kita manfaatkan yaitu Goal Seek.

Berikut adalah contoh Goal Seek, jawaban atas pertanyaan seorang rekan dari negeri seberang, yang mungkin bermanfaat bagi kita.

Salam,
HK

Thu Jul 4, 2013 2:09 pm (PDT) . Posted by:

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

Dear BeExceller,

Bahasan tentang Scope sudah diawali
disini<http://b-excel.blogspot.com/2013/07/belajarvba-003-scope-seri-1.html>
.
Untuk melengkapi bahasan tentang Scope dan sebagai dongeng penghibur akhir
pekan, maka akhir bahasan tentang Scope bisa dilihat
disini<http://b-excel.blogspot.com/2013/07/belajarvba-003-scope-seri-2.html>
.

Selamat berakhir pekan.

:)

Wassalam,
Kid.

Thu Jul 4, 2013 6:57 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

Pak Salam,

Saya coba pakai Microsoft query tanpa menggunakan rumus di excel 2007:

1. simpan file yang akan di Query

2. Buat File Baru

3. Dari ribbon [Data] dalam group [Get External Data], pilih [From Other Source] kemudian [From Microsoft Query]

4. Pilih [Excel Files*] di pilihan [Choose Datasource]

5. Pilih database (file excel) yang akan di query

6. Pada pilihan [add table], pilihan TAB_1$ dan TAB2$. click [Close]

7. click tombol [SQL]

8. Masukkan SQL statement:

SELECT R.`ITEM CODE`, R.LOTTO, SUM(R.Expr1002) AS QTY

FROM (

SELECT A.`ITEM CODE`, A.LOTTO,(-1*A.QTY)

FROM `TB_2$` A

UNION ALL

SELECT B.`ITEM CODE`, B.LOTTO, (1*B.QTY)

FROM `TB_1$` B

) AS R

WHERE R.LOTTO IS NOT NULL

GROUP BY R.`ITEM CODE`, R.LOTTO

9. Ganti SUM(R.Expr1002) menjadi SUM(R.Expr1001) jika ada error.

10. Hasil query di Ms. Query

11. Dari Microsoft query pilih menu [File] kemudian [Return data to Microsoft Excel]

12. Hasil Query di tampilkan di Excel

13. Jika ada tambahan data baru, click kanan di table hasil query pilih [Refresh]

selamat mencoba…

From: Salam <aang@dmcti.co.id>

To: belajar-excel@yahoogroups.com

Sent: Thursday, 4 July 2013, 10:43

Subject: [belajar-excel] Re: Mengelompokkan data dan mengkalkulasikannya

Dear Master Excel,

Saya karyawan perusahaan swasta,as new member nama saya Salam.

Para master semua saya ingin bertanya,

1. Bagaimana cara untuk menggabungkan 2 kolom dengan kriteria yang sama

kemudian dijumlahkan qty(see attachement).

2. setelah dikelompokan dan dijumlahkan qty nya, kemudian dibuatkan

query nya(see attachement)

3. query didapat dari tabel 1 dikurangi tabel 2 dengan key 1 "item code"

dan key 2 "lotto"(see attachement)

Mohon pencerahan dari master semua.

thanks before,

A.Salam

Thu Jul 4, 2013 8:15 pm (PDT) . Posted by:

"Ferry Rahdiansyah"

Alhamdulillah...
Terima kasih bantuannya Pak Heri Pamungkas, rumusnya berfungsi seperti yang saya inginkan.

Wassalam,
Ferry Rahdiansyah

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of Heri Pamungkas ( Gmail )
Sent: Thursday, July 04, 2013 5:55 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Membuat No. Urut (Kelompok Data)

Semangat pagi,

Mungkin maksudnya membuat nomor itu nya ya ??

Kalau benar, mungkin if-if'an ini bisa sedikit membantu.

# sampaikan masalah yang sering anda temui saat menggunakan Excel pada

http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3

Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain

Salam Excell-ent

On 7/4/2013 5:40 PM, Ferry Rahdiansyah wrote:

Assalamualaikum rekan-rekan,

Mudah2an ada diantara rekan-rekan disini yang berkenan untuk berbagi ilmu tentang bagaimana formula untuk membuat nomor urut atas beberapa kelompok data apabila jumlah kelompok datanya tidak beraturan. Ilustrasinya terlampir. Terima kasih sebelumnya atas kebaikan rekan-rekan.

Wassalam,
Ferry Rahdiansyah

Thu Jul 4, 2013 9:00 pm (PDT) . Posted by:

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

Coba tambahkan prosedur berikut ini didalam sebuah module, kemudian
jalankan.
Public Sub CekLibrary()
Dim o As Object
Dim s As String

For Each o In Application.VBE.ActiveVBProject.References
If o.isbroken Then
s = s & o.Description & vbCrLf
End If
Next o
If LenB(s) <> 0 Then
MsgBox "Library yang rusak :" & vbCrLf & s, vbExclamation, "Cek
Library"
Else
MsgBox "Ok semua.", vbInformation, "Cek Library"
End If
End Sub

Jika muncul pesan berupa daftar library yang rusak, maka library tersebut
yang harus diperbaiki di *komputer setempat
*
Jadi kasus ini relatif terhadap komputernya.

Wassalam,
Kid.

2013/7/4 Bos Kbrn <bos.kbrn@yahoo.com>

> **
>
>
> para master excel yang budiman, saya mau bertanya
> aplikasi yang saya unduh dari google kalau di copy dari flasdisk ke
> komputerlain selalu tidak bisa dijalankan muncul error can't find library
> or project, file tersebut masih dipassword sheet dan workbooknya, saya
> tidak tahu passwordnya.
> bagaimana cara mengatasinya.
> file terlampir ini linknya
> http://www.4shared.com/file/Sn5IQvuJ/BOS_SDN_2_Dukuhwaluh.html
> best regards
>
>
>

Fri Jul 5, 2013 12:10 am (PDT) . Posted by:

"Bos Kbrn" bos.kbrn

terima kasih mr. kid, betul setelah saya cek dikomputer saya tetap tidak bisa dijalankan. terima kasih sudah merepotkan

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 5 Juli 2013 11:00
Judul: Re: [belajar-excel] aplikasi error can't find library or project


 
Coba tambahkan prosedur berikut ini didalam sebuah module, kemudian jalankan.
Public Sub CekLibrary()
    Dim o As Object
    Dim s As String
   
    For Each o In Application.VBE.ActiveVBProject.References
        If o.isbroken Then
            s = s & o.Description & vbCrLf
        End If
    Next o
    If LenB(s) <> 0 Then
        MsgBox "Library yang rusak :" & vbCrLf & s, vbExclamation, "Cek Library"
    Else
        MsgBox "Ok semua.", vbInformation, "Cek Library"
    End If
End Sub

Jika muncul pesan berupa daftar library yang rusak, maka library tersebut yang harus diperbaiki di komputer setempat

Jadi kasus ini relatif terhadap komputernya.

Wassalam,

Kid.

2013/7/4 Bos Kbrn <bos.kbrn@yahoo.com>


>para master excel yang budiman, saya mau bertanya
>aplikasi yang saya unduh dari google kalau di copy dari flasdisk ke komputerlain selalu tidak bisa dijalankan muncul error can't find library or project, file tersebut masih dipassword sheet dan workbooknya, saya tidak tahu passwordnya.
>
>bagaimana cara mengatasinya.
>
>file terlampir ini linknya http://www.4shared.com/file/Sn5IQvuJ/BOS_SDN_2_Dukuhwaluh.html
>
>best regards

Fri Jul 5, 2013 12:10 am (PDT) . Posted by:

"Bos Kbrn" bos.kbrn

maaf tanya lagi, kalau mau diperbaiki librarynya apakah harus diinstal ulang atau cuma menambah library yang rusak dgn download misalnya?
terima kasih sebelumnya sudah merepotkan
best regards

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 5 Juli 2013 11:00
Judul: Re: [belajar-excel] aplikasi error can't find library or project


 
Coba tambahkan prosedur berikut ini didalam sebuah module, kemudian jalankan.
Public Sub CekLibrary()
    Dim o As Object
    Dim s As String
   
    For Each o In Application.VBE.ActiveVBProject.References
        If o.isbroken Then
            s = s & o.Description & vbCrLf
        End If
    Next o
    If LenB(s) <> 0 Then
        MsgBox "Library yang rusak :" & vbCrLf & s, vbExclamation, "Cek Library"
    Else
        MsgBox "Ok semua.", vbInformation, "Cek Library"
    End If
End Sub

Jika muncul pesan berupa daftar library yang rusak, maka library tersebut yang harus diperbaiki di komputer setempat

Jadi kasus ini relatif terhadap komputernya.

Wassalam,

Kid.

2013/7/4 Bos Kbrn <bos.kbrn@yahoo.com>


>para master excel yang budiman, saya mau bertanya
>aplikasi yang saya unduh dari google kalau di copy dari flasdisk ke komputerlain selalu tidak bisa dijalankan muncul error can't find library or project, file tersebut masih dipassword sheet dan workbooknya, saya tidak tahu passwordnya.
>
>bagaimana cara mengatasinya.
>
>file terlampir ini linknya http://www.4shared.com/file/Sn5IQvuJ/BOS_SDN_2_Dukuhwaluh.html
>
>best regards

Fri Jul 5, 2013 12:55 am (PDT) . Posted by:

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

Ok jadi sudah ada daftar library yang rusak. Sebenarnya, arti kata rusak
dalam prosedur tersebut adalah yang tidak bisa digunakan oleh VBA. Hal ini
bisa berarti :
1. belum ada library tersebut dalam komputer
2. sudah ada library dalam kompiter tetapi tidak bisa digunakan
Kedua hal tersebut dapat diselesaikan dengan download library tersebut dan
di install hingga teregistry dalam komputer.

Wassalam,
Kid.

2013/7/5 Bos Kbrn <bos.kbrn@yahoo.com>

> **
>
>
> maaf tanya lagi, kalau mau diperbaiki librarynya apakah harus diinstal
> ulang atau cuma menambah library yang rusak dgn download misalnya?
> terima kasih sebelumnya sudah merepotkan
> best regards
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Jumat, 5 Juli 2013 11:00
> *Judul:* Re: [belajar-excel] aplikasi error can't find library or project
>
>
> Coba tambahkan prosedur berikut ini didalam sebuah module, kemudian
> jalankan.
> Public Sub CekLibrary()
> Dim o As Object
> Dim s As String
>
> For Each o In Application.VBE.ActiveVBProject.References
> If o.isbroken Then
> s = s & o.Description & vbCrLf
> End If
> Next o
> If LenB(s) <> 0 Then
> MsgBox "Library yang rusak :" & vbCrLf & s, vbExclamation, "Cek
> Library"
> Else
> MsgBox "Ok semua.", vbInformation, "Cek Library"
> End If
> End Sub
>
> Jika muncul pesan berupa daftar library yang rusak, maka library tersebut
> yang harus diperbaiki di *komputer setempat
> *
> Jadi kasus ini relatif terhadap komputernya.
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/7/4 Bos Kbrn <bos.kbrn@yahoo.com>
>
> **
>
> para master excel yang budiman, saya mau bertanya
> aplikasi yang saya unduh dari google kalau di copy dari flasdisk ke
> komputerlain selalu tidak bisa dijalankan muncul error can't find library
> or project, file tersebut masih dipassword sheet dan workbooknya, saya
> tidak tahu passwordnya.
> bagaimana cara mengatasinya.
> file terlampir ini linknya
> http://www.4shared.com/file/Sn5IQvuJ/BOS_SDN_2_Dukuhwaluh.html
> best regards
>
>
>
>
>
>

Thu Jul 4, 2013 9:30 pm (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Jika file 2007 di Save as sebagai Excel 97-2003 Workbook (.xls) maka program ini akan error:
Sub Sort1()

    Range("A2:F100000").Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2"), Order2:=xlAscending
    Range("A2").Select
End Sub

dengan pesan:
Run-time error '1004'

Method 'Range&#39; of object '_Global&#39; failed

Tetapi jika di Save As sebagai Excel Macro-Enabled Workbook (.xlsm) program di atas tidak bermasalah.

Nah pertanyaannya (khusus buat yang merasa masih pemula):
Mengapa?

Salam,
HK         

Thu Jul 4, 2013 9:35 pm (PDT) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88

Semangat pagi,

Mungkin bisa sedikit menjawab
Karena pada Excell 97 - 2003 hanya ada _+_ 65000 Row

# sampaikan masalah yang sering anda temui saat menggunakan Excel pada
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3

Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain

Salam Excell-ent

On 05/07/2013 11:30, hendrik karnadi wrote:
> Jika file 2007 di Save as sebagai Excel 97-2003 Workbook (.xls) maka
> program ini akan error:
> Sub Sort1()
> Range("A2:F100000").Select
> Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,
> Key2:=Range("B2"), Order2:=xlAscending
> Range("A2").Select
> End Sub
>
> dengan pesan:
> Run-time error '1004'
> Method 'Range&#39; of object '_Global&#39; failed
>
> Tetapi jika di Save As sebagai Excel Macro-Enabled Workbook (.xlsm)
> program di atas tidak bermasalah.
>
> Nah pertanyaannya (khusus buat yang merasa masih pemula):
> Mengapa?
>
> Salam,
> HK
>

Fri Jul 5, 2013 12:09 am (PDT) . Posted by:

"Salam"

Assalamu'alaikum..

Master exceler, saya ingin membuat summary dari tabel berikut ( lih.
lampiran), dengan menggunakan macro.
Atas bantuannya saya ucapkan terima kasih.

Salam
A.Salam

Fri Jul 5, 2013 12:45 am (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

silahkan dicoba langkah-langkah seperti di attachment.
menggunakan Microsoft query tanpa macro dan tanpa rumus.

thanks
-zainul-

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
On Behalf Of Salam
Sent: Friday, July 05, 2013 11:05 AM
To: Belajar Excel
Subject: [belajar-excel] MEMBUAT QUERY

 
Assalamu'alaikum..

Master exceler, saya ingin membuat summary dari tabel berikut ( lih.
lampiran), dengan menggunakan macro.
Atas bantuannya saya ucapkan terima kasih.

Salam
A.Salam

Fri Jul 5, 2013 12:10 am (PDT) . Posted by:

"Eko Noviyanto" nopenk77

Dear Rekan-rekan,

Apakah itu Makro dan VBA ? Mohon bantuannya untuk penjelasan kedua hal tersebut dan dimana saya bisa mempelajarinya ?

Terima kasih saya ucapkan kepada rekan-rekan atas bantuan dan pencerahannya.

Salam,
Nopenk

Fri Jul 5, 2013 12:59 am (PDT) . Posted by:

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

Hai Nopenk,

Coba jalan-jalan ke blog milis di : http://b-excel.blogspot.com

Wassalam,
Kid.

2013/7/5 Eko Noviyanto <eko_ny77@yahoo.co.id>

> **
>
>
> Dear Rekan-rekan,
>
> Apakah itu Makro dan VBA ? Mohon bantuannya untuk penjelasan kedua hal
> tersebut dan dimana saya bisa mempelajarinya ?
>
> Terima kasih saya ucapkan kepada rekan-rekan atas bantuan dan
> pencerahannya.
>
> Salam,
> Nopenk
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

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

Tidak ada komentar:

Posting Komentar