Messages In This Digest (23 Messages)
- 1a.
- membuat workbook baru dan menjalankan macro di workbook tersebut From: Chubby Mike
- 1b.
- Re: membuat workbook baru dan menjalankan macro di workbook tersebut From: Kid Mr.
- 1c.
- Re: membuat workbook baru dan menjalankan macro di workbook tersebut From: ChubbyMike
- 1d.
- Re: membuat workbook baru dan menjalankan macro di workbook tersebut From: ChubbyMike
- 1e.
- Re: membuat workbook baru dan menjalankan macro di workbook tersebut From: Kid Mr.
- 1f.
- Re: membuat workbook baru dan menjalankan macro di workbook tersebut From: ChubbyMike
- 1g.
- Re: membuat workbook baru dan menjalankan macro di workbook tersebut From: Kid Mr.
- 1h.
- Re: membuat workbook baru dan menjalankan macro di workbook tersebut From: ChubbyMike
- 2a.
- Re: array list file #N/A di kondisikan kosong ( Tidak ada ) From: Dayat
- 2b.
- Re: array list file #N/A di kondisikan kosong ( Tidak ada ) From: Ki Semprul
- 2c.
- Re: array list file #N/A di kondisikan kosong ( Tidak ada ) From: nor hidayat
- 2d.
- Re: array list file #N/A di kondisikan kosong ( Tidak ada ) From: nor hidayat
- 2e.
- Re: array list file #N/A di kondisikan kosong ( Tidak ada ) From: Ki Semprul
- 2f.
- Re: array list file #N/A di kondisikan kosong ( Tidak ada ) From: Kid Mr.
- 3a.
- Meng-Highlight kolom yang di filter From: andre pri
- 3b.
- Re: Meng-Highlight kolom yang di filter From: Kid Mr.
- 4a.
- Membuat schedule Excel, cell terisi otomatis From: Agus Ramiyanto
- 4b.
- Re: Membuat schedule Excel, cell terisi otomatis From: Rara Wilis
- 4c.
- Re: Membuat schedule Excel, cell terisi otomatis From: Kid Mr.
- 4d.
- Re: Membuat schedule Excel, cell terisi otomatis From: utthank abe
- 4e.
- Re: Membuat schedule Excel, cell terisi otomatis From: Agus Ramiyanto
- 5a.
- Pindahkan data ke formulir From: Mansor
- 5b.
- Re: Pindahkan data ke formulir From: Kid Mr.
Messages
- 1a.
-
membuat workbook baru dan menjalankan macro di workbook tersebut
Posted by: "Chubby Mike" the_x_mikey@yahoo.com the_x_mikey
Wed Mar 28, 2012 3:00 am (PDT)
hi all,
tolong bantuannya membuat macro seperti judul diatas dong.
deskripsi :
saya mau membuat commandbutton (di file A) yg jika diklik, user harus memilih file excel (file b) dimana macro akan berjalan di file A tersebut.
saya sudah coba
newfile = application.getopenfilename( filefilter: ="Excel Files (*.xls),*.xls" , title:="please select a file")
tapi sayangnya macro saya berjalan di file A sehingga terjadi error.
bagaimana cara membuat file B menjadi aktif setelah dibuat
thanks in advance
Mike
- 1b.
-
Re: membuat workbook baru dan menjalankan macro di workbook tersebut
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Wed Mar 28, 2012 3:12 am (PDT)
Mungkin begini :
Dim vFile As Variant
Dim wbkFile As Workbook
vFile = Application.GetOpenFilename( "Excel Files (*.xls), *.xls")
If LenB(vFile) <> 0 Then
Set wbkFile = Workbooks.Open(vFile)
End If
Kemudian semua kegiatan di file B bisa dilakukan dengan memanggil object
wbkFile
Misal :
wbkfile.activate
wbkfile.sheets(1).activate
wbkfile.sheets(1).range( "d3:h19,z55: ab77").clearcont ents
Kid.
On Wed, Mar 28, 2012 at 16:52, Chubby Mike <the_x_mikey@yahoo.com > wrote:
> **
>
>
> hi all,
>
> tolong bantuannya membuat macro seperti judul diatas dong.
>
> deskripsi :
> saya mau membuat commandbutton (di file A) yg jika diklik, user harus
> memilih file excel (file b) dimana macro akan berjalan di file A tersebut.
>
> saya sudah coba
>
> newfile = application.getopenfilename( filefilter: ="Excel Files
> (*.xls),*.xls", title:="please select a file")
>
> tapi sayangnya macro saya berjalan di file A sehingga terjadi error.
>
> bagaimana cara membuat file B menjadi aktif setelah dibuat
>
> thanks in advance
> Mike
>
>
>
- 1c.
-
Re: membuat workbook baru dan menjalankan macro di workbook tersebut
Posted by: "ChubbyMike" the_x_mikey@yahoo.com the_x_mikey
Wed Mar 28, 2012 3:12 am (PDT)
saya ralat
deskripsi :
saya mau membuat commandbutton (di file A) yg jika diklik, user harus memilih file excel (file b) dimana macro akan berjalan di file B tersebut.
Sent from my BlackBerry yg belum lunas
-----Original Message-----
From: "Chubby Mike" <the_x_mikey@yahoo.com >
Sender: belajar-excel@yahoogroups. com
Date: Wed, 28 Mar 2012 09:52:09
To: <belajar-excel@yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: [belajar-excel] membuat workbook baru dan menjalankan macro di workbook tersebut
hi all,
tolong bantuannya membuat macro seperti judul diatas dong.
deskripsi :
saya mau membuat commandbutton (di file A) yg jika diklik, user harus memilih file excel (file b) dimana macro akan berjalan di file A tersebut.
saya sudah coba
newfile = application.getopenfilename( filefilter: ="Excel Files (*.xls),*.xls" , title:="please select a file")
tapi sayangnya macro saya berjalan di file A sehingga terjadi error.
bagaimana cara membuat file B menjadi aktif setelah dibuat
thanks in advance
Mike
- 1d.
-
Re: membuat workbook baru dan menjalankan macro di workbook tersebut
Posted by: "ChubbyMike" the_x_mikey@yahoo.com the_x_mikey
Wed Mar 28, 2012 7:20 am (PDT)
Hi kid, code yg kamu berikan itu berjalan dengan sempurna,
Boleh nanya 1 lg ga?
Dalam macro yg sy buat itu membuat 1 workbook baru lg(file c), dari tadi saya coba otak atik.
Kalau vfile dibawah itu artinya file yg dipilih sm user, gmn cara membuat vfile itu adalah workbook yg kita buat baru.
Sent from my BlackBerry yg belum lunas
-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Wed, 28 Mar 2012 17:11:49
To: <belajar-excel@yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] membuat workbook baru dan menjalankan macro di
workbook tersebut
Mungkin begini :
Dim vFile As Variant
Dim wbkFile As Workbook
vFile = Application.GetOpenFilename( "Excel Files (*.xls), *.xls")
If LenB(vFile) <> 0 Then
Set wbkFile = Workbooks.Open(vFile)
End If
Kemudian semua kegiatan di file B bisa dilakukan dengan memanggil object
wbkFile
Misal :
wbkfile.activate
wbkfile.sheets(1).activate
wbkfile.sheets(1).range( "d3:h19,z55: ab77").clearcont ents
Kid.
On Wed, Mar 28, 2012 at 16:52, Chubby Mike <the_x_mikey@yahoo.com > wrote:
> **
>
>
> hi all,
>
> tolong bantuannya membuat macro seperti judul diatas dong.
>
> deskripsi :
> saya mau membuat commandbutton (di file A) yg jika diklik, user harus
> memilih file excel (file b) dimana macro akan berjalan di file A tersebut.
>
> saya sudah coba
>
> newfile = application.getopenfilename( filefilter: ="Excel Files
> (*.xls),*.xls", title:="please select a file")
>
> tapi sayangnya macro saya berjalan di file A sehingga terjadi error.
>
> bagaimana cara membuat file B menjadi aktif setelah dibuat
>
> thanks in advance
> Mike
>
>
>
- 1e.
-
Re: membuat workbook baru dan menjalankan macro di workbook tersebut
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Wed Mar 28, 2012 7:37 am (PDT)
Coba :
dim wbkNew as workbook
set wbknew=workbooks.add
wbknew.saveas "z:\data\namafilebaru.xlsx"
Kid.
On Wed, Mar 28, 2012 at 21:02, ChubbyMike <the_x_mikey@yahoo.com > wrote:
> **
>
>
> ** Hi kid, code yg kamu berikan itu berjalan dengan sempurna,
> Boleh nanya 1 lg ga?
> Dalam macro yg sy buat itu membuat 1 workbook baru lg(file c), dari tadi
> saya coba otak atik.
> Kalau vfile dibawah itu artinya file yg dipilih sm user, gmn cara membuat
> vfile itu adalah workbook yg kita buat baru.
> Sent from my BlackBerry yg belum lunas
> --------------------- ---------
> *From: * "Kid Mr." <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups. com
> *Date: *Wed, 28 Mar 2012 17:11:49 +0700
> *To: *<belajar-excel@yahoogroups. >com
> *ReplyTo: * belajar-excel@yahoogroups. com
> *Subject: *Re: [belajar-excel] membuat workbook baru dan menjalankan
> macro di workbook tersebut
>
>
>
> Mungkin begini :
>
> Dim vFile As Variant
> Dim wbkFile As Workbook
> vFile = Application.GetOpenFilename( "Excel Files (*.xls), *.xls")
> If LenB(vFile) <> 0 Then
> Set wbkFile = Workbooks.Open(vFile)
> End If
>
> Kemudian semua kegiatan di file B bisa dilakukan dengan memanggil object
> wbkFile
> Misal :
> wbkfile.activate
> wbkfile.sheets(1).activate
> wbkfile.sheets(1).range( "d3:h19,z55: ab77").clearcont ents
>
> Kid.
>
> On Wed, Mar 28, 2012 at 16:52, Chubby Mike <the_x_mikey@yahoo.com > wrote:
>
>> **
>>
>>
>> hi all,
>>
>> tolong bantuannya membuat macro seperti judul diatas dong.
>>
>> deskripsi :
>> saya mau membuat commandbutton (di file A) yg jika diklik, user harus
>> memilih file excel (file b) dimana macro akan berjalan di file A tersebut.
>>
>> saya sudah coba
>>
>> newfile = application.getopenfilename( filefilter: ="Excel Files
>> (*.xls),*.xls", title:="please select a file")
>>
>> tapi sayangnya macro saya berjalan di file A sehingga terjadi error.
>>
>> bagaimana cara membuat file B menjadi aktif setelah dibuat
>>
>> thanks in advance
>> Mike
>>
>>
>
>
- 1f.
-
Re: membuat workbook baru dan menjalankan macro di workbook tersebut
Posted by: "ChubbyMike" the_x_mikey@yahoo.com the_x_mikey
Wed Mar 28, 2012 8:09 am (PDT)
Hi kid,
Sy sudah coba code ini dibawah tp tidak dpt disave dan tidak bisa bikin value di wbknew, malahan ada error 400
Dim vFile As Variant
Dim wbkFile As Workbook
vFile = Application.GetOpenFilename
If LenB(vFile) <> 0 Then
Set wbkFile = Workbooks.Open(vFile)
End If
wbkfile.activate
wbkfile.sheets(1).activate
wbkfile.sheets(1).range( "a1").select
Selection.entirerow.insert
Activecell.value ="abc"
Dim wbknew as workbook
Set wbknew = workbooks.add
Wbknew.saveas "c:\tes\tes.xls"
Wbknew.range("a2").value = "bca"
Sent from my BlackBerry yg belum lunas
-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Wed, 28 Mar 2012 21:37:10
To: <belajar-excel@yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] membuat workbook baru dan menjalankan macro di
workbook tersebut
Coba :
dim wbkNew as workbook
set wbknew=workbooks.add
wbknew.saveas "z:\data\namafilebaru.xlsx"
Kid.
On Wed, Mar 28, 2012 at 21:02, ChubbyMike <the_x_mikey@yahoo.com > wrote:
> **
>
>
> ** Hi kid, code yg kamu berikan itu berjalan dengan sempurna,
> Boleh nanya 1 lg ga?
> Dalam macro yg sy buat itu membuat 1 workbook baru lg(file c), dari tadi
> saya coba otak atik.
> Kalau vfile dibawah itu artinya file yg dipilih sm user, gmn cara membuat
> vfile itu adalah workbook yg kita buat baru.
> Sent from my BlackBerry yg belum lunas
> --------------------- ---------
> *From: * "Kid Mr." <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups. com
> *Date: *Wed, 28 Mar 2012 17:11:49 +0700
> *To: *<belajar-excel@yahoogroups. >com
> *ReplyTo: * belajar-excel@yahoogroups. com
> *Subject: *Re: [belajar-excel] membuat workbook baru dan menjalankan
> macro di workbook tersebut
>
>
>
> Mungkin begini :
>
> Dim vFile As Variant
> Dim wbkFile As Workbook
> vFile = Application.GetOpenFilename( "Excel Files (*.xls), *.xls")
> If LenB(vFile) <> 0 Then
> Set wbkFile = Workbooks.Open(vFile)
> End If
>
> Kemudian semua kegiatan di file B bisa dilakukan dengan memanggil object
> wbkFile
> Misal :
> wbkfile.activate
> wbkfile.sheets(1).activate
> wbkfile.sheets(1).range( "d3:h19,z55: ab77").clearcont ents
>
> Kid.
>
> On Wed, Mar 28, 2012 at 16:52, Chubby Mike <the_x_mikey@yahoo.com > wrote:
>
>> **
>>
>>
>> hi all,
>>
>> tolong bantuannya membuat macro seperti judul diatas dong.
>>
>> deskripsi :
>> saya mau membuat commandbutton (di file A) yg jika diklik, user harus
>> memilih file excel (file b) dimana macro akan berjalan di file A tersebut.
>>
>> saya sudah coba
>>
>> newfile = application.getopenfilename( filefilter: ="Excel Files
>> (*.xls),*.xls", title:="please select a file")
>>
>> tapi sayangnya macro saya berjalan di file A sehingga terjadi error.
>>
>> bagaimana cara membuat file B menjadi aktif setelah dibuat
>>
>> thanks in advance
>> Mike
>>
>>
>
>
- 1g.
-
Re: membuat workbook baru dan menjalankan macro di workbook tersebut
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Wed Mar 28, 2012 8:13 am (PDT)
Jika error pada baris saveas, maka pastikan folder dan akses ke drivenya
ada.
Yang jelas, baris :
*Wbknew.range("a2").value = "bca"*
jelas salah, karena tidak memenuhi kaidah object model yang ada, yaitu :
Workbook.Sheet.Range
Jadi range("a2") itu harusnya disebut ketika nama sheetnya sudah disebut
lebih dulu.
Kid.
On Wed, Mar 28, 2012 at 21:54, ChubbyMike <the_x_mikey@yahoo.com > wrote:
> **
>
>
> ** Hi kid,
>
> Sy sudah coba code ini dibawah tp tidak dpt disave dan tidak bisa bikin
> value di wbknew, malahan ada error 400
> Dim vFile As Variant
> Dim wbkFile As Workbook
> vFile = Application.GetOpenFilename
> If LenB(vFile) <> 0 Then
> Set wbkFile = Workbooks.Open(vFile)
> End If
> wbkfile.activate
> wbkfile.sheets(1).activate
> wbkfile.sheets(1).range( "a1").select
> Selection.entirerow.insert
> Activecell.value ="abc"
>
> Dim wbknew as workbook
> Set wbknew = workbooks.add
> Wbknew.saveas "c:\tes\tes.xls"
> Wbknew.range("a2").value = "bca"
>
>
> Sent from my BlackBerry yg belum lunas
> --------------------- ---------
> *From: * "Kid Mr." <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups. com
> *Date: *Wed, 28 Mar 2012 21:37:10 +0700
> *To: *<belajar-excel@yahoogroups. >com
> *ReplyTo: * belajar-excel@yahoogroups. com
> *Subject: *Re: [belajar-excel] membuat workbook baru dan menjalankan
> macro di workbook tersebut
>
>
>
> Coba :
>
> dim wbkNew as workbook
> set wbknew=workbooks.add
> wbknew.saveas "z:\data\namafilebaru.xlsx"
>
> Kid.
>
> On Wed, Mar 28, 2012 at 21:02, ChubbyMike <the_x_mikey@yahoo.com > wrote:
>
>> **
>>
>>
>> ** Hi kid, code yg kamu berikan itu berjalan dengan sempurna,
>> Boleh nanya 1 lg ga?
>> Dalam macro yg sy buat itu membuat 1 workbook baru lg(file c), dari tadi
>> saya coba otak atik.
>> Kalau vfile dibawah itu artinya file yg dipilih sm user, gmn cara membuat
>> vfile itu adalah workbook yg kita buat baru.
>> Sent from my BlackBerry yg belum lunas
>> --------------------- ---------
>> *From: * "Kid Mr." <mr.nmkid@gmail.com >
>> *Sender: * belajar-excel@yahoogroups. com
>> *Date: *Wed, 28 Mar 2012 17:11:49 +0700
>> *To: *<belajar-excel@yahoogroups. >com
>> *ReplyTo: * belajar-excel@yahoogroups. com
>> *Subject: *Re: [belajar-excel] membuat workbook baru dan menjalankan
>> macro di workbook tersebut
>>
>>
>>
>> Mungkin begini :
>>
>> Dim vFile As Variant
>> Dim wbkFile As Workbook
>> vFile = Application.GetOpenFilename( "Excel Files (*.xls), *.xls")
>> If LenB(vFile) <> 0 Then
>> Set wbkFile = Workbooks.Open(vFile)
>> End If
>>
>> Kemudian semua kegiatan di file B bisa dilakukan dengan memanggil object
>> wbkFile
>> Misal :
>> wbkfile.activate
>> wbkfile.sheets(1).activate
>> wbkfile.sheets(1).range( "d3:h19,z55: ab77").clearcont ents
>>
>> Kid.
>>
>> On Wed, Mar 28, 2012 at 16:52, Chubby Mike <the_x_mikey@yahoo.com > wrote:
>>
>>> **
>>>
>>>
>>> hi all,
>>>
>>> tolong bantuannya membuat macro seperti judul diatas dong.
>>>
>>> deskripsi :
>>> saya mau membuat commandbutton (di file A) yg jika diklik, user harus
>>> memilih file excel (file b) dimana macro akan berjalan di file A tersebut.
>>>
>>> saya sudah coba
>>>
>>> newfile = application.getopenfilename( filefilter: ="Excel Files
>>> (*.xls),*.xls", title:="please select a file")
>>>
>>> tapi sayangnya macro saya berjalan di file A sehingga terjadi error.
>>>
>>> bagaimana cara membuat file B menjadi aktif setelah dibuat
>>>
>>> thanks in advance
>>> Mike
>>>
>>>
>>
>
>
- 1h.
-
Re: membuat workbook baru dan menjalankan macro di workbook tersebut
Posted by: "ChubbyMike" the_x_mikey@yahoo.com the_x_mikey
Wed Mar 28, 2012 8:32 am (PDT)
Ic, jadi harusnya wbknew.sheets(1).range( "a2").value = "bca" ya
Thanks a lot Kid
Sent from my BlackBerry yg belum lunas
-----Original Message-----
From: "Kid Mr." <mr.nmkid@gmail.com >
Sender: belajar-excel@yahoogroups. com
Date: Wed, 28 Mar 2012 22:12:41
To: <belajar-excel@yahoogroups. >com
Reply-To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] membuat workbook baru dan menjalankan macro di
workbook tersebut
Jika error pada baris saveas, maka pastikan folder dan akses ke drivenya
ada.
Yang jelas, baris :
*Wbknew.range("a2").value = "bca"*
jelas salah, karena tidak memenuhi kaidah object model yang ada, yaitu :
Workbook.Sheet.Range
Jadi range("a2") itu harusnya disebut ketika nama sheetnya sudah disebut
lebih dulu.
Kid.
On Wed, Mar 28, 2012 at 21:54, ChubbyMike <the_x_mikey@yahoo.com > wrote:
> **
>
>
> ** Hi kid,
>
> Sy sudah coba code ini dibawah tp tidak dpt disave dan tidak bisa bikin
> value di wbknew, malahan ada error 400
> Dim vFile As Variant
> Dim wbkFile As Workbook
> vFile = Application.GetOpenFilename
> If LenB(vFile) <> 0 Then
> Set wbkFile = Workbooks.Open(vFile)
> End If
> wbkfile.activate
> wbkfile.sheets(1).activate
> wbkfile.sheets(1).range( "a1").select
> Selection.entirerow.insert
> Activecell.value ="abc"
>
> Dim wbknew as workbook
> Set wbknew = workbooks.add
> Wbknew.saveas "c:\tes\tes.xls"
> Wbknew.range("a2").value = "bca"
>
>
> Sent from my BlackBerry yg belum lunas
> --------------------- ---------
> *From: * "Kid Mr." <mr.nmkid@gmail.com >
> *Sender: * belajar-excel@yahoogroups. com
> *Date: *Wed, 28 Mar 2012 21:37:10 +0700
> *To: *<belajar-excel@yahoogroups. >com
> *ReplyTo: * belajar-excel@yahoogroups. com
> *Subject: *Re: [belajar-excel] membuat workbook baru dan menjalankan
> macro di workbook tersebut
>
>
>
> Coba :
>
> dim wbkNew as workbook
> set wbknew=workbooks.add
> wbknew.saveas "z:\data\namafilebaru.xlsx"
>
> Kid.
>
> On Wed, Mar 28, 2012 at 21:02, ChubbyMike <the_x_mikey@yahoo.com > wrote:
>
>> **
>>
>>
>> ** Hi kid, code yg kamu berikan itu berjalan dengan sempurna,
>> Boleh nanya 1 lg ga?
>> Dalam macro yg sy buat itu membuat 1 workbook baru lg(file c), dari tadi
>> saya coba otak atik.
>> Kalau vfile dibawah itu artinya file yg dipilih sm user, gmn cara membuat
>> vfile itu adalah workbook yg kita buat baru.
>> Sent from my BlackBerry yg belum lunas
>> --------------------- ---------
>> *From: * "Kid Mr." <mr.nmkid@gmail.com >
>> *Sender: * belajar-excel@yahoogroups. com
>> *Date: *Wed, 28 Mar 2012 17:11:49 +0700
>> *To: *<belajar-excel@yahoogroups. >com
>> *ReplyTo: * belajar-excel@yahoogroups. com
>> *Subject: *Re: [belajar-excel] membuat workbook baru dan menjalankan
>> macro di workbook tersebut
>>
>>
>>
>> Mungkin begini :
>>
>> Dim vFile As Variant
>> Dim wbkFile As Workbook
>> vFile = Application.GetOpenFilename( "Excel Files (*.xls), *.xls")
>> If LenB(vFile) <> 0 Then
>> Set wbkFile = Workbooks.Open(vFile)
>> End If
>>
>> Kemudian semua kegiatan di file B bisa dilakukan dengan memanggil object
>> wbkFile
>> Misal :
>> wbkfile.activate
>> wbkfile.sheets(1).activate
>> wbkfile.sheets(1).range( "d3:h19,z55: ab77").clearcont ents
>>
>> Kid.
>>
>> On Wed, Mar 28, 2012 at 16:52, Chubby Mike <the_x_mikey@yahoo.com > wrote:
>>
>>> **
>>>
>>>
>>> hi all,
>>>
>>> tolong bantuannya membuat macro seperti judul diatas dong.
>>>
>>> deskripsi :
>>> saya mau membuat commandbutton (di file A) yg jika diklik, user harus
>>> memilih file excel (file b) dimana macro akan berjalan di file A tersebut.
>>>
>>> saya sudah coba
>>>
>>> newfile = application.getopenfilename( filefilter: ="Excel Files
>>> (*.xls),*.xls", title:="please select a file")
>>>
>>> tapi sayangnya macro saya berjalan di file A sehingga terjadi error.
>>>
>>> bagaimana cara membuat file B menjadi aktif setelah dibuat
>>>
>>> thanks in advance
>>> Mike
>>>
>>>
>>
>
>
- 2a.
-
Re: array list file #N/A di kondisikan kosong ( Tidak ada )
Posted by: "Dayat" dayatshogun46@yahoo.co.id dayatshogun46
Wed Mar 28, 2012 8:58 am (PDT)
Dear master exceler
Menyambung cerita lama untuk list file
Mohon pencerahannya tambahan macronya, karena saya sudah mengikuti prosedur yanG di sarankan namun terkendala ketika mengetikkan manual didalam combolistnya jika jawaban tidak ada dalam daftar file yang dituju maka macronya error, trus nama file yang muncul di combobooknya ber extention .jpg, apakah extention bisa di hilangkan sehingga hanya nama file saja yang akan diprosess. Trims
Regard's
Nor Hidayat
--- In belajar-excel@yahoogroups. , i Haps <hapsari.stlizbeth@com ...> wrote:
>
> 1.
> Benar kata Ki Ageng Semprul... "dibuat *PROSEDUR SUB*" saja !
> Kalau keperluannya HANYA untuk mengisi Combobox, kita tidak perlu makro UDF
> (Prosedur Function)
> * > and then: UDF ditulis di Sheet sbg array formula (yang kalau cell
> terpakai lebih banyak dari array yg didapat mendatangkan err Value #N/A)
> * > and then: list yg terjadi di sheet (karena formula berbantuan UDF itu)
> dipakai sebagai ROW-SOURCE bagi si Combo
> Muter seperti gasingan, salah salah malah bisa 'cenat-cenut' sendiri lho
> rèk..
>
> 2.
> Agak herannya, sudah ditunggu-tunggu, tapi pak nor hidayat, tidak berkenan
> untuk menyebutkan sumber makronya dan tidak pula menyertakan lampiran
> workbooknya.
> Sedangkan kalau bicara soal makro di excel, jika Lahan/"Area bermainnya
> makro" (biasanya sheet + cellsnya) tidak di tunjukkan, para calon penanggap
> biasanya menurun niat membantu-nya; karena tentu 'ogah' kalau harus
> mengarang sendiri segala macam data, form dsb.
> (idealnya 'kan sebelum VBA-code dilempar ke JalUm, harus sudah di test di
> LAHAN & AREA bermainnya makro yg sesuai) agar tidak terlalu banyak
> kesalahan yg menundang pertanyaan baru..
>
> 3.
> Terlampir file terkompress berisi sebuah folder yg didalamnya berisi file 1
> XLSM dan beberapa contoh Image-File
> (berhubung filesize nya 538KB (berisi banyak *jpg) file dapat anda unduh
> sendiri di sini
> http://www.box.com/s/aglpxtqyqy jj3nia1stl
>
> Di sheet 1; jika tombol X di ceklik, akan dimunculkan Userform1
> Tetapi sesaat sebelum dimunculkan (yaitu ketika terjadi event ititialize)
> sebuah Combobox di dalam userform tsb di isi items yg berupa text nama-nama
> file, ASAL BUKAN file excel berisi makro pengendalinya (ThisWorkbook.Name)
> Di makro ini diberi BONUS : FileList (yg diumpankan ke Combobox) juga
> ditulis di Kolom G, hanya untuk pajangan saja!, agar penonton tidak kecewa..
>
> Setelah Userform Aktif, jika Combobox di pilih salah satu ITEMnya / diganti
> VALUE-nya (=terjadi event Change) , maka file gambar yg "KEBETULAN"
> namanya terpampang di Combobox di panggil untuk di LOAD ke object Image yg
> ada di UserForm itu juga.
>
> Cuma begitu kan ?!
>
> Yg perlu di catat adalah: setiap Userform di LOAD, Items di dalam si Combo
> selalu di refresh isinya (dengan TEXT nama semua file yg seFolder dengan
> ThisWorkbook, selain nama ThisWorkbook itu sendiri).
> Keadaan ini mengakibatkan: jika anda menambah atau mengurangi cacah files
> dalam "seFolder" itu ataupun me-RENAME beberapa nama files; maka Combobox
> (dan juga daftar di kolom G) akan selalu SESUAI dengan daftar file yg ada
> di "SeFolder" tsb.
>
> Mudah-mudahan seperti itu yg diinginkan oleh pak nor hidayat..
>
> [image: Inline image 1]
>
> Private *Sub* GetFileList( _
>
> Optional sPath As String = vbNullString, _
>
> Optional sKriteria As String = vbNullString)
>
> ' modifikasi: iHapsari / smg, 25 Feb 2012
>
> '-------------------- --------- -
>
> Dim sFile As String, sCari As String
>
>
>
> If LenB(sPath) = 0 Then
>
> sPath = ThisWorkbook.Path & "\"
>
> Else
>
> If Right$(sPath, 1) <> "\" Then sPath = ThisWorkbook.Path & "\"
>
> End If
>
> sCari = IIf(LenB(sKriteria) = 0, "*", sKriteria)
>
>
>
> Application.DisplayAlerts = False
>
> Application.EnableEvents = False
>
>
> ' Loop langsung mengisi Combobox
>
> sFile = Dir$(sPath & sCari)
>
> Do While LenB(sFile) <> 0
>
> If Not sFile = ThisWorkbook.Name Then
>
> CboName.AddItem sFile
>
> ' 2 baris di bawah ini hanya untuk HIBURAN Anda saja
>
> ' (= mengisi nama file ke Sheet1 kolom G) / boleh dihapus.
>
> i = i + 1: Range("G" & i) = sFile
>
> End If
>
> sFile = Dir$
>
> Loop
>
>
>
> Application.EnableEvents = True
>
> Application.DisplayAlerts = True
>
> End Sub
>
> '--------
>
>
> Unduh Lampiran: http://www.box.com/s/aglpxtqyqy jj3nia1stl
>
>
> maarweg - 5000 koln / 26 feb 2012
> - i -
>
>
>
> 2012/2/25 Ki Semprul <semprul.ki@...>
>
> > **
> > Dibuat sbg prosedur Sub saja, jangan prosedur Fungsi.
> > Jadi penulisannya ke range selalu PAS dengan jumlah temuan
> >
> > On Sat, Feb 25, 2012 at 7:36 AM, nor hidayat <dayatshogun46@...>
> > wrote:
> > > Mohon bantuan exceler untuk masalah array
> > >
> > > Macro List file yang saya gunakan seperti dibawah ini.
> > > > Public Function GetFileList( _
> > > > Optional sPath As String = vbNullString, _
> > > > Optional sKriteria As String = vbNullString, _
> > > > Optional lResultAsArray As Long = 0) As Variant
> > > > ' ---bla bla bla ----
> > > > End Function
> > >
> > > Namun hasil bila tidak ada file = #N/A, yang saya inginkan bagai mana
> > jika array #N/A
> >
> > dikondisikian kosong seperti data sel yang belum terisi.
> >
> >
> >
>
- 2b.
-
Re: array list file #N/A di kondisikan kosong ( Tidak ada )
Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull
Wed Mar 28, 2012 10:46 am (PDT)
Ysh Bapak Dayat Shogun...
Bapak datang sbg pendekar bertangan kosong, tak selembar data pun
diajukan sbg contoh
(misal "oret-oretan yg KATANYA sudah mengikuti prosedur yg
disarankan", seperti apa ?)
- padahal kasus yg Bapak ajukan adalah kasus yg sudah lewat 1 bulan y.l
( http://tech.groups.yahoo. )com/group/ belajar-excel/ message/15978
- sebulan yg lalu ketika diberikan 1 FILE jawaban ( *rar berisi
kompresi 1 folder / 43 files
sebesar 696 KB; / (banyaknya file contoh gambar menunjukkan
seriusnya pemberi solusi)
tetapi sejak diberikan sampai saat ini: tidak pernah Bapak kabarkan
apakah sudah diunduh
& dicoba atau belum) ??
Saya juga sangat yakin bahwa tanggapan ini pun tidak akan anda tanggapi..
Lalu... Dengan "cara & perila..(maaf)" seperti itu, Apakah yg masih
Bapak harapkan ?
Apakah kira-kira ada orang yg masih tertarik (termasuk si pemberi
solusi sebelumnya) ?
Baik kita lupakan saja hal-2 diatas karena itu sudah menjadi urusan
QOLBU kita masing2
(jawaban A)
Combobox itu ketika muncul selau berisi items pilihan: nama-2 file yg
memang ADA
di dalan folder (jika tidak ada = tidak akan didaftar sebagai item
pada Combobox)
Jadi mengapa Bapak masih mengetikkan manual di combo List ? (padahal ada cara
menentukan nama file, hanya dengan MEMILIH salah satu item yg ada di List ??
(jawaban B)
Text Nama file yg akhirnya muncul lengkap dengan *.JPG nya; Kalau
semua extensi file
gambar pasati = *JPG dengan mudah dapat dihilangkan *.JPG (extensi) nya
Lihat di dalam Loop Do While
CboName.AddItem sFile
i = i + 1
Range("G" & i).Value = sFile
diganti dengan
CboName.AddItemReplace(ucase( sFile), ".JPG")
i = i + 1
Range("G" & i).Value = Replace(ucase(sFile), ".JPG")
Ketika saatnya dipanggil codenya juga harus disesuaikan, (lihat
Event-Prosedur Cbo_Name_Change)
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName))
diganti dengan
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".JPG"))
Tricky dikit ndak pa pa kok Pak...dari pada diam-diam error
Tidak ada lampiran di posting ini, tetapi tetap merujuk ke link yg
telah diberikan neng iHaps sebulan.y.l.
Semprul..Ki!
( as requested by Neng iHaps asli ( he he..), karena sedang tak-ada
koneksi i'net )
2012/3/28 Dayat <dayatshogun46@yahoo.co. >id
>
> Menyambung cerita lama untuk list file
> Mohon pencerahannya tambahan macronya, karena saya sudah mengikuti prosedur yanG di sarankan namun terkendala ketika mengetikkan manual didalam combolistnya jika jawaban tidak ada dalam daftar file yang dituju maka macronya error, trus nama file yang muncul di combobooknya ber extention .jpg, apakah extention bisa di hilangkan sehingga hanya nama file saja yang akan diprosess. Trims
>
> Regard's
> Nor Hidayat
>
> --- In belajar-excel@yahoogroups. , i Haps <hapsari.stlizbeth@com ...> wrote:
> >
> > 1.
> > Benar kata Ki Ageng Semprul... "dibuat *PROSEDUR SUB*" saja !
>
> > Kalau keperluannya HANYA untuk mengisi Combobox, kita tidak perlu makro UDF
> > (Prosedur Function)
> > * > and then: UDF ditulis di Sheet sbg array formula (yang kalau cell
> > terpakai lebih banyak dari array yg didapat mendatangkan err Value #N/A)
> > * > and then: list yg terjadi di sheet (karena formula berbantuan UDF itu)
> > dipakai sebagai ROW-SOURCE bagi si Combo
> > Muter seperti gasingan, salah salah malah bisa 'cenat-cenut' sendiri lho
> >
> > 2.
> > Agak herannya, sudah ditunggu-tunggu, tapi pak nor hidayat, tidak berkenan
> > untuk menyebutkan sumber makronya dan tidak pula menyertakan lampiran
> > workbooknya.
> > Sedangkan kalau bicara soal makro di excel, jika Lahan/"Area bermainnya
> > makro" (biasanya sheet + cellsnya) tidak di tunjukkan, para calon penanggap
> > biasanya menurun niat membantu-nya; karena tentu 'ogah' kalau harus
> > mengarang sendiri segala macam data, form dsb.
> > (idealnya 'kan sebelum VBA-code dilempar ke JalUm, harus sudah di test di
> > LAHAN & AREA bermainnya makro yg sesuai) agar tidak terlalu banyak
> > kesalahan yg menundang pertanyaan baru..
> >
> > 3.
> > Terlampir file terkompress berisi sebuah folder yg didalamnya berisi file 1
> > XLSM dan beberapa contoh Image-File
> > (berhubung filesize nya 538KB (berisi banyak *jpg) file dapat anda unduh
> > sendiri di sini
> >
> > Di sheet 1; jika tombol X di ceklik, akan dimunculkan Userform1
> > Tetapi sesaat sebelum dimunculkan (yaitu ketika terjadi event ititialize)
> > sebuah Combobox di dalam userform tsb di isi items yg berupa text nama-nama
> > file, ASAL BUKAN file excel berisi makro pengendalinya (ThisWorkbook.Name)
> > Di makro ini diberi BONUS : FileList (yg diumpankan ke Combobox) juga
> > ditulis di Kolom G, hanya untuk pajangan saja!, agar penonton tidak kecewa..
> >
> > Setelah Userform Aktif, jika Combobox di pilih salah satu ITEMnya / diganti
> > VALUE-nya (=terjadi event Change) , maka file gambar yg "KEBETULAN"
> > namanya terpampang di Combobox di panggil untuk di LOAD ke object Image yg
> > ada di UserForm itu juga.
> > Cuma begitu kan ?!
> >
> > Yg perlu di catat adalah: setiap Userform di LOAD, Items di dalam si Combo
> > selalu di refresh isinya (dengan TEXT nama semua file yg seFolder dengan
> > ThisWorkbook, selain nama ThisWorkbook itu sendiri).
> > Keadaan ini mengakibatkan: jika anda menambah atau mengurangi cacah files
> > dalam "seFolder" itu ataupun me-RENAME beberapa nama files; maka Combobox
> > (dan juga daftar di kolom G) akan selalu SESUAI dengan daftar file yg ada
> > di "SeFolder" tsb.
> >
> > Mudah-mudahan seperti itu yg diinginkan oleh pak nor hidayat..
> > [ text code VBA - cut -- ]
> > iHaps
> > maarweg - 5000 koln / 26 feb 2012
- 2c.
-
Re: array list file #N/A di kondisikan kosong ( Tidak ada )
Posted by: "nor hidayat" dayatshogun46@yahoo.co.id dayatshogun46
Wed Mar 28, 2012 5:44 pm (PDT)
Selamat pagi
Salam untuk semua para exceler
Terimakasih atas wejangan dari Ki Semprul, memang seharusnya dalam suatu pembahasan harus ada repons dari si pelempar soal, dan saya sebagai penanya mungkin agak kurang response atau mungkin dikarenakan BBM naik maka jatah untuk ngenet modem berkurang mengikuti situasi saat ini, hihihi ( Modem Sakaratul Maut ), saya memaklumi hal itu dan sangatlah wajar bila terjadi, untuk itu kembali saya mengucapkan terimakasih atas semuanya, dan terimakasih untuk Ki Semprul yang sudah menjawab, saya akan coba saran yang Ki Sempul berikan. untuk file tersebut sudah saya unduh dan mulai mencoba, namun mengingat file terlalu besar sepertinya sulit untuk di lampirkan.
SalamÂ
Nor Hidayat
===================== ========= ========= =======
Mods Note:
Sekalian menambahkan: ada titipan sms dari Ki Semprul,
memberitahu ada salah tulis pada kiat menghilangkan ".JPG"
pada tiap file Gambar type *.JPG
Range("G" & i).Value = Replace(ucase(sFile), ".JPG")
seharusnya
Range("G" & i).Value = Replace(uCase(sFile), ".JPG", "")
Jadi Fungsi Replace milik VBA adalah padanan fungsi
SUBSTITUTE milik Worksheet, percayalah !
===================== ========= ========= =======
--- Pada Kam, 29/3/12, Ki Semprul <semprul.ki@gmail.com > menulis:
Dari: Ki Semprul <semprul.ki@gmail.com >
Kepada: belajar-excel@yahoogroups. com
Tanggal: Kamis, 29 Maret, 2012, 12:45 AM
Ysh Bapak Dayat Shogun...
Bapak datang sbg pendekar bertangan kosong, tak selembar data pun
diajukan sbg contoh
(misal "oret-oretan yg KATANYA sudah mengikuti prosedur yg
disarankan", seperti apa ?)
- padahal kasus yg Bapak ajukan adalah kasus yg sudah lewat 1 bulan y.l
( http://tech.groups.yahoo. )com/group/ belajar-excel/ message/15978
- sebulan yg lalu ketika diberikan 1 FILE jawaban ( *rar berisi
kompresi 1 folder / 43 files
 sebesar 696 KB; /  (banyaknya file contoh gambar menunjukkan
seriusnya pemberi solusi)
 tetapi sejak diberikan sampai saat ini:  tidak pernah Bapak kabarkan
apakah sudah diunduh
 & dicoba atau belum) ??
Saya juga sangat yakin bahwa tanggapan ini pun tidak akan anda tanggapi..
Lalu... Dengan "cara & perila..(maaf)" seperti itu, Apakah yg masih
Bapak harapkan ?
Apakah kira-kira ada orang yg masih tertarik (termasuk si pemberi
solusi sebelumnya) ?
Baik kita lupakan saja hal-2 diatas karena itu sudah menjadi urusan
QOLBU kita masing2
(jawaban A)
Combobox itu ketika muncul selau berisi items pilihan: nama-2 file yg
memang ADA
di dalan folder (jika tidak ada = tidak akan didaftar sebagai item
pada Combobox)
Jadi mengapa Bapak masih mengetikkan manual di combo List ? (padahal ada cara
menentukan nama file, hanya dengan MEMILIH salah satu item yg ada di List ??
(jawaban B)
Text Nama file yg akhirnya muncul lengkap dengan *.JPG nya; Kalau
semua extensi file
gambar pasati = *JPG dengan mudah dapat dihilangkan *.JPG (extensi) nya
Lihat di dalam Loop Do While
CboName.AddItem sFile
i = i + 1
Range("G" & i).Value = sFile
diganti dengan
CboName.AddItemÂReplace(ucase( sFile), ".JPG")
i = i + 1
Range("G" & i).Value = Replace(ucase(sFile), ".JPG")
Ketika saatnya dipanggil codenya juga harus disesuaikan, (lihat
Event-Prosedur Cbo_Name_Change)
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName))
diganti dengan
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".JPG"))
Tricky dikit ndak pa pa kok Pak...dari pada diam-diam error
Tidak ada lampiran di posting ini, tetapi tetap merujuk ke link yg
telah diberikan neng iHaps sebulan.y.l.
Semprul..Ki!
( as requested by Neng iHaps asli ( he he..), karena sedang tak-ada
koneksi i'net )
- 2d.
-
Re: array list file #N/A di kondisikan kosong ( Tidak ada )
Posted by: "nor hidayat" dayatshogun46@yahoo.co.id dayatshogun46
Wed Mar 28, 2012 7:18 pm (PDT)
Selamat siang
setelah dalam tahap uji coba formula dari Ki Semprul
  ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
maka al hasil masih belum bisa, yang terjadi run time error '53' (file not Found)
sedikit gambaran extention yang inginkan adalah cboname hanya menampilkan nama file tidak disertai extention.
contoh
Â
dengan formula
Option Explicit
Dim i As Long
Private Sub CboName_Change()
  ' ex ctv / modified: iHaps 25Feb2012
  Dim pfName As String
  'file img harus se-Folder dgn xls tempat makro ditulis
  pfName = ThisWorkbook.Path & "\" & CboName.Value
  ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
End Sub
Private Sub UserForm_Initialize()
  ' ex ctv / modified: iHaps 25Feb2012
 Â
  CboName.Clear
  Range("G1").CurrentRegion. ClearContents
  Call GetFileList
 Â
End Sub
Private Sub GetFileList( _
       Optional sPath As String = vbNullString, _
       Optional sKriteria As String = vbNullString)
      Â
  Dim sFile As String, sCari As String
 Â
  If LenB(sPath) = 0 Then
     sPath = ThisWorkbook.Path & "\"
  Else
     If Right$(sPath, 1) <> "\" Then sPath = ThisWorkbook.Path & "\"
  End If
  sCari = IIf(LenB(sKriteria) = 0, "*", sKriteria)
 Â
  Application.DisplayAlerts = False
  Application.EnableEvents = False
 Â
  sFile = Dir$(sPath & sCari)
  Do While LenB(sFile) <> 0
     If Not sFile = ThisWorkbook.Name Then
        CboName.AddItem sFile
        ' 2 baris di bawah ini hanya untuk HIBURAN Anda saja
        ' (= mengisi nama file ke Sheet1 kolom G)/ boleh dihapus.
        i = i + 1: Range("G" & i) = sFile
   Columns("G:G").Select
   Selection.Replace What:=".jpg", Replacement: ="", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat: =False, _
       ReplaceFormat:=False
   Sheet1.Cells(1, 1).Select
     End If
     sFile = Dir$
  Loop
  Application.EnableEvents = True
  Application.DisplayAlerts = True
End Sub
Mohon disesuaikan dengan rumus yang saya tuliskan.
--- Pada Kam, 29/3/12, nor hidayat <dayatshogun46@yahoo.co. > menulis:id
Dari: nor hidayat <dayatshogun46@yahoo.co. >id
Tanggal: Kamis, 29 Maret, 2012, 7:04 AM
Selamat pagi
Salam untuk semua para exceler
Terimakasih atas wejangan dari Ki Semprul, memang seharusnya dalam suatu pembahasan harus ada repons dari si pelempar soal, dan saya sebagai penanya mungkin agak kurang response atau mungkin dikarenakan BBM naik maka jatah untuk ngenet modem berkurang mengikuti situasi saat ini, hihihi ( Modem Sakaratul Maut ), saya memaklumi hal itu dan sangatlah wajar bila terjadi, untuk itu kembali saya mengucapkan terimakasih atas semuanya, dan terimakasih untuk Ki Semprul yang sudah menjawab, saya akan coba saran yang Ki Sempul berikan. untuk file tersebut sudah saya unduh dan mulai mencoba, namun mengingat file terlalu besar sepertinya sulit untuk di lampirkan.
SalamÂ
Nor Hidayat
===================== ========= ========= =======
Mods Note:
Sekalian menambahkan: ada titipan sms dari Ki Semprul,
memberitahu ada salah tulis pada kiat menghilangkan ".JPG"
pada tiap file Gambar type *.JPG
Range("G" & i).Value = Replace(ucase(sFile), ".JPG")
seharusnya
Range("G" & i).Value = Replace(uCase(sFile), ".JPG", "")
Jadi Fungsi Replace milik VBA adalah padanan fungsi
SUBSTITUTE milik Worksheet, percayalah !
===================== ========= ========= =======
- 2e.
-
Re: array list file #N/A di kondisikan kosong ( Tidak ada )
Posted by: "Ki Semprul" semprul.ki@gmail.com ki_semprull
Wed Mar 28, 2012 7:47 pm (PDT)
Seharusnya begini, hanya ditulis pada prosedur ( BUKAN FORMULA !! ) yg
diperbaiki saja
Dim i As Long '<< deklarasi di level Module
'-------------------- ----
Private Sub CboName_Change()
' ex ctv / modified: iHaps 25Feb2012
Dim pfName As String
'file img harus se-Folder dgn xls tempat makro ditulis
pfName = ThisWorkbook.Path & "\" & CboName.Value
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", *pfName & ".JPG")*)
End Sub
'-------------------- -----
Private Sub GetFileList( _
Optional sPath As String = vbNullString, _
Optional sKriteria As String = vbNullString)
Dim sFile As String, sCari As String
If LenB(sPath) = 0 Then
sPath = ThisWorkbook.Path & "\"
Else
If Right$(sPath, 1) <> "\" Then sPath = ThisWorkbook.Path & "\"
End If
sCari = IIf(LenB(sKriteria) = 0, "*", sKriteria)
Application.DisplayAlerts = False
Application.EnableEvents = False
sFile = Dir$(sPath & sCari)
Do While LenB(sFile) <> 0
If Not sFile = ThisWorkbook.Name Then
CboName.AddItem *Replace(UCase(sFile), ".JPG", "")*
i = i + 1:
* Range("G" & i) = Replace(UCase(sFile), ".JPG", "")*
End If
sFile = Dir$
Loop
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
'-------------------- --
NOTE: mengenai bagian yg diBlok dengan MerahMuda (di posting pak dayat)
pak Dayat memilih jalan yg tidak praktis, *(=METHOD Raplace)*
padahal ada cara yg praktis * (=FUNGTION Replace)* tadi sudah dicontohkan
Pemilihan *cara lain* = bukan masalah asal hasilnya benar, dan diketahui
maksudnya.
Untuk mengetahui penyebabnya, jalankan makro dan diberi Break-Point
Sebelumnya dibuka dulu Jendela LOCAL (VBE: menu View > Local Window)
Di Jendela Local, akan kelihatan nilai nilai setiap variable...
[image: Inline image 1]
Semprul..Ki!
'-------------------- --------- ------
2012/3/29 nor hidayat <dayatshogun46@yahoo.co. >id
>
> Selamat siang
> setelah dalam tahap uji coba formula dari Ki Semprul
>
> ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
>
> maka al hasil masih belum bisa, yang terjadi run time error '53' (file
not Found)
> sedikit gambaran extention yang inginkan adalah cboname hanya menampilkan
nama file tidak disertai extention.
> contoh
>
> dengan formula
>
> Option Explicit
> Dim i As Long
> Private Sub CboName_Change()
> ' ex ctv / modified: iHaps 25Feb2012
> Dim pfName As String
> 'file img harus se-Folder dgn xls tempat makro ditulis
> pfName = ThisWorkbook.Path & "\" & CboName.Value
> ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
> End Sub
>
> Private Sub UserForm_Initialize()
> ' ex ctv / modified: iHaps 25Feb2012
> CboName.Clear
> Range("G1").CurrentRegion. ClearContents
> Call GetFileList
> End Sub
>
> Private Sub GetFileList( _
> Optional sPath As String = vbNullString, _
> Optional sKriteria As String = vbNullString)
> Dim sFile As String, sCari As String
>
> If LenB(sPath) = 0 Then
> sPath = ThisWorkbook.Path & "\"
> Else
> If Right$(sPath, 1) <> "\" Then sPath = ThisWorkbook.Path & "\"
> End If
> sCari = IIf(LenB(sKriteria) = 0, "*", sKriteria)
>
> Application.DisplayAlerts = False
> Application.EnableEvents = False
>
> sFile = Dir$(sPath & sCari)
> Do While LenB(sFile) <> 0
> If Not sFile = ThisWorkbook.Name Then
*> CboName.AddItem sFile*
> ' 2 baris di bawah ini hanya untuk HIBURAN Anda saja
> ' (= mengisi nama file ke Sheet1 kolom G)/ boleh dihapus.
> i = i + 1: Range("G" & i) = sFile
> Columns("G:G").Select
> Selection.Replace What:=".jpg", Replacement: ="", LookAt:=xlPart, _
> SearchOrder:=xlByRows, MatchCase:=False, SearchFormat: =False, _
> ReplaceFormat:=False
> Sheet1.Cells(1, 1).Select
>
> End If
> sFile = Dir$
> Loop
> Application.EnableEvents = True
> Application.DisplayAlerts = True
> End Sub
>
> Mohon disesuaikan dengan rumus yang saya tuliskan.
>
- 2f.
-
Re: array list file #N/A di kondisikan kosong ( Tidak ada )
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Wed Mar 28, 2012 10:01 pm (PDT)
Coba bagian :
pfName = ThisWorkbook.Path & "\" & CboName.Value
ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
Diganti menjadi :
pfName = ThisWorkbook.Path & "\" & CboName.Value & ".jpg"
if lenb(dir$(pfname))<>0 then
ImgCL.Picture = LoadPicture(pfName)
endif
Wassalam.
Kid.
On Thu, Mar 29, 2012 at 08:17, nor hidayat <dayatshogun46@yahoo.co. >wrote:id
> pfName = ThisWorkbook.Path & "\" & CboName.Value
> ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
>
- 3a.
-
Meng-Highlight kolom yang di filter
Posted by: "andre pri" qlick@inbox.com andrepri@ymail.com
Wed Mar 28, 2012 9:12 pm (PDT)
Be Exceler's
Meng-Highlight (memberi warna atau menandai) kolom yang di filter dengan macro
Pertanyaan:
1. Bagaimana jika semua menggunakan macro, pada file terlampir kolom I1:P1 menggunakan formula,
Jika kolom yang digunakan sedikt tidak terlalu masalah tetapi jika kolom
yang digunakan banyak (sampai DE)maka kolom yang digunakan akan panjang
sekali kekanannya.
2. Jika ingin menggunakan formula (seperti file terlampir), di cell Q1
ada formula =NOW() yang me-refer ke cell A2 (format date),
bagaimana jika di kolom A2:A2 bukan tanggal (date)
apakah formulanya dirubah?.
br - andre
- 3b.
-
Re: Meng-Highlight kolom yang di filter
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Wed Mar 28, 2012 10:59 pm (PDT)
Hai Andre,
No 1.
Memberi warna header yang terfilter menggunakan conditional formatting
dengan macam Use Formula (Is Formula di xl2003), yang formulanya berbunyi :
=IsFiltered(A$1)
Syaratnya, workbook memiliki UDF bernama IsFiltered berikut ini :
Public Function IsFiltered(rng As Range) As Long
Dim lField As Long
IsFiltered = 0
With rng.Parent
If Not .AutoFilterMode Then
Exit Function
ElseIf Intersect(rng, .AutoFilter.Range) Is Nothing Then
Exit Function
End If
lField = rng.Column - .AutoFilter.Range.Resize( 1).Column + 1
If .AutoFilter.Filters(lField) .On Then
IsFiltered = .AutoFilter.Filters(lField) .Operator
End If
End With
End Function
terapkan conditional formatting untuk seluruh header dari tabel yang di
autofilter (dalam file contoh kasus adalah A1:G1), jadi hanya membutuhkan 1
conditional formatting per tabel.
No. 2
Mungkin bisa dijelaskan lebih detil,
1. Apa maksud Q1 merujuk ke A2 ? (bukankah di Q1 langsung diberi formula
=A2)
2. Apa maksud bukan bertipe date ?
3. Adakah contoh kasus dan hasil yang diinginkan yang memenuhi berbagai
kasus yang mungkin terjadi ?
Wassalam,
Kid.
On Thu, Mar 29, 2012 at 10:10, andre pri <qlick@inbox.com > wrote:
> **
>
>
> Be Exceler's
>
> Meng-Highlight (memberi warna atau menandai) kolom yang di filter dengan
> macro
>
> Pertanyaan:
>
> 1. Bagaimana jika semua menggunakan macro, pada file terlampir kolom I1:P1
> menggunakan formula,
> Jika kolom yang digunakan sedikt tidak terlalu masalah tetapi jika kolom
> yang digunakan banyak (sampai DE)maka kolom yang digunakan akan panjang
> sekali kekanannya.
>
> 2. Jika ingin menggunakan formula (seperti file terlampir), di cell Q1
> ada formula =NOW() yang me-refer ke cell A2 (format date),
> bagaimana jika di kolom A2:A2 bukan tanggal (date)
> apakah formulanya dirubah?.
>
> br - andre
>
>
>
- 4a.
-
Membuat schedule Excel, cell terisi otomatis
Posted by: "Agus Ramiyanto" aramiyanto@gmail.com
Wed Mar 28, 2012 9:13 pm (PDT)
Assalaamu 'alaikum wr. Wb.
Para pakar excel, mohon pencerahan (tanpa makro)
File terlampir,
bagaimana caranya (rumus atau conditional formatnya) agar
cellnya terisi warna sesuai start & finish datenya.
Terima kasih.
Salam,
Agus R - 4b.
-
Re: Membuat schedule Excel, cell terisi otomatis
Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis
Wed Mar 28, 2012 10:59 pm (PDT)
Alaikum-salam,
Dear Pak Agus Ram,
Ini memang tidak perlu makro karena di excel sudah ada fitur bernama
*Conditional Formatting:* Memformat range/cell secara otomatik berdasarkan
suatu kondisi
(Jika kita pandangi Ribbon: Ikon-nya ada di Group: Styled pada Tab HOME)
Kondisi yg dijadikan* syarat pewarnaan* cell-per-cell (berdasarkan
penjelasan yg kurang jelas
dari pak Agus Ram)
*[]* *Jika TAHUN & BULAN pada JUDUL KOLOM >= Tahun & Bulan pada StartDate*
* ** dan*
*[] Jika TAHUN & BULAN pada JUDUL KOLOM <= Tahun & Bulan pada EndDate*
Dlm *bahasa-Rumus-Excel* dua kondisi yg dirangkai dengan logika DAN itu
dapat
diformulasikan sbb: (menggunakan notasi pemisah argument = , (KOMA)
(mungkin di pc anda agak lain, gantilah dengan ; (titik-koma) )
*=AND(--TEXT(F$3,"YYYYMM" )>=--TEXT( $D4,"YYYYMM" ),*
* --TEXT(F$3,"YYYYMM")< =--TEXT($ E4,"YYYYMM" ) )*
Formulasi lain tentu masih ada...
[image: Inline image 1]
[image: Inline image 2]
*On Thu, Mar 29, 2012 at 10:37 AM, Agus Ramiyanto <aramiyanto@gmail.com >wrote:
*
>
> * *
>
> *Assalaamu 'alaikum wr. Wb.
> Para pakar excel, mohon pencerahan (tanpa makro)
>
> File terlampir,
> bagaimana caranya (rumus atau conditional formatnya) agar
> cellnya terisi warna sesuai start & finish datenya.
> Terima kasih.
>
> Salam,
> Agus R*
>
>
- 4c.
-
Re: Membuat schedule Excel, cell terisi otomatis
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Wed Mar 28, 2012 11:14 pm (PDT)
Waalaikumussalam Wr. Wb.
mb Rara : "Formulasi lain tentu masih ada..."
Misal : (pada cell aktif di F4), maka formula pada conditional formatting
bisa diekspresikan sebagai :
=(F$3>$D4-DAY($D4))*(F$ 3<=$E4)
Wassalamualaikum Wr. Wb.
Kid.
On Thu, Mar 29, 2012 at 12:59, Rara Wilis <ra2wilis@gmail.com > wrote:
> Alaikum-salam,
> Dear Pak Agus Ram,
>
> Ini memang tidak perlu makro karena di excel sudah ada fitur bernama
> *Conditional Formatting:* Memformat range/cell secara otomatik
> berdasarkan
> suatu kondisi
> (Jika kita pandangi Ribbon: Ikon-nya ada di Group: Styled pada Tab HOME)
>
> Kondisi yg dijadikan* syarat pewarnaan* cell-per-cell (berdasarkan
> penjelasan yg kurang jelas
> dari pak Agus Ram)
>
> *[]* *Jika TAHUN & BULAN pada JUDUL KOLOM >= Tahun & Bulan pada StartDate
> *
> * ** dan*
> *[] Jika TAHUN & BULAN pada JUDUL KOLOM <= Tahun & Bulan pada EndDate*
>
> Dlm *bahasa-Rumus-Excel* dua kondisi yg dirangkai dengan logika DAN itu
> dapat
> diformulasikan sbb: (menggunakan notasi pemisah argument = , (KOMA)
> (mungkin di pc anda agak lain, gantilah dengan ; (titik-koma) )
>
> *=AND(--TEXT(F$3,"YYYYMM" )>=--TEXT( $D4,"YYYYMM" ),*
> * --TEXT(F$3,"YYYYMM")< =--TEXT($ E4,"YYYYMM" ) )*
> Formulasi lain tentu masih ada...
>
> [image: Inline image 1]
>
>
>
>
>
> *On Thu, Mar 29, 2012 at 10:37 AM, Agus Ramiyanto <aramiyanto@gmail.com >wrote:
> *
>>
>> * *
>>
>> *Assalaamu 'alaikum wr. Wb.
>> Para pakar excel, mohon pencerahan (tanpa makro)
>>
>> File terlampir,
>> bagaimana caranya (rumus atau conditional formatnya) agar
>> cellnya terisi warna sesuai start & finish datenya.
>> Terima kasih.
>>
>> Salam,
>> Agus R*
>>
>>
- 4d.
-
Re: Membuat schedule Excel, cell terisi otomatis
Posted by: "utthank abe" abeutthank@gmail.com abe_utthank
Wed Mar 28, 2012 11:23 pm (PDT)
conditional formating-->=OR(MONTH( $D4)=MONTH( F$3);MONTH( E$4)=MONTH( F$3))
On 3/29/12, Kid Mr. <mr.nmkid@gmail.com > wrote:
> Waalaikumussalam Wr. Wb.
>
> mb Rara : "Formulasi lain tentu masih ada..."
>
> Misal : (pada cell aktif di F4), maka formula pada conditional formatting
> bisa diekspresikan sebagai :
> =(F$3>$D4-DAY($D4))*(F$ 3<=$E4)
>
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
> On Thu, Mar 29, 2012 at 12:59, Rara Wilis <ra2wilis@gmail.com > wrote:
>
>> Alaikum-salam,
>> Dear Pak Agus Ram,
>>
>> Ini memang tidak perlu makro karena di excel sudah ada fitur bernama
>> *Conditional Formatting:* Memformat range/cell secara otomatik
>> berdasarkan
>> suatu kondisi
>> (Jika kita pandangi Ribbon: Ikon-nya ada di Group: Styled pada Tab HOME)
>>
>> Kondisi yg dijadikan* syarat pewarnaan* cell-per-cell (berdasarkan
>> penjelasan yg kurang jelas
>> dari pak Agus Ram)
>>
>> *[]* *Jika TAHUN & BULAN pada JUDUL KOLOM >= Tahun & Bulan pada StartDate
>> *
>> * ** dan*
>> *[] Jika TAHUN & BULAN pada JUDUL KOLOM <= Tahun & Bulan pada EndDate*
>>
>> Dlm *bahasa-Rumus-Excel* dua kondisi yg dirangkai dengan logika DAN itu
>> dapat
>> diformulasikan sbb: (menggunakan notasi pemisah argument = , (KOMA)
>> (mungkin di pc anda agak lain, gantilah dengan ; (titik-koma) )
>>
>> *=AND(--TEXT(F$3,"YYYYMM" )>=--TEXT( $D4,"YYYYMM" ),*
>> * --TEXT(F$3,"YYYYMM")< =--TEXT($ E4,"YYYYMM" ) )*
>> Formulasi lain tentu masih ada...
>>
>> [image: Inline image 1]
>>
>>
>>
>>
>>
>> *On Thu, Mar 29, 2012 at 10:37 AM, Agus Ramiyanto
>> <aramiyanto@gmail.com >wrote:
>> *
>>>
>>> * *
>>>
>>> *Assalaamu 'alaikum wr. Wb.
>>> Para pakar excel, mohon pencerahan (tanpa makro)
>>>
>>> File terlampir,
>>> bagaimana caranya (rumus atau conditional formatnya) agar
>>> cellnya terisi warna sesuai start & finish datenya.
>>> Terima kasih.
>>>
>>> Salam,
>>> Agus R*
>>>
>>>
>
--
R125
- 4e.
-
Re: Membuat schedule Excel, cell terisi otomatis
Posted by: "Agus Ramiyanto" aramiyanto@gmail.com
Wed Mar 28, 2012 11:47 pm (PDT)
Wah! Terima kasih sekali untuk mbak Rara, Mr. Kid dan yang lain.
From: belajar-excel@yahoogroups. [mailto:belajar-excel@com yahoogroups. ]com
On Behalf Of utthank abe
Sent: Thursday, March 29, 2012 14:16
To: belajar-excel@yahoogroups. com
Subject: Re: [belajar-excel] Membuat schedule Excel, cell terisi otomatis
conditional formating-->=OR(MONTH( $D4)=MONTH( F$3);MONTH( E$4)=MONTH( F$3))
On 3/29/12, Kid Mr. <mr.nmkid@gmail.com <mailto:mr.nmkid%40gmail.com> >
wrote:
> Waalaikumussalam Wr. Wb.
>
> mb Rara : "Formulasi lain tentu masih ada..."
>
> Misal : (pada cell aktif di F4), maka formula pada conditional formatting
> bisa diekspresikan sebagai :
> =(F$3>$D4-DAY($D4))*(F$ 3<=$E4)
>
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
> On Thu, Mar 29, 2012 at 12:59, Rara Wilis <ra2wilis@gmail.com
<mailto:ra2wilis%40gmail.com> > wrote:
>
>> Alaikum-salam,
>> Dear Pak Agus Ram,
>>
>> Ini memang tidak perlu makro karena di excel sudah ada fitur bernama
>> *Conditional Formatting:* Memformat range/cell secara otomatik
>> berdasarkan
>> suatu kondisi
>> (Jika kita pandangi Ribbon: Ikon-nya ada di Group: Styled pada Tab HOME)
>>
>> Kondisi yg dijadikan* syarat pewarnaan* cell-per-cell (berdasarkan
>> penjelasan yg kurang jelas
>> dari pak Agus Ram)
>>
>> *[]* *Jika TAHUN & BULAN pada JUDUL KOLOM >= Tahun & Bulan pada StartDate
>> *
>> * ** dan*
>> *[] Jika TAHUN & BULAN pada JUDUL KOLOM <= Tahun & Bulan pada EndDate*
>>
>> Dlm *bahasa-Rumus-Excel* dua kondisi yg dirangkai dengan logika DAN itu
>> dapat
>> diformulasikan sbb: (menggunakan notasi pemisah argument = , (KOMA)
>> (mungkin di pc anda agak lain, gantilah dengan ; (titik-koma) )
>>
>> *=AND(--TEXT(F$3,"YYYYMM" )>=--TEXT( $D4,"YYYYMM" ),*
>> * --TEXT(F$3,"YYYYMM")< =--TEXT($ E4,"YYYYMM" ) )*
>> Formulasi lain tentu masih ada...
>>
>> [image: Inline image 1]
>>
>>
>>
>>
>>
>> *On Thu, Mar 29, 2012 at 10:37 AM, Agus Ramiyanto
>> <aramiyanto@gmail.com <mailto:aramiyanto%40gmail.com> >wrote:
>> *
>>>
>>> * *
>>>
>>> *Assalaamu 'alaikum wr. Wb.
>>> Para pakar excel, mohon pencerahan (tanpa makro)
>>>
>>> File terlampir,
>>> bagaimana caranya (rumus atau conditional formatnya) agar
>>> cellnya terisi warna sesuai start & finish datenya.
>>> Terima kasih.
>>>
>>> Salam,
>>> Agus R*
>>>
>>>
>
--
R125
- 5a.
-
Pindahkan data ke formulir
Posted by: "Mansor" dbpermatasari@gmail.com nbmy1980
Wed Mar 28, 2012 9:36 pm (PDT)
Para suhu BeExcel,
Gimana makronya.
Mengisi formulir ini dengan mengambil data dari Sheet data asli.
Satu halaman fomulir hanya menampung 22 ROW data.
Data seterusnya akan ditampung oleh formulir yang berikutnya.
Jumlah amaun di total perhalaman + halaman sebelumnya.
File dilampirkan.
Terima kasih.
Mansor
*Daftar nama* ** *Seksyen 10 (1)* ** ** ** ** ** ** ** *DAFTAR
NAMA PENERIMA * ** Pada 31 Disember ... Bitmap
Bil Nama ID Amaun *REMARK* * * * * atau paspor (USD) *(CATATAN)* 1 ABDUL
JALIL BIN HASSAN 0514255 35.00 2 ABDUL JALIL BIN HASSAN
10169194 180.00 3 ABDUL SATAR BIN IDRUS 23529930 175.00
4 ABDUL WAHAB ABD AZIZ 30616494 232.00 5 ABD
RAUF MAHMUD 41699144 20.00 6 ABDUL LATIF BIN HARUN 69993301
30.00 7 ABDULLAH HASHIM 69993301 100.00 8 ABD
RASID B DAUD 419995516 77.76 9 Hady Widjaya 976665544 77.76
10 Iyan 976665548 77.76 11 Sulistio Wahono
976665544 77.76
- 5b.
-
Re: Pindahkan data ke formulir
Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com
Wed Mar 28, 2012 11:52 pm (PDT)
Pak Mansor,
Butuh cell bantu untuk memudahkan proses. Cell bantu berupa jumlah records,
total halaman, dan halaman yang aktif.
Nomor disusun dengan formula : (berdasar cell bantu total halaman dan
halaman yang aktif)
=IF(($O$3-1)*22+(ROW( A15)-ROW( $A$13))/2< =$O$1,($O$ 3-1)*22+( ROW(A15)- ROW($A$13) )/2,"")
Data disusun dengan formula Index memanfaatkan kolom nomor.
Setelah itu, dibuat sebuah prosedur untuk menjalankan proses print.
Public Sub PrintApaHayo()
Dim lPage As Long
If Range("o2").Value > 0 Then
Range("o3").Value = 1
For lPage = 1 To Range("o2").Value
ActiveSheet.Calculate
Range("a1:j69").PrintPreview 'ganti printpreview jadi
printout untuk kirim ke printer
Range("o3").Value = lPage + 1
If MsgBox("Page : " & lPage + 1 & vbCrLf & "Print ?", vbYesNo +
vbQuestion, "Cetak") = vbNo Then
Exit For
End If
Next lPage
End If
End Sub
Wassalam.
Kid.
On Thu, Mar 29, 2012 at 11:18, Mansor <dbpermatasari@gmail.com > wrote:
> **
>
>
>
>
> Para suhu BeExcel,
>
> Gimana makronya.
>
>
> Mengisi formulir ini dengan mengambil data dari Sheet data asli.
>
> Satu halaman fomulir hanya menampung 22 ROW data.
>
> Data seterusnya akan ditampung oleh formulir yang berikutnya.
>
> Jumlah amaun di total perhalaman + halaman sebelumnya.
>
> File dilampirkan.
>
> Terima kasih.
>
> Mansor
>
>
> *Daftar nama* ** *Seksyen 10 (1)* ** ** ** ** ** ** ** *DAFTAR
> NAMA PENERIMA * ** Pada 31 Disember ... Bitmap
> Bil Nama ID Amaun *REMARK* * * * * atau paspor (USD) *(CATATAN)* 1 ABDUL
> JALIL BIN HASSAN 0514255 35.00 2 ABDUL JALIL BIN HASSAN
> 10169194 180.00 3 ABDUL SATAR BIN IDRUS 23529930 175.00
> 4 ABDUL WAHAB ABD AZIZ 30616494 232.00 5 ABD
> RAUF MAHMUD 41699144 20.00 6 ABDUL LATIF BIN HARUN
> 69993301 30.00 7 ABDULLAH HASHIM 69993301 100.00
> 8 ABD RASID B DAUD 419995516 77.76 9 Hady Widjaya
> 976665544 77.76 10 Iyan 976665548 77.76 11 Sulistio
> Wahono 976665544 77.76
>
>
>
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
---------------------------------------------------------------------
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