[belajar-excel] Digest Number 1566

Milis Belajar Microsoft Excel

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.

View All Topics | Create New Topic

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

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").clearcontents

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

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").clearcontents

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

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").clearcontents
>
> 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
>>
>>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

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").clearcontents
>
> 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
>>
>>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

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").clearcontents
>>
>> 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
>>>
>>>
>>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

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").clearcontents
>>
>> 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
>>>
>>>
>>
>
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)

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.com, i Haps <hapsari.stlizbeth@...> 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/aglpxtqyqyjj3nia1stl
>
> 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/aglpxtqyqyjj3nia1stl
>
>
> 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.
> >
> >
> >
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)

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

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.com, i Haps <hapsari.stlizbeth@...> 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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)

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 )

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)

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.id> menulis:

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)

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.id>wrote:

> pfName = ThisWorkbook.Path & "\" & CboName.Value
> ImgCL.Picture = LoadPicture(IIf(CboName = "", "", pfName & ".jpg"))
>

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

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.com [mailto:belajar-excel@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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

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

Back to top

Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)

Recent Activity

•  18
  New Members
•  2
  New Links

Visit Your Group

Yahoo! Groups

Small Business Group

A community for

small business owners

Y! Groups blog

The place to go

to stay informed

on Groups news!

Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Need to Reply?

Click one of the "Reply" links to respond to a specific message in the Daily Digest.

Create New Topic | Visit Your Group on the Web

Messages

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