10 New Messages
Digest #1718
Messages
Mon Aug 6, 2012 1:19 am (PDT) . Posted by:
"daniel_aho" daniel_aho
Trima kasih buat solusi yang diberikan buat Mr Kid, tapi saya coba kok
belum bisa ya? malah ada keterangan seperti gambar berikut yang saya
lampirkan kenapa ya? apa mungkin ada salah ketik atau apa? kalau bisa
tolong dibantu dilampirkan filenya, hehehehe....:-) :-)
Terima kasih,
daniel
On 06/08/2012 14:10, Kid Mr. wrote:
>
> Biasanya karen tipe data Pak,
>
> Perbedaan tipe data pada proses perbandingan dengan operator = < > dsb
> membutuhkan kesamaan tipe data agar sesuai. Jika tidak sama, maka tipe
> data teks akan selalu lebih dari tipe data numerik.
>
> Wassalam,
> Kid.
>
> 2012/8/6 dwint ruswanto <dwint.ruswanto@gmail.com
> <mailto:dwint.ruswanto@gmail.com >>
>
> Mr. Kid,
>
>
> untuk kasus ini, kenapa di komputer saya SumProduct menghasilkan
> hasil yang salah pada row 56 ya?
>
> 20612178 LVR-G 600 0
>
>
> Jika menggunakan SumIfs akan menghasilkan 600, tetapi SumProduct
> menghasilkan angka 0 ?
>
> wassalam,
>
> -dwint-
>
> Pada 6 Agustus 2012 13:41, Kid Mr. <mr.nmkid@gmail.com
> <mailto:mr.nmkid@gmail.com >> menulis:
>
> Pak Daniel,
>
> Pada Excel 2007 ke atas, coba gunakan fungsi SumIFs
> =SUMIFS( Transaksi!$C$4:$C$22, *Transaksi!$A$4:$A$22 , A3* ,
> *Transaksi!$B$4:$B$22 , B3* )
>
> Untuk semua versi Excel, bisa gunakan fungsi SumProduct
> =SUMPRODUCT( Transaksi!$C$4:$C$22 *
> *(Transaksi!$A$4:$A$22=A3)***(Transaksi!$B$4:$B$22=B3) *)
>
> Atau akan menggunakan array formula Sum
> =SUM( Transaksi!$C$4:$C$22 *
> *(Transaksi!$A$4:$A$22=A3)***(Transaksi!$B$4:$B$22=B3) *)
>
> Atau gunakan Sum tapi tanpa sebagai array formula
> =SUM( *Index( * Transaksi!$C$4:$C$22 *
> *(Transaksi!$A$4:$A$22=A3)***(Transaksi!$B$4:$B$22=B3) **, 0 )***)
>
> Wassalam,
> Kid.
>
>
>
> 2012/8/6 daniel_aho <daniel_aho@yahoo.co.id
> <mailto:daniel_aho@yahoo.co.id >>
>
> Dear para pakar2 Excel,
>
> mohon solusinya, bagaimana rumus untuk sumif / sumproduct
> dengan 2
> kriteria dan 2 sheet? untuk lebih jelasnya saya lampirkan
> filenya, Mohon
> dibantu.
>
> Maaf juga jika mungkin kasus seperti sudah pernah ada
> sebelumnya,
>
> Terima kasih,
>
> daniel
>
>
>
>
>
belum bisa ya? malah ada keterangan seperti gambar berikut yang saya
lampirkan kenapa ya? apa mungkin ada salah ketik atau apa? kalau bisa
tolong dibantu dilampirkan filenya, hehehehe....
Terima kasih,
daniel
On 06/08/2012 14:10, Kid Mr. wrote:
>
> Biasanya karen tipe data Pak,
>
> Perbedaan tipe data pada proses perbandingan dengan operator = < > dsb
> membutuhkan kesamaan tipe data agar sesuai. Jika tidak sama, maka tipe
> data teks akan selalu lebih dari tipe data numerik.
>
> Wassalam,
> Kid.
>
> 2012/8/6 dwint ruswanto <dwint.ruswanto@
> <mailto:dwint.ruswanto@
>
> Mr. Kid,
>
>
> untuk kasus ini, kenapa di komputer saya SumProduct menghasilkan
> hasil yang salah pada row 56 ya?
>
> 20612178 LVR-G 600 0
>
>
> Jika menggunakan SumIfs akan menghasilkan 600, tetapi SumProduct
> menghasilkan angka 0 ?
>
> wassalam,
>
> -dwint-
>
> Pada 6 Agustus 2012 13:41, Kid Mr. <mr.nmkid@gmail.
> <mailto:mr.nmkid@gmail.
>
> Pak Daniel,
>
> Pada Excel 2007 ke atas, coba gunakan fungsi SumIFs
> =SUMIFS( Transaksi!$C$
> *Transaksi!$
>
> Untuk semua versi Excel, bisa gunakan fungsi SumProduct
> =SUMPRODUCT( Transaksi!$C$
> *(Transaksi!
>
> Atau akan menggunakan array formula Sum
> =SUM( Transaksi!$C$
> *(Transaksi!
>
> Atau gunakan Sum tapi tanpa sebagai array formula
> =SUM( *Index( * Transaksi!$C$
> *(Transaksi!
>
> Wassalam,
> Kid.
>
>
>
> 2012/8/6 daniel_aho <daniel_aho@yahoo.
> <mailto:daniel_aho@yahoo.
>
> Dear para pakar2 Excel,
>
> mohon solusinya, bagaimana rumus untuk sumif / sumproduct
> dengan 2
> kriteria dan 2 sheet? untuk lebih jelasnya saya lampirkan
> filenya, Mohon
> dibantu.
>
> Maaf juga jika mungkin kasus seperti sudah pernah ada
> sebelumnya,
>
> Terima kasih,
>
> daniel
>
>
>
>
>
Mon Aug 6, 2012 1:22 am (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Mungkin komputer Pak Daniel menggunakan regional setting (dari control
panel operating system windows) adalah Indonesia.
Jika demikian, ganti seluruh karakter , (koma) dengan ; (titik koma).
Pastikan seluruh kurung telah sesuai dan berpasangan.
Kid.
2012/8/6 daniel_aho <daniel_aho@yahoo.co.id >
> **
>
>
> Trima kasih buat solusi yang diberikan buat Mr Kid, tapi saya coba kok
> belum bisa ya? malah ada keterangan seperti gambar berikut yang saya
> lampirkan kenapa ya? apa mungkin ada salah ketik atau apa? kalau bisa
> tolong dibantu dilampirkan filenya, hehehehe.... :-) :-)
>
> Terima kasih,
>
> daniel
>
>
>
>
>
>
> On 06/08/2012 14:10, Kid Mr. wrote:
>
>
>
> Biasanya karen tipe data Pak,
>
> Perbedaan tipe data pada proses perbandingan dengan operator = < > dsb
> membutuhkan kesamaan tipe data agar sesuai. Jika tidak sama, maka tipe data
> teks akan selalu lebih dari tipe data numerik.
>
> Wassalam,
> Kid.
>
> 2012/8/6 dwint ruswanto <dwint.ruswanto@gmail.com >
>
>>
>>
>> Mr. Kid,
>>
>> untuk kasus ini, kenapa di komputer saya SumProduct menghasilkan hasil
>> yang salah pada row 56 ya?
>>
>> 20612178 LVR-G 600 0
>> Jika menggunakan SumIfs akan menghasilkan 600, tetapi SumProduct
>> menghasilkan angka 0 ?
>>
>> wassalam,
>>
>> -dwint-
>>
>> Pada 6 Agustus 2012 13:41, Kid Mr. <mr.nmkid@gmail.com > menulis:
>>
>>
>>>
>>> Pak Daniel,
>>>
>>> Pada Excel 2007 ke atas, coba gunakan fungsi SumIFs
>>> =SUMIFS( Transaksi!$C$4:$C$22 , *Transaksi!$A$4:$A$22 , A3* , *Transaksi!$B$4:$B$22
>>> , B3* )
>>>
>>> Untuk semua versi Excel, bisa gunakan fungsi SumProduct
>>> =SUMPRODUCT( Transaksi!$C$4:$C$22 * *(Transaksi!$A$4:$A$22=A3)* **(Transaksi!$B$4:$B$22=B3)
>>> *)
>>>
>>> Atau akan menggunakan array formula Sum
>>> =SUM( Transaksi!$C$4:$C$22 * *(Transaksi!$A$4:$A$22=A3)* **(Transaksi!$B$4:$B$22=B3)
>>> *)
>>>
>>> Atau gunakan Sum tapi tanpa sebagai array formula
>>> =SUM( * Index( * Transaksi!$C$4:$C$22 * *(Transaksi!$A$4:$A$22=A3)* **(Transaksi!$B$4:$B$22=B3)
>>> ** , 0 )** *)
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>> 2012/8/6 daniel_aho <daniel_aho@yahoo.co.id >
>>>
>>>>
>>>>
>>>> Dear para pakar2 Excel,
>>>>
>>>> mohon solusinya, bagaimana rumus untuk sumif / sumproduct dengan 2
>>>> kriteria dan 2 sheet? untuk lebih jelasnya saya lampirkan filenya,
>>>> Mohon
>>>> dibantu.
>>>>
>>>> Maaf juga jika mungkin kasus seperti sudah pernah ada sebelumnya,
>>>>
>>>> Terima kasih,
>>>>
>>>> daniel
>>>>
>>>>
>>>
>>
>
>
>
panel operating system windows) adalah Indonesia.
Jika demikian, ganti seluruh karakter , (koma) dengan ; (titik koma).
Pastikan seluruh kurung telah sesuai dan berpasangan.
Kid.
2012/8/6 daniel_aho <daniel_aho@yahoo.
> **
>
>
> Trima kasih buat solusi yang diberikan buat Mr Kid, tapi saya coba kok
> belum bisa ya? malah ada keterangan seperti gambar berikut yang saya
> lampirkan kenapa ya? apa mungkin ada salah ketik atau apa? kalau bisa
> tolong dibantu dilampirkan filenya, hehehehe.... :-) :-)
>
> Terima kasih,
>
> daniel
>
>
>
>
>
>
> On 06/08/2012 14:10, Kid Mr. wrote:
>
>
>
> Biasanya karen tipe data Pak,
>
> Perbedaan tipe data pada proses perbandingan dengan operator = < > dsb
> membutuhkan kesamaan tipe data agar sesuai. Jika tidak sama, maka tipe data
> teks akan selalu lebih dari tipe data numerik.
>
> Wassalam,
> Kid.
>
> 2012/8/6 dwint ruswanto <dwint.ruswanto@
>
>>
>>
>> Mr. Kid,
>>
>> untuk kasus ini, kenapa di komputer saya SumProduct menghasilkan hasil
>> yang salah pada row 56 ya?
>>
>> 20612178 LVR-G 600 0
>> Jika menggunakan SumIfs akan menghasilkan 600, tetapi SumProduct
>> menghasilkan angka 0 ?
>>
>> wassalam,
>>
>> -dwint-
>>
>> Pada 6 Agustus 2012 13:41, Kid Mr. <mr.nmkid@gmail.
>>
>>
>>>
>>> Pak Daniel,
>>>
>>> Pada Excel 2007 ke atas, coba gunakan fungsi SumIFs
>>> =SUMIFS( Transaksi!$C$
>>> , B3* )
>>>
>>> Untuk semua versi Excel, bisa gunakan fungsi SumProduct
>>> =SUMPRODUCT( Transaksi!$C$
>>> *)
>>>
>>> Atau akan menggunakan array formula Sum
>>> =SUM( Transaksi!$C$
>>> *)
>>>
>>> Atau gunakan Sum tapi tanpa sebagai array formula
>>> =SUM( * Index( * Transaksi!$C$
>>> ** , 0 )** *)
>>>
>>> Wassalam,
>>> Kid.
>>>
>>>
>>> 2012/8/6 daniel_aho <daniel_aho@yahoo.
>>>
>>>>
>>>>
>>>> Dear para pakar2 Excel,
>>>>
>>>> mohon solusinya, bagaimana rumus untuk sumif / sumproduct dengan 2
>>>> kriteria dan 2 sheet? untuk lebih jelasnya saya lampirkan filenya,
>>>> Mohon
>>>> dibantu.
>>>>
>>>> Maaf juga jika mungkin kasus seperti sudah pernah ada sebelumnya,
>>>>
>>>> Terima kasih,
>>>>
>>>> daniel
>>>>
>>>>
>>>
>>
>
>
>
Mon Aug 6, 2012 3:09 am (PDT) . Posted by:
"daniel_aho" daniel_aho
Terima kasih Mr Kid, sudah berhasil, sesuai dengan yang diharapkan :-)
:-) :-) :-) , pokokknya sangat membantu...
daniel
On 06/08/2012 15:22, Kid Mr. wrote:
>
> Mungkin komputer Pak Daniel menggunakan regional setting (dari control
> panel operating system windows) adalah Indonesia.
> Jika demikian, ganti seluruh karakter , (koma) dengan ; (titik koma).
> Pastikan seluruh kurung telah sesuai dan berpasangan.
>
> Kid.
>
> 2012/8/6 daniel_aho <daniel_aho@yahoo.co.id
> <mailto:daniel_aho@yahoo.co.id >>
>
> Trima kasih buat solusi yang diberikan buat Mr Kid, tapi saya coba
> kok belum bisa ya? malah ada keterangan seperti gambar berikut
> yang saya lampirkan kenapa ya? apa mungkin ada salah ketik atau
> apa? kalau bisa tolong dibantu dilampirkan filenya,
> hehehehe....:-) :-)
>
> Terima kasih,
>
> daniel
>
>
>
>
>
>
> On 06/08/2012 14:10, Kid Mr. wrote:
>>
>> Biasanya karen tipe data Pak,
>>
>> Perbedaan tipe data pada proses perbandingan dengan operator = <
>> > dsb membutuhkan kesamaan tipe data agar sesuai. Jika tidak
>> sama, maka tipe data teks akan selalu lebih dari tipe data numerik.
>>
>> Wassalam,
>> Kid.
>>
>> 2012/8/6 dwint ruswanto <dwint.ruswanto@gmail.com
>> <mailto:dwint.ruswanto@gmail.com >>
>>
>> Mr. Kid,
>>
>>
>> untuk kasus ini, kenapa di komputer saya SumProduct
>> menghasilkan hasil yang salah pada row 56 ya?
>>
>> 20612178 LVR-G 600 0
>>
>>
>> Jika menggunakan SumIfs akan menghasilkan 600, tetapi
>> SumProduct menghasilkan angka 0 ?
>>
>> wassalam,
>>
>> -dwint-
>>
>> Pada 6 Agustus 2012 13:41, Kid Mr. <mr.nmkid@gmail.com
>> <mailto:mr.nmkid@gmail.com >> menulis:
>>
>> Pak Daniel,
>>
>> Pada Excel 2007 ke atas, coba gunakan fungsi SumIFs
>> =SUMIFS( Transaksi!$C$4:$C$22, *Transaksi!$A$4:$A$22 ,
>> A3* , *Transaksi!$B$4:$B$22 , B3* )
>>
>> Untuk semua versi Excel, bisa gunakan fungsi SumProduct
>> =SUMPRODUCT( Transaksi!$C$4:$C$22 *
>> *(Transaksi!$A$4:$A$22=A3)***(Transaksi!$B$4:$B$22=B3) *)
>>
>> Atau akan menggunakan array formula Sum
>> =SUM( Transaksi!$C$4:$C$22 *
>> *(Transaksi!$A$4:$A$22=A3)***(Transaksi!$B$4:$B$22=B3) *)
>>
>> Atau gunakan Sum tapi tanpa sebagai array formula
>> =SUM( *Index( * Transaksi!$C$4:$C$22 *
>> *(Transaksi!$A$4:$A$22=A3)***(Transaksi!$B$4:$B$22=B3)
>> **, 0 )***)
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2012/8/6 daniel_aho <daniel_aho@yahoo.co.id
>> <mailto:daniel_aho@yahoo.co.id >>
>>
>> Dear para pakar2 Excel,
>>
>> mohon solusinya, bagaimana rumus untuk sumif /
>> sumproduct dengan 2
>> kriteria dan 2 sheet? untuk lebih jelasnya saya
>> lampirkan filenya, Mohon
>> dibantu.
>>
>> Maaf juga jika mungkin kasus seperti sudah pernah ada
>> sebelumnya,
>>
>> Terima kasih,
>>
>> daniel
>>
>>
>>
>>
>
>
>
:-) :-) :-) , pokokknya sangat membantu...
daniel
On 06/08/2012 15:22, Kid Mr. wrote:
>
> Mungkin komputer Pak Daniel menggunakan regional setting (dari control
> panel operating system windows) adalah Indonesia.
> Jika demikian, ganti seluruh karakter , (koma) dengan ; (titik koma).
> Pastikan seluruh kurung telah sesuai dan berpasangan.
>
> Kid.
>
> 2012/8/6 daniel_aho <daniel_aho@yahoo.
> <mailto:daniel_aho@yahoo.
>
> Trima kasih buat solusi yang diberikan buat Mr Kid, tapi saya coba
> kok belum bisa ya? malah ada keterangan seperti gambar berikut
> yang saya lampirkan kenapa ya? apa mungkin ada salah ketik atau
> apa? kalau bisa tolong dibantu dilampirkan filenya,
> hehehehe....
>
> Terima kasih,
>
> daniel
>
>
>
>
>
>
> On 06/08/2012 14:10, Kid Mr. wrote:
>>
>> Biasanya karen tipe data Pak,
>>
>> Perbedaan tipe data pada proses perbandingan dengan operator = <
>> > dsb membutuhkan kesamaan tipe data agar sesuai. Jika tidak
>> sama, maka tipe data teks akan selalu lebih dari tipe data numerik.
>>
>> Wassalam,
>> Kid.
>>
>> 2012/8/6 dwint ruswanto <dwint.ruswanto@
>> <mailto:dwint.ruswanto@
>>
>> Mr. Kid,
>>
>>
>> untuk kasus ini, kenapa di komputer saya SumProduct
>> menghasilkan hasil yang salah pada row 56 ya?
>>
>> 20612178 LVR-G 600 0
>>
>>
>> Jika menggunakan SumIfs akan menghasilkan 600, tetapi
>> SumProduct menghasilkan angka 0 ?
>>
>> wassalam,
>>
>> -dwint-
>>
>> Pada 6 Agustus 2012 13:41, Kid Mr. <mr.nmkid@gmail.
>> <mailto:mr.nmkid@gmail.
>>
>> Pak Daniel,
>>
>> Pada Excel 2007 ke atas, coba gunakan fungsi SumIFs
>> =SUMIFS( Transaksi!$C$
>> A3* , *Transaksi!$
>>
>> Untuk semua versi Excel, bisa gunakan fungsi SumProduct
>> =SUMPRODUCT( Transaksi!$C$
>> *(Transaksi!
>>
>> Atau akan menggunakan array formula Sum
>> =SUM( Transaksi!$C$
>> *(Transaksi!
>>
>> Atau gunakan Sum tapi tanpa sebagai array formula
>> =SUM( *Index( * Transaksi!$C$
>> *(Transaksi!
>> **, 0 )***)
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2012/8/6 daniel_aho <daniel_aho@yahoo.
>> <mailto:daniel_aho@yahoo.
>>
>> Dear para pakar2 Excel,
>>
>> mohon solusinya, bagaimana rumus untuk sumif /
>> sumproduct dengan 2
>> kriteria dan 2 sheet? untuk lebih jelasnya saya
>> lampirkan filenya, Mohon
>> dibantu.
>>
>> Maaf juga jika mungkin kasus seperti sudah pernah ada
>> sebelumnya,
>>
>> Terima kasih,
>>
>> daniel
>>
>>
>>
>>
>
>
>
Mon Aug 6, 2012 6:11 pm (PDT) . Posted by:
"him mah"
Assalamu'alaikum Wr. Wb.
1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
kolom (kolom A) yang berisi nama-nama file
2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
3. bisa ngga ya kita melakukan copy file yang ada di folder
C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
saja, file tersebut di copy ke folder tertentu misal folder FILE_A
4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
terima kasih
1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
kolom (kolom A) yang berisi nama-nama file
2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
3. bisa ngga ya kita melakukan copy file yang ada di folder
C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
saja, file tersebut di copy ke folder tertentu misal folder FILE_A
4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
terima kasih
Mon Aug 6, 2012 6:25 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Waalaikumussalam Wr. Wb.
coba :
dim sFolAsal as string, sFolTujuan as string
dim rngFiles as range, rngLoop as range
'init folder dan daftar file
sFolAsal="C:\COBA\EXCEL"
sFolTujuan="C:\FILE_A"
set rngFiles=sheets("daftar_file").range("a2:a17")
'loop file
for each rngLoop in rngfiles
if lenb(rngLoop.value)<>0 then 'cell ada isinya
if lenb(dir$(sfolasal & "\" & rngLoop.value))<>0 then 'isi
cell adalah nama file dan ada filenya
filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
'copy file
endif
endif
next rng
Kira-kiranya demikian,
Wassalam,
Kid.
2012/8/7 him mah <himmah.mlg@gmail.com >
> **
>
>
> Assalamu'alaikum Wr. Wb.
>
> 1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
> kolom (kolom A) yang berisi nama-nama file
> 2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
> 3. bisa ngga ya kita melakukan copy file yang ada di folder
> C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
> saja, file tersebut di copy ke folder tertentu misal folder FILE_A
> 4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
>
> terima kasih
>
>
coba :
dim sFolAsal as string, sFolTujuan as string
dim rngFiles as range, rngLoop as range
'init folder dan daftar file
sFolAsal="C:
sFolTujuan="
set rngFiles=sheets(
'loop file
for each rngLoop in rngfiles
if lenb(rngLoop.
if lenb(dir$(sfolasal & "\" & rngLoop.value)
cell adalah nama file dan ada filenya
filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
'copy file
endif
endif
next rng
Kira-kiranya demikian,
Wassalam,
Kid.
2012/8/7 him mah <himmah.mlg@gmail.
> **
>
>
> Assalamu'alaikum Wr. Wb.
>
> 1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
> kolom (kolom A) yang berisi nama-nama file
> 2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
> 3. bisa ngga ya kita melakukan copy file yang ada di folder
> C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
> saja, file tersebut di copy ke folder tertentu misal folder FILE_A
> 4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
>
> terima kasih
>
>
Mon Aug 6, 2012 8:36 pm (PDT) . Posted by:
"him mah"
pak, muncul runtime error '75'
Path/file access error
Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.com > menulis:
> Waalaikumussalam Wr. Wb.
>
> coba :
>
> dim sFolAsal as string, sFolTujuan as string
> dim rngFiles as range, rngLoop as range
>
> 'init folder dan daftar file
> sFolAsal="C:\COBA\EXCEL"
> sFolTujuan="C:\FILE_A"
> set rngFiles=sheets("daftar_file").range("a2:a17")
>
> 'loop file
> for each rngLoop in rngfiles
> if lenb(rngLoop.value)<>0 then 'cell ada isinya
> if lenb(dir$(sfolasal & "\" & rngLoop.value))<>0 then 'isi
> cell adalah nama file dan ada filenya
> filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
> 'copy file
> endif
> endif
> next rng
>
> Kira-kiranya demikian,
>
> Wassalam,
> Kid.
>
>
> 2012/8/7 him mah <himmah.mlg@gmail.com >
>
>> **
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> 1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
>> kolom (kolom A) yang berisi nama-nama file
>> 2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
>> 3. bisa ngga ya kita melakukan copy file yang ada di folder
>> C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
>> saja, file tersebut di copy ke folder tertentu misal folder FILE_A
>> 4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
>>
>> terima kasih
>>
>>
>
Path/file access error
Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.
> Waalaikumussalam Wr. Wb.
>
> coba :
>
> dim sFolAsal as string, sFolTujuan as string
> dim rngFiles as range, rngLoop as range
>
> 'init folder dan daftar file
> sFolAsal="C:
> sFolTujuan="
> set rngFiles=sheets(
>
> 'loop file
> for each rngLoop in rngfiles
> if lenb(rngLoop.
> if lenb(dir$(sfolasal & "\" & rngLoop.value)
> cell adalah nama file dan ada filenya
> filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
> 'copy file
> endif
> endif
> next rng
>
> Kira-kiranya demikian,
>
> Wassalam,
> Kid.
>
>
> 2012/8/7 him mah <himmah.mlg@gmail.
>
>> **
>>
>>
>> Assalamu'alaikum Wr. Wb.
>>
>> 1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
>> kolom (kolom A) yang berisi nama-nama file
>> 2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
>> 3. bisa ngga ya kita melakukan copy file yang ada di folder
>> C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
>> saja, file tersebut di copy ke folder tertentu misal folder FILE_A
>> 4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
>>
>> terima kasih
>>
>>
>
Mon Aug 6, 2012 8:41 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
ubah bagian ini :
filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
menjadi :
filecopy sfolasal & "\" & rngLoop.value, sfoltujuan & "\" & rngLoop.value
Kid.
2012/8/7 him mah <himmah.mlg@gmail.com >
> **
>
>
> pak, muncul runtime error '75'
> Path/file access error
>
> Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.com > menulis:
>
> > Waalaikumussalam Wr. Wb.
> >
> > coba :
> >
> > dim sFolAsal as string, sFolTujuan as string
> > dim rngFiles as range, rngLoop as range
> >
> > 'init folder dan daftar file
> > sFolAsal="C:\COBA\EXCEL"
> > sFolTujuan="C:\FILE_A"
> > set rngFiles=sheets("daftar_file").range("a2:a17")
> >
> > 'loop file
> > for each rngLoop in rngfiles
> > if lenb(rngLoop.value)<>0 then 'cell ada isinya
> > if lenb(dir$(sfolasal & "\" & rngLoop.value))<>0 then 'isi
> > cell adalah nama file dan ada filenya
> > filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
> > 'copy file
> > endif
> > endif
> > next rng
> >
> > Kira-kiranya demikian,
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2012/8/7 him mah <himmah.mlg@gmail.com >
> >
> >> **
>
> >>
> >>
> >> Assalamu'alaikum Wr. Wb.
> >>
> >> 1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
> >> kolom (kolom A) yang berisi nama-nama file
> >> 2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
> >> 3. bisa ngga ya kita melakukan copy file yang ada di folder
> >> C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
> >> saja, file tersebut di copy ke folder tertentu misal folder FILE_A
> >> 4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
> >>
> >> terima kasih
> >>
> >>
> >
>
>
>
filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
menjadi :
filecopy sfolasal & "\" & rngLoop.value, sfoltujuan & "\" & rngLoop.value
Kid.
2012/8/7 him mah <himmah.mlg@gmail.
> **
>
>
> pak, muncul runtime error '75'
> Path/file access error
>
> Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.
>
> > Waalaikumussalam Wr. Wb.
> >
> > coba :
> >
> > dim sFolAsal as string, sFolTujuan as string
> > dim rngFiles as range, rngLoop as range
> >
> > 'init folder dan daftar file
> > sFolAsal="C:
> > sFolTujuan="
> > set rngFiles=sheets(
> >
> > 'loop file
> > for each rngLoop in rngfiles
> > if lenb(rngLoop.
> > if lenb(dir$(sfolasal & "\" & rngLoop.value)
> > cell adalah nama file dan ada filenya
> > filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
> > 'copy file
> > endif
> > endif
> > next rng
> >
> > Kira-kiranya demikian,
> >
> > Wassalam,
> > Kid.
> >
> >
> > 2012/8/7 him mah <himmah.mlg@gmail.
> >
> >> **
>
> >>
> >>
> >> Assalamu'alaikum Wr. Wb.
> >>
> >> 1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
> >> kolom (kolom A) yang berisi nama-nama file
> >> 2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
> >> 3. bisa ngga ya kita melakukan copy file yang ada di folder
> >> C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
> >> saja, file tersebut di copy ke folder tertentu misal folder FILE_A
> >> 4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
> >>
> >> terima kasih
> >>
> >>
> >
>
>
>
Mon Aug 6, 2012 8:51 pm (PDT) . Posted by:
"him mah"
mantap pak, sudah berhasil. terima kasih
Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.com > menulis:
> ubah bagian ini :
> filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
>
> menjadi :
> filecopy sfolasal & "\" & rngLoop.value, sfoltujuan & "\" & rngLoop.value
>
> Kid.
>
> 2012/8/7 him mah <himmah.mlg@gmail.com >
>
>> **
>>
>>
>> pak, muncul runtime error '75'
>> Path/file access error
>>
>> Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.com > menulis:
>>
>> > Waalaikumussalam Wr. Wb.
>> >
>> > coba :
>> >
>> > dim sFolAsal as string, sFolTujuan as string
>> > dim rngFiles as range, rngLoop as range
>> >
>> > 'init folder dan daftar file
>> > sFolAsal="C:\COBA\EXCEL"
>> > sFolTujuan="C:\FILE_A"
>> > set rngFiles=sheets("daftar_file").range("a2:a17")
>> >
>> > 'loop file
>> > for each rngLoop in rngfiles
>> > if lenb(rngLoop.value)<>0 then 'cell ada isinya
>> > if lenb(dir$(sfolasal & "\" & rngLoop.value))<>0 then 'isi
>> > cell adalah nama file dan ada filenya
>> > filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
>> > 'copy file
>> > endif
>> > endif
>> > next rng
>> >
>> > Kira-kiranya demikian,
>> >
>> > Wassalam,
>> > Kid.
>> >
>> >
>> > 2012/8/7 him mah <himmah.mlg@gmail.com >
>> >
>> >> **
>>
>> >>
>> >>
>> >> Assalamu'alaikum Wr. Wb.
>> >>
>> >> 1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
>> >> kolom (kolom A) yang berisi nama-nama file
>> >> 2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
>> >> 3. bisa ngga ya kita melakukan copy file yang ada di folder
>> >> C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
>> >> saja, file tersebut di copy ke folder tertentu misal folder FILE_A
>> >> 4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
>> >>
>> >> terima kasih
>> >>
>> >>
>> >
>>
>>
>>
>
Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.
> ubah bagian ini :
> filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
>
> menjadi :
> filecopy sfolasal & "\" & rngLoop.value, sfoltujuan & "\" & rngLoop.value
>
> Kid.
>
> 2012/8/7 him mah <himmah.mlg@gmail.
>
>> **
>>
>>
>> pak, muncul runtime error '75'
>> Path/file access error
>>
>> Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.
>>
>> > Waalaikumussalam Wr. Wb.
>> >
>> > coba :
>> >
>> > dim sFolAsal as string, sFolTujuan as string
>> > dim rngFiles as range, rngLoop as range
>> >
>> > 'init folder dan daftar file
>> > sFolAsal="C:
>> > sFolTujuan="
>> > set rngFiles=sheets(
>> >
>> > 'loop file
>> > for each rngLoop in rngfiles
>> > if lenb(rngLoop.
>> > if lenb(dir$(sfolasal & "\" & rngLoop.value)
>> > cell adalah nama file dan ada filenya
>> > filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
>> > 'copy file
>> > endif
>> > endif
>> > next rng
>> >
>> > Kira-kiranya demikian,
>> >
>> > Wassalam,
>> > Kid.
>> >
>> >
>> > 2012/8/7 him mah <himmah.mlg@gmail.
>> >
>> >> **
>>
>> >>
>> >>
>> >> Assalamu'alaikum Wr. Wb.
>> >>
>> >> 1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
>> >> kolom (kolom A) yang berisi nama-nama file
>> >> 2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
>> >> 3. bisa ngga ya kita melakukan copy file yang ada di folder
>> >> C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
>> >> saja, file tersebut di copy ke folder tertentu misal folder FILE_A
>> >> 4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
>> >>
>> >> terima kasih
>> >>
>> >>
>> >
>>
>>
>>
>
Mon Aug 6, 2012 8:57 pm (PDT) . Posted by:
"him mah"
oh iya pak, ada yang ketinggalan
misal kalau mau dibuat agar dinamis
misal di sheet daftar file itu ada dua kolom
NAMA FILE (kolom A) dan KODE (kolom B)
misal
nama file A.TXT kode A1
nama file B.TXT kode A2
nama file C.TXT kode A2
nama file D.TXT kode A1
nama file E.TXT kode A2
ketika kolom KODE di filter A1 maka file yang muncul adalah A.TXT dan D.txt
sehingga file yang dicopy adalah 2 file tersebut dan akan dicopy ke
folder dengan nama A1 (sesuai dengan kodenya), dan kalau folder
tersebut belum ada maka akan dibuatkan flder terlebih dahulu
Pada tanggal 07/08/12, him mah <himmah.mlg@gmail.com > menulis:
> mantap pak, sudah berhasil. terima kasih
>
> Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.com > menulis:
>> ubah bagian ini :
>> filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
>>
>> menjadi :
>> filecopy sfolasal & "\" & rngLoop.value, sfoltujuan & "\" & rngLoop.value
>>
>> Kid.
>>
>> 2012/8/7 him mah <himmah.mlg@gmail.com >
>>
>>> **
>>>
>>>
>>> pak, muncul runtime error '75'
>>> Path/file access error
>>>
>>> Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.com > menulis:
>>>
>>> > Waalaikumussalam Wr. Wb.
>>> >
>>> > coba :
>>> >
>>> > dim sFolAsal as string, sFolTujuan as string
>>> > dim rngFiles as range, rngLoop as range
>>> >
>>> > 'init folder dan daftar file
>>> > sFolAsal="C:\COBA\EXCEL"
>>> > sFolTujuan="C:\FILE_A"
>>> > set rngFiles=sheets("daftar_file").range("a2:a17")
>>> >
>>> > 'loop file
>>> > for each rngLoop in rngfiles
>>> > if lenb(rngLoop.value)<>0 then 'cell ada isinya
>>> > if lenb(dir$(sfolasal & "\" & rngLoop.value))<>0 then 'isi
>>> > cell adalah nama file dan ada filenya
>>> > filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
>>> > 'copy file
>>> > endif
>>> > endif
>>> > next rng
>>> >
>>> > Kira-kiranya demikian,
>>> >
>>> > Wassalam,
>>> > Kid.
>>> >
>>> >
>>> > 2012/8/7 him mah <himmah.mlg@gmail.com >
>>> >
>>> >> **
>>>
>>> >>
>>> >>
>>> >> Assalamu'alaikum Wr. Wb.
>>> >>
>>> >> 1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
>>> >> kolom (kolom A) yang berisi nama-nama file
>>> >> 2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
>>> >> 3. bisa ngga ya kita melakukan copy file yang ada di folder
>>> >> C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
>>> >> saja, file tersebut di copy ke folder tertentu misal folder FILE_A
>>> >> 4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
>>> >>
>>> >> terima kasih
>>> >>
>>> >>
>>> >
>>>
>>>
>>>
>>
>
misal kalau mau dibuat agar dinamis
misal di sheet daftar file itu ada dua kolom
NAMA FILE (kolom A) dan KODE (kolom B)
misal
nama file A.TXT kode A1
nama file B.TXT kode A2
nama file C.TXT kode A2
nama file D.TXT kode A1
nama file E.TXT kode A2
ketika kolom KODE di filter A1 maka file yang muncul adalah A.TXT dan D.txt
sehingga file yang dicopy adalah 2 file tersebut dan akan dicopy ke
folder dengan nama A1 (sesuai dengan kodenya), dan kalau folder
tersebut belum ada maka akan dibuatkan flder terlebih dahulu
Pada tanggal 07/08/12, him mah <himmah.mlg@gmail.
> mantap pak, sudah berhasil. terima kasih
>
> Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.
>> ubah bagian ini :
>> filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
>>
>> menjadi :
>> filecopy sfolasal & "\" & rngLoop.value, sfoltujuan & "\" & rngLoop.value
>>
>> Kid.
>>
>> 2012/8/7 him mah <himmah.mlg@gmail.
>>
>>> **
>>>
>>>
>>> pak, muncul runtime error '75'
>>> Path/file access error
>>>
>>> Pada tanggal 07/08/12, Kid Mr. <mr.nmkid@gmail.
>>>
>>> > Waalaikumussalam Wr. Wb.
>>> >
>>> > coba :
>>> >
>>> > dim sFolAsal as string, sFolTujuan as string
>>> > dim rngFiles as range, rngLoop as range
>>> >
>>> > 'init folder dan daftar file
>>> > sFolAsal="C:
>>> > sFolTujuan="
>>> > set rngFiles=sheets(
>>> >
>>> > 'loop file
>>> > for each rngLoop in rngfiles
>>> > if lenb(rngLoop.
>>> > if lenb(dir$(sfolasal & "\" & rngLoop.value)
>>> > cell adalah nama file dan ada filenya
>>> > filecopy sfolasal & "\" & rngLoop.value, sfoltujuan
>>> > 'copy file
>>> > endif
>>> > endif
>>> > next rng
>>> >
>>> > Kira-kiranya demikian,
>>> >
>>> > Wassalam,
>>> > Kid.
>>> >
>>> >
>>> > 2012/8/7 him mah <himmah.mlg@gmail.
>>> >
>>> >> **
>>>
>>> >>
>>> >>
>>> >> Assalamu'alaikum Wr. Wb.
>>> >>
>>> >> 1. misal kita punya tabel di sheet 1, tabel hanya terdiri dari satu
>>> >> kolom (kolom A) yang berisi nama-nama file
>>> >> 2. terus kita punya kumpulan file misal ada di folder C:\COBA\EXCEL
>>> >> 3. bisa ngga ya kita melakukan copy file yang ada di folder
>>> >> C:\COBA\EXCEL, namun file yang dicopy hanya yang ada di daftar tabel
>>> >> saja, file tersebut di copy ke folder tertentu misal folder FILE_A
>>> >> 4. kalau yang seperti ini kira-kira VBA nya seperti apa ya
>>> >>
>>> >> terima kasih
>>> >>
>>> >>
>>> >
>>>
>>>
>>>
>>
>
Mon Aug 6, 2012 8:35 pm (PDT) . Posted by:
"Kid Mr." nmkid.family@ymail.com
Mungkin seperti file terlampir.
Seluruh axis tambahan adalah sebuah data series.
Wassalam,
Kid.
2012/8/2 Wahyu Munandar <munandar_wahyu@yahoo.co.id >
> **
>
>
> Selamat sore,
>
> Permisi semuanya, saya mengalami kesulitan dalam membuat chart grafik
> dengan 3 sumbu Y. Apakah bisa dbuat dengan excel? Contoh grafik ada di
> attachment.
>
> terima kasih,
>
> salam,
> wahyu
>
>
>
>
Seluruh axis tambahan adalah sebuah data series.
Wassalam,
Kid.
2012/8/2 Wahyu Munandar <munandar_wahyu@
> **
>
>
> Selamat sore,
>
> Permisi semuanya, saya mengalami kesulitan dalam membuat chart grafik
> dengan 3 sumbu Y. Apakah bisa dbuat dengan excel? Contoh grafik ada di
> attachment.
>
> terima kasih,
>
> salam,
> wahyu
>
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com
berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar