Senin, 13 Januari 2014

[belajar-excel] Digest Number 2729

15 New Messages

Digest #2729
2a
mengambil data (multi string) dengan vlookup by "T. Machfud G" teuku.machfud
4a
Fw: [belajar-excel] angka terakir selalu 4 digit by "hendrik karnadi" hendrikkarnadi
8a
Bls: [belajar-excel] vba_MergeTables_multiplefiles by "Lazuardi Biru" lazuardi_biru84
10
POP Yahoo.co.id by "Nang Agus" nangagoez

Messages

Sun Jan 12, 2014 5:19 pm (PST) . Posted by:

"T. Machfud G" teuku.machfud

mas kid,jaisin dan hendrik makasih atas jawabannya.
msh bingung sih, setelah saya pikir2 emang harusnya sy buat di acces (gabung lg di milist sebelah hahahahhaha)
di excell lebih sulit sepertinya..
untuk sekarang sy input manual aj dulu...tp ada yg mau saya tanyakan lagi (next email :D )
 
Wassalam,
T. MACHFUD GANI

________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Jumat, 10 Januari 2014 16:35
Judul: Re: [belajar-excel] merubah sheet yg punya ketergantungan dengan file excel yg lain menjadi value/string biasa


 
Hai Machfud,

Asumsi bahwa kalimat "datanya di ambil dari sebuah database excel" menunjukkan adanya tabel berkaidah database yang sebut saja bernama file DB.
Jika file lain (misal file A) saat ini merujuknya dengan link formula ke file DB, maka coba save as file A menjadi bernama lain seperti File_Salinan_A. Hasil Save As masih akan ada link formulanya. Kemudian pada file hasil save as itu (yang masih terbuka),
ke ribbon Data -> group Connections -> klik Edit Link -> pilih satu-satu dari daftar link -> pencet Break Link -> OK sampai semua link hilang dari daftar. Save file dan email ke pihak lain.

Jika output di file lain tersebut bisa disusun dengan pivot table, maka opsi save data with file dalam pivot options bisa membuat file ber-pivot tadi bisa di kirim ke pihak lain dengan pesan agar tidak melakukan refresh data atau refresh all arau refresh pada pivot table.

Coretan tentang pivot table dimulai disini.

Jika memungkinkan menggunakan fitur Get External Data, maka data connection dari file output lain ke sumber data akan menampilkan values dari query data yang disusun. Kemudian bisa dikirim ke pihak lain dengan pesan agar tidak melakukan refresh all atau refresh data pada tabel hasil query.

Coretan tentang Get External Data dimulai disini.

Wassalam,

Kid.

2014/1/10 T. Machfud G <teuku.machfud@yahoo.com>


>dear all,
>
>
>saya penghuni baru salam kenal dulu buat teman2 :D
>jadi gini ada yg saya mau tanyakan..... saya punya file yg datanya di ambil dari sebuah database excel.
>dan data final ini (hanya coloum/fields/records yg diperlukan) mau saya email.... sedangkan file2 database (pendukung) ada di saya.
>gimana caranya biar data final ini tidak kacau ketika saya email atau di copy am orang lain
>tanpa database/file pendukung laiinnya.

>terus gimana caranya
>misal saya punya database dan terdiri dari beberapa sheet (misal)
>kalau saya mau buat workbook baru...gimana caranya menampilkan data2 yg saya mau inginkan
>pada workbook(sheet) yang baru.....
>
>
>maaf kl terlalu umum pertanyaannya...
>
>
>
>
>
>
>Regards,
>T. MACHFUD GANI
>
>

Sun Jan 12, 2014 5:46 pm (PST) . Posted by:

"Jan Raisin"

mudah atau sulit itu tergantung kebiasaan aja..
:ngeles mode on: ^_^

di mana ada usaha, di situ ada jalan [Mario Teguh]
di mana ada jalan, di situ ada usaha [Tukang Parkir] [?][?][?]

momod milis belajar-acces juga menjadi momod di milis ini kok ^_^
>> colek mas opi, bang aksan, dan pak haji <<

Salam,

-Miss Jan Raisin-

Pada 13 Januari 2014 06.04, T. Machfud G <teuku.machfud@yahoo.com> menulis:

>
>
> mas kid,jaisin dan hendrik makasih atas jawabannya.
> msh bingung sih, setelah saya pikir2 emang harusnya sy buat di acces
> (gabung lg di milist sebelah hahahahhaha)
> di excell lebih sulit sepertinya..
> untuk sekarang sy input manual aj dulu...tp ada yg mau saya tanyakan lagi
> (next email :D )
>
> Wassalam,
> T. MACHFUD GANI
>
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com>
> *Kepada:* BeExcel <belajar-excel@yahoogroups.com>
> *Dikirim:* Jumat, 10 Januari 2014 16:35
> *Judul:* Re: [belajar-excel] merubah sheet yg punya ketergantungan dengan
> file excel yg lain menjadi value/string biasa
>
>
> Hai Machfud,
>
> Asumsi bahwa kalimat "datanya di ambil dari sebuah database excel"
> menunjukkan adanya tabel berkaidah database yang sebut saja bernama file DB.
> Jika file lain (misal file A) saat ini merujuknya dengan link formula ke
> file DB, maka coba save as file A menjadi bernama lain seperti
> File_Salinan_A. Hasil Save As masih akan ada link formulanya. Kemudian pada
> file hasil save as itu (yang masih terbuka),
> ke ribbon Data -> group Connections -> klik Edit Link -> pilih satu-satu
> dari daftar link -> pencet Break Link -> OK sampai semua link hilang dari
> daftar. Save file dan email ke pihak lain.
>
> Jika output di file lain tersebut bisa disusun dengan pivot table, maka
> opsi save data with file dalam pivot options bisa membuat file ber-pivot
> tadi bisa di kirim ke pihak lain dengan pesan agar tidak melakukan refresh
> data atau refresh all arau refresh pada pivot table.
> Coretan tentang pivot table dimulai disini<http://excel-mr-kid.blogspot.com/2013/04/pivot-table-1-kenalan.html>
> .
>
> Jika memungkinkan menggunakan fitur Get External Data, maka data
> connection dari file output lain ke sumber data akan menampilkan values
> dari query data yang disusun. Kemudian bisa dikirim ke pihak lain dengan
> pesan agar tidak melakukan refresh all atau refresh data pada tabel hasil
> query.
> Coretan tentang Get External Data dimulai disini<http://excel-mr-kid.blogspot.com/2011/04/get-external-data-01-introduction.html>
> .
>
> Wassalam,
> Kid.
>
>
>
> 2014/1/10 T. Machfud G <teuku.machfud@yahoo.com>
>
>
> dear all,
>
> saya penghuni baru salam kenal dulu buat teman2 :D
> jadi gini ada yg saya mau tanyakan..... saya punya file yg datanya di
> ambil dari sebuah database excel.
> dan data final ini (hanya coloum/fields/records yg diperlukan) mau saya
> email.... sedangkan file2 database (pendukung) ada di saya.
> gimana caranya biar data final ini tidak kacau ketika saya email atau di
> copy am orang lain
> tanpa database/file pendukung laiinnya.
>
> terus gimana caranya
> misal saya punya database dan terdiri dari beberapa sheet (misal)
> kalau saya mau buat workbook baru...gimana caranya menampilkan data2 yg
> saya mau inginkan
> pada workbook(sheet) yang baru.....
>
> maaf kl terlalu umum pertanyaannya...
>
>
>
> Regards,
> T. MACHFUD GANI
>
>
>
>
>
>

Sun Jan 12, 2014 5:23 pm (PST) . Posted by:

"T. Machfud G" teuku.machfud

dear all,


maaf ni kl subjectnya rada2 aneh....susah ngungkapinnya dengan kata2
dummy nya terlampir ya.
mohon solusinya




Wassalam,
T. MACHFUD GANI

----- Mods -----
Kelihatannya file lampirannya tercecer
ditunggu reply emailnya lengkap dengan lampirannya :D
________________





Mon Jan 13, 2014 1:57 am (PST) . Posted by:

"T. Machfud G" teuku.machfud

hehehehhehe...penyakit lama lupa
hari ini email ada 3 semuanya lupa attach file nya kwkwkwk
 
Regards,
T. MACHFUD GANI

________________________________
Dari: T. Machfud G <teuku.machfud@yahoo.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Senin, 13 Januari 2014 6:10
Judul: [belajar-excel] mengambil data (multi string) dengan vlookup


 
dear all,

maaf ni kl subjectnya rada2 aneh....susah ngungkapinnya dengan kata2
dummy nya terlampir ya. 
mohon solusinya

 
Wassalam,
T. MACHFUD GANI

----- Mods -----
Kelihatannya file lampirannya tercecer
ditunggu reply emailnya lengkap dengan lampirannya :D
________________

Sun Jan 12, 2014 5:36 pm (PST) . Posted by:

"Jan Raisin"

xixixi.. ^_^

emailnya pak Harry yang menanggapi solusi dari saya sampai hari ini tidak
masuk ke inbox..
barusan baca dari quoted emailnya mr Kid.. ternyata memang formula dari
saya terbalik antara baris dengan kolom,
terima kasih Mr. Kid yang sudah memperbaikinya ^_^

Salam,

-Miss Jan Raisin-

Pada 11 Januari 2014 21.13, Mr. Kid <mr.nmkid@gmail.com> menulis:

>
>
> Hai Harry,
>
> Coba diubah penulisan Column( A:A),Row(1:1) menjadi Row(1:1),Column(A:A)
> pada formula di tabel total_sales bulan januari baris target original.
> Kemudian copy formula ke kanan dan kebawah sampai Actual (bukan sampai %
> Actual bla).
>
> Jika regional setting setempat adalah Indonesia, bunyi pengubahannya
> adalah Row(1:1);Column(A:A)
>
> Coba juga pemanfaatan nama range dinamis menggunakan fungsi Index untuk
> membentuk data series seperti pada file terlampir.
> *catatan : sebaiknya item pilihan dalam dropdown (Motor Bekas) sama dengan
> yang ada di-tabel data (motor bekasi)
>
> Wassalam,
> Kid.
>
>
>
>
> 2014/1/11 harry budiman <harbudiman@gmail.com>
>
>>
>>
>> makasih mis jan...cm saya mau tanya, kok di kolom bulan April dan Mei
>> hasilnya 0 koma ya...pdahal dari angka penjualan gk mgkn 0 koma...saya gk
>> paham otak atiknya
>>
>>
>> terma kasih sebelumnya
>>
>> wassalaam
>>
>>
>>
>>

Sun Jan 12, 2014 6:28 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Dari apa yang dijelaskan Mr. Kid, segala kemungkinan "struktur"; kata memegang peranan yang penting baik akan diselesaikan dengan formula maupun UDF.

Untuk berikutnya, seandainya input boleh didesign ulang tentu akan lebih mudah apabila "struktur"; nya didesign dalam bagian2 kemudian dihubungkan dengan tanda penghubung. Sedangkan untuk penomoran bisa dibuat otomatis setelah data yang diinput masuk ke dalam database.

Salam,
HK

On Saturday, 11 January 2014, 20:22, Mr. Kid <mr.nmkid@gmail.com> wrote:

 
eh... belum dibales juga sama penanya...

ya wislah, buat peraturan sendiri sajah lah yauw...

* Asumsi :
nomor 1 : tidak ada karakter slash beriringan seperti //
nomor 2 : sebelum nomor urut selalu didahului dengan karakter slash ( / ) dan diikuti minimal 1 karakter angka
nomor 3 : jumlah maksimal karakter nomor urut adalah 5 karakter dengan format NNNN[A] (N adalah numerik, A adalah alpha numerik, [ ] bisa ada juga bisa tidak ada)

Asumsi nomor 4 : (formula untuk data di cell B9)  -> silakan dipendekin, setidaknya seperti formula tersebutlah konsepnya
1. diawali 'SJ' (entah berupa 'SJ/' atau 'SJ') dan bulan selalu 2 digit yang kadang di awali '/' kadang ndak ada
=TEXT(MID(SUBSTITUTE(B9,"/",""),3,4),"\SJ&#92;/00\/00\/")&RIGHT("0000"&MID(B9,FIND("/",B9,7)+1,9),4+ISERR(-RIGHT(B9)))

2. diawali 'SJ' (entah berupa 'SJ/' atau 'SJ'), bulan kadang 1 digit dan kadang 2 digit yang kadang di awali '/' kadang ndak ada
=TEXT(20&REPLACE(SUBSTITUTE(MID(B9,3,IFERROR(FIND("/",B9,7)-3,3)),"/",""),3,0,"-")&"-1","\SJ\/YY/MM/")&RIGHT("0000"&MID(B9,IFERROR(FIND("/",B9,7)+1,7),9),4+ISERR(-RIGHT(B9)))

3. awalannya bisa macem-macem tapi bukan gak ada angkanya seperti 'kid lagi iseng :) 1401/77*' dengan bulan selalu 2 digit yang kadang diawali '/' dan kadang tidak
=SUBSTITUTE(LEFT(B9,MIN(INDEX(FIND(ROW($1:$9),B9&ROW($1:$9)),0))-1)&"/","//","/")&TEXT(20&REPLACE(SUBSTITUTE(MID(B9,MIN(INDEX(FIND(ROW($1:$9),B9&ROW($1:$9)),0)),5),"/",""),3,0,"/")&"/1","YY/MM/")&RIGHT("0000"&MID(RIGHT(B9,5),IFERROR(FIND("/",RIGHT(B9,5),2)+1,1),9),4+ISERR(-RIGHT(B9)))

4. awalannya bisa macem-macem tapi bukan gak ada angkanya seperti 'kid lagi iseng ;) 141/77^' dengan bulan kadang 1 digit dan kadang 2 digit yang kadang di awali '/' kadang ndak ada
=SUBSTITUTE(LEFT(B9,MIN(INDEX(FIND(ROW($1:$9),B9&ROW($1:$9)),0))-1)&"/","//","/")&TEXT(20&SUBSTITUTE(REPLACE(SUBSTITUTE(MID(B9,MIN(INDEX(FIND(ROW($1:$9),B9&ROW($1:$9)),0)),99),MID(RIGHT(B9,5),IFERROR(FIND("/",RIGHT(B9,5),2)+1,1),5),"")&1,3,0,"/"),"//","/"),"YY/MM/")&RIGHT("0000"&MID(RIGHT(B9,5),IFERROR(FIND("/",RIGHT(B9,5),2)+1,1),9),4+ISERR(-RIGHT(B9)))

Bisa juga dikembangkan untuk jumlah karakter alpha numerik setelah karakter numerik terakhir yang lebih dari 1 karakter.

Wassalam,

Kid.

2014/1/11 Mr. Kid <mr.nmkid@gmail.com>

Tanya dong,
>Kalau bulan 7 diisi 07 atau 7 ?
>Jumlah karakter alpha numerik setelah karakter angka terakhir maksimal ada berapa bijik ?
>
>Wassalam,
>Kid.
>
>
>
>
>
>2014/1/11 Liem Suliem <liemsuliem@yahoo.co.id>
>
>
>> 
>>tengkyu miss jan..
>>
>>jan metur suwun tenan...
>>tapi mau nanya lagi heheee ada data yang nggak konsisten lagi di sumber ke 2
>>misal sumber 1 nomor SJ/13/11/0092A
>>
>>sumber 2 SJ13/11/0092A
>>
>>intinya memastikan setelah tulisan SJ ada tanda pemisah "/" setelah 13 ada pemisah "/" setelah bulan ada pemisah "/".
>>
>>tengkyu
>>
>>
>>liem
>>
>>
>>
>>
>>
>>
>>Pada Sabtu, 11 Januari 2014 8:54, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
>>
>> 
>>Hai Liem,
>>
>>
>>coba lihat file terlampir..
>>mungkin nanti ada BeExceller yang akan membantu memendekan formulanya
>>
>>
>>Salam,
>>
>>
>>-Miss Jan Raisin-
>>
>>
>>Pada 11 Januari 2014 09.35, Liem Suliem <liemsuliem@yahoo.co.id> menulis:
>>
>>
>>> 
>>>dera master
>>>
>>>tanya lagi
>>>
>>>giamana cara bikin angka terkir setelah tanda / selalu 4 digit angka
>>>
>>>misal xxx/xxx/09a
>>>jadi xxx/xxx/0009a
>>>
>>>kasaih
>>>wasalam
>>>
>>>
>>>liem
>>>
>>>
>>>
>>
>>
>

Sun Jan 12, 2014 7:04 pm (PST) . Posted by:

"Liem Suliem" liemsuliem

maaf pak kid baru dapat balas.
untuktanggal selalu 2 digit pak kid.



2014/1/11 Mr. Kid <mr.nmkid@gmail.com mailto:mr.nmkid@gmail.com>
Tanya dong,
Kalau bulan 7 diisi 07 atau 7 ?

Jumlah karakter alpha numerik setelah karakter angka terakhir maksimal ada berapa bijik ?


Wassalam,

Kid.




























----- Mods -----
Posting tanggapan/jawaban hendaknya ditulis secara 'top-posting&#39; (di
ATAS "quoted mail" yg ditanggapi, demi mempermudah pembacaan.

'Quoted mail' tidak harus disertakan semua, cukup 1 atau maximal 2 mail
terdahulu.
___________








Sun Jan 12, 2014 6:52 pm (PST) . Posted by:

"Jack Rivaldo"

Saya membuat database excel penjualan beserta from enrtynya
Terbesit dalam pikiran saya bagaimana membuat grafik penjualan yang
bisa berubah2 sesuai data pada database excel itu. Bentuk visualisasi
mugkin akan lebih enak dipandang mata.

Pertanyaannya adalah :
Bagaimana cara membuat grafik di excel yang bisa berubah bentuk sesuai
database sumbernya
Kalau seandainya tak bisa mohon rekomendasi software yang bisa
melakukan kasus saya ini

atas jawabannya saya ucapkan terima kasih banyak. Salam hangat.

----- Mods -----
Bagaimana jika pertanyaannya juga disertakan file dummynya
agar diskusinya lebih terarah karena ada hasil yang dituju
sesuai dengan keinginan si penanya

Sebagai awalan, databasenya sebaiknya disusun secara baik dan benar
pinjam linknya mr kid sebagai panduan
http://excel-mr-kid.blogspot.com/2011/02/susun-data-sebagai-tabel-yang-baik.html
__________


Sun Jan 12, 2014 7:12 pm (PST) . Posted by:

"Liem Suliem" liemsuliem

makasih pak bagus..

:-o

Pada Sabtu, 11 Januari 2014 15:50, Bagus <bagus@kingjim.co.id> menulis:

 

Hai Liem;
 
File terlampir ada dua solusi..
Silakan dipilih.. semoga sesuai
harapan
 
 
Wassalam
~
Bagus ~
 
----- Original Message -----
>From: Liem Suliem
>To: belajar-excel@yahoogroups.com
>Sent: Saturday, January 11, 2014 10:43 AM
>Subject: Bls: [belajar-excel] angka terakir selalu 4 digit
>

>tengkyu miss jan..
>
>jan metur suwun tenan...
>tapi mau nanya lagi heheee ada
data yang nggak konsisten lagi di sumber ke 2
>misal sumber 1 nomor
SJ/13/11/0092A
>
>sumber 2 SJ13/11/0092A
>
>intinya memastikan setelah
tulisan SJ ada tanda pemisah "/" setelah 13 ada pemisah "/" setelah bulan ada
pemisah "/".
>
>tengkyu
>
>
>liem
>
>
>
>
>
>
>Pada Sabtu, 11 Januari 2014 8:54, Jan Raisin <miss.jan.raisin@gmail.com> menulis:
>

>Hai Liem,
>
>
>coba lihat file terlampir..
>mungkin nanti ada BeExceller yang akan membantu memendekan formulanya
>
>
>Salam,
>
>
>-Miss Jan Raisin-
>
>
>Pada 11 Januari 2014 09.35, Liem Suliem <liemsuliem@yahoo.co.id> menulis:
>
>
>> 
>>dera master
>>
>>tanya lagi
>>
>>giamana cara bikin angka terkir setelah tanda / selalu 4 digit
angka
>>
>>misal xxx/xxx/09a
>>jadi
xxx/xxx/0009a
>>
>>kasaih
>>wasalam
>>
>>
>>liem
>>
>>
>>
>
>

Sun Jan 12, 2014 7:31 pm (PST) . Posted by:

"Apriyadi" apriyadi_apry

Dear Mr Kid dan Mr. Bagus

 

Terima kasih atas solusi ke duanya.
Semoga solusi ini juga bermanfaat untuk orang lain.

Thank

Apriyadi
0812 95 023 023
apriyadi_apry@yahoo.com

Pada Jumat, 10 Januari 2014 16:56, Mr. Kid <mr.nmkid@gmail.com> menulis:

 
Hai Apriyadi,

Bagaimana jika dibuatkan dummy data berisi seluruh tanggal dalam sebulan. Isi saja nilainya dengan 0 atau biarkan blank.
Pivot tablenya diatur pada field setting agar show item with no data dan lakukan filter pada field tanggal agar tidak menampilkan data berbunyi (blank). Lakukan sort ascending pada field data. Dummy data tanggal bisa diletakkan dimana saja dalam tabel sumber pivot table selama masih termasuk sebagai area range yang menjadi data source pivot table. Sebaiknya data dummy tanggal memiliki tipe datetime, sehingga pivot table bisa melakukan date grouping sesuai kebutuhan.

File terlampir.

Wassalam,
Kid.

2014/1/10 Apriyadi <apriyadi_apry@yahoo.com>


>Selamat siang,
>
>
>
>
>Mohon bantuan para Master excel untuk case dibawah ini,
>Jika bisanya untuk bisanya mengambil menggunakan Vlookup atau Hlookup,
>Namun untuk case ini saya memerlukan rumus yang dapat memindahkan data secara verikal dan horisontal.
>
>
>Untuk lebih jelasnya saya lampirkan pertanyaan dan simpel nya.
>
>
>Atas bantuan nya saya ucapkan terima kasih.
>
>

>Thank
>
>
>
>Apriyadi
>
>

Sun Jan 12, 2014 7:38 pm (PST) . Posted by:

"Lazuardi Biru" lazuardi_biru84

oke maksih pak penjelasanya..

mudah di pahami.
jadiketika data yang mau saya ambil selalu ada di a5 tinggal ganti
makro yang di module1

AmbilData sFileName, 1, "a2", rngDBAnchor.Offset(0, 1), sErrMsg

AmbilData sFileName, 1, "a5", rngDBAnchor.Offset(0, 1), sErrMsg

dan penjelasan lainya merupakan bonus hehehe

suwun pak.

Pada Sabtu, 11 Januari 2014 15:08, Mr. Kid <mr.nmkid@gmail.com> menulis:

 
Hai LB,

Pada prosedur MergeFiles :
>> data daftar nama file ada di baris berbunyi :
Set rngFiles = Sheet1.Range("d6").CurrentRegion.Resize(, 1)     'definisi daftar file

>> teks folder dari si nama file ada di baris berbunyi :
sPath = Sheet1.Range("d4").Value & "\"                          'ambil nilai path

>> proses mengambil data dilakukan dalam loop per nama file yang disimpan dalam variabel rngFiles, pada blok for each

>> dalam blok for each tersebut, nama file lengkap (full name) disusun dengan baris berbunyi :
sFileName = sPath & rngFile.Value       'susun nama file lengkap

>> tabel target didefinisikan oleh baris : (header pertama [terkiri] dari tabel lokasi hasil penggabungan)
Set rngDBAnchor = Sheet2.Range("a1")                            'definisi anchor header tabel

>> ketika file sumber data ada, maka proses pengambilan data dari file tersebut dilakukan oleh baris berbunyi :
AmbilData sFileName, 1, "a2", rngDBAnchor.Offset(0, 1), sErrMsg

Artinya, proses pengambilan data dilakukan oleh prosedur bernama AmbilData.

Deklarasi prosedur tersebut berbunyi :
'-------------------------------------
'Prosedur AmbilData :
'-------------------------------------
'Input :
'sFileFullName          :: string   :: nama file lengkap beserta path dan ekstensinya yang akan diambil datanya
'vSht                   :: variant  :: nama sheet atau indeks sheet lokasi data di sFileFullName
'sFirstFieldAddress     :: string   :: alamat cell baris pertama pada kolom pertama data
'rngAnchorTargetTable   :: range    :: object range header pertama di lokasi paste values
'-------------------------------------
'Kid, Jakarta, 2012-12-16, Excel VBA
'-------------------------------------
Public Sub AmbilData(sFileFullName As String, vSht As Variant, sFirstFieldAddress As String, _
                        rngAnchorTargetTable As Range, Optional sRes As String = vbNullString)

Jadi, prosedur ambil data membutuhkan data inputan berupa :
'sFileFullName          :: string   :: nama file lengkap beserta path dan ekstensinya yang akan diambil datanya
'vSht                   :: variant  :: nama sheet atau indeks sheet lokasi data di sFileFullName
'sFirstFieldAddress     :: string   :: alamat cell baris pertama pada kolom pertama data
'rngAnchorTargetTable   :: range    :: object range header pertama di lokasi paste values

Pada baris pengambilan data di prosedur MergeFiles tadi, yang berbunyi :
AmbilData sFileName, 1, "a2", rngDBAnchor.Offset(0, 1), sErrMsg

berarti si prosedur AmbilData diberi inputan :

1. variabel teks sFileName (milik prosedur mergefiles yang sudah berisi nama file lengkap) untuk parameter input bernama sFileFullName (milik prosedur AmbilData) yang bertipe string ( As String ) yang bertindak sebagai :: nama file lengkap beserta path dan ekstensinya yang akan diambil datanya

2. nilai 1 (milik prosedur mergefiles) untuk parameter input bernama vSht (milik prosedur AmbilData) yang bertipe variant ( As Variant ) yang bertindak sebagai :: nama sheet atau indeks sheet lokasi data di sFileFullName

3. nilai teks berbunyi "a2" (milik prosedur mergefiles) untuk parameter input bernama sFirstFieldAddress (milik prosedur AmbilData) yang bertipe string ( As String ) yang bertindak sebagai :: alamat cell baris pertama pada kolom pertama data

4. variabel object range rngDBAnchor.Offset(0, 1)  (milik prosedur mergefiles yang merujuk ke kolom ke-2 [di 1 kolom setelah kolom rngDBAnchor karena kolom rngDBAnchor akan diisi nama file [tanpa ekstensi]) untuk parameter input bernama rngAnchorTargetTable (milik prosedur AmbilData) yang bertindak sebagai :: object range header pertama di lokasi paste values

5. variabel teks sErrMsg (milik prosedur Mergefiles yang masih kosong) untuk parameter input bernama sRes (milik prosedur AmbilData) yang bertindak sebagai penampung teks pesan error.

Seluruh proses

Dari penjelasan di atas, jika :

A. daftar nama file mulai di sheet bernama DAFTAR_FILE cell KZ321 membentuk sebuah daftar 1 kolom banyak baris dan dikelilingi oleh cell kosong (di atas daftar, di kiri daftar, di kanan daftar, dan di bawah daftar) berarti baris berbunyi :
Set rngFiles = Sheet1.Range("d6").CurrentRegion.Resize(, 1)     'definisi daftar file

diubah menjadi :
Set rngFiles = sheets("DAFTAR_FILE";).Range("KZ321";).CurrentRegion.Resize(, 1)     'definisi daftar file

B. nama folder sumber data disimpan di sheet bernama NAMA_FOLDER cell GJ7, maka baris :
sPath = Sheet1.Range("d4").Value & "\"                          'ambil nilai path

diubah menjadi :
sPath = Sheets("NAMA_FOLDER";).Range("GJ7").Value & "\"                          'ambil nilai path

C. tabel hasil penggabungan ada di sheet bernama HASIL_PENGGABUNGAN dan tabel dibuat agak tidak berkaidah database dengan header pertama tabel hasil diletakkan pada cell XY123 dan 1 baris diatas header adalah kosong (baris XY122 dikosongkan) berarti baris berbunyi :

Set rngDBAnchor = Sheet2.Range("a1")                            'definisi anchor header tabel

diubah menjadi :
Set rngDBAnchor = sheets("HASIL_PENGGABUNGAN").Range("XY123")                            'definisi anchor header tabel

D. Nama sheet sumber data disetiap file selalu yang bernama DATA_DARI_NEGERI_SEBERANG dan selalu dimulai dari cell SD45 maka baris pengambilan data yang berbunyi :
AmbilData sFileName, 1, "a2", rngDBAnchor.Offset(0, 1), sErrMsg

diubah menjadi :

AmbilData sFileName, "DATA_DARI_NEGERI_SEBERANG&quot;, "SD45", rngDBAnchor.Offset(0, 1), sErrMsg

Kira-kira demikian.

Jadi, prosedur yang dibentuk seperti AmbilData tersebut dapat disimpan dalam sebuah library dan bisa digunakan secara luas. Programming tidak mengenal template prosedur untuk suatu tugas yang bisa diubah-ubah scriptnya, tetapi yang ada adalah prosedur yang disusun memiliki kemampuan spesifik dan dapat digunakan secara luas.

Wassalam,

Kid.

2014/1/10 Lazuardi Biru <lazuardi_biru84@yahoo.com>


>dh
>
>dear master
>mau tanya soal vba_MergeTables_multiplefiles buatan pak kid.
>
>
>kalo data yang mau di ambil pertama di kolom A5
>bunyi makro mana yang harus dirubah.
>dan hasil saya letakan di kolom B2
>
>
>berikut saya lampirkan filenya
>
>
>salam
>LB
>

Sun Jan 12, 2014 10:36 pm (PST) . Posted by:

"Emi" emilestariklcc



Teman dan Guru BeExcel,
Sayapunya data  yang diimport dari text file lalu di paste ke
excel.
Masalahnya  data nya tidak berada di kolum yang betul
disebabkan ada text yang panjang telah melebihi kolumnya sendiri.
 Hasil yang diinginkan ialah
1.
Menghapus semua heading yang tidak perlu.
2.
Amaun yang pertama di data asli adalah amaun cash, seterusnya amaun cheque,
Return cheque, Advance.
3.
Keempat empat kolumn itu di jumlahkan di  kolumn Total.
4.
Membuat autonumbering bagi setiap row di table hasil
Terima
kasih.
-Emi
Lestari

Sun Jan 12, 2014 11:24 pm (PST) . Posted by:

"Jan Raisin"

Hai Emi,

silakan dicoba cara seperti berikut ini:

1. Blok header kolom B sampai dengan kolom K
2. Tekan Tombol F5, sehingga muncul dialog box seperti ini:
[image: Gambar sisip 2]

3. Klik tombol Special, sehingga muncul dialog box seperti ini:
[image: Gambar sisip 3]

4. Beri tanda pada Constant dan Text, setelah itu tekan OK sehingga seluruh
cel yang berisi Text akan terblok
5. Pada sembarang cel yang diblok, klik kanan tombol mouse lalu pilih
Delete
[image: Gambar sisip 4]

6. Akan muncul dialog box baru seperti di bawah ini:
[image: Gambar sisip 5]

7. Beri tanda pada Shift Cells Left, lalu klik OK

Maka seluruh cell yang berisi Text akan terhapus dan cell yang berisi angka
akan bergeser ke arah kiri sehingga susunan kolomnya kembali seperti semula

Setelah sampai ke bagian ini mungkin akan lebih mudah jika menghapus
headernya dengan cara manual.

Untuk memberi nomor urut, coba ketik angka 1 di sebelah cel yang berisi
7071, dan angka 2 di sebelah cel yang berisi 7072
Blok angka 1 dan 2 tersebut,
[image: Gambar sisip 6]

letakan pointer mouse di sebelah kanan bawah cel yang diblok sehingga
muncul tanda plus (+),
dobel klik di lokasi tersebut.. maka akan terbentuk nomor urut otomatis ke
arah bawah,,

Cara lainnya adalah menggunakan Data Fill Series

Salam,

-Miss Jan Raisin-

Pada 13 Januari 2014 13.35, Emi <emilestariklcc@yahoo.com> menulis:

>
>
>
> Teman dan Guru BeExcel,
> Saya punya data yang diimport dari text file lalu di paste ke excel.
> Masalahnya data nya tidak berada di kolum yang betul disebabkan ada text
> yang panjang telah melebihi kolumnya sendiri.
> Hasil yang diinginkan ialah
> 1. Menghapus semua heading yang tidak perlu.
> 2. Amaun yang pertama di data asli adalah amaun cash, seterusnya amaun
> cheque, Return cheque, Advance.
> 3. Keempat empat kolumn itu di jumlahkan di kolumn Total.
> 4. Membuat autonumbering bagi setiap row di table hasil
> Terima kasih.
> -Emi Lestari
>
>
>

Mon Jan 13, 2014 1:59 am (PST) . Posted by:

"Emi" emilestariklcc

Terima kasih Miss Jan untuk bagian pertama menghilangkan row yang kosong.

Nah sekarang untuk mengambil data tersebut dan dimasukkan ke table.
Sebagian dari data tersebut tidak sama panjang dan sering berada di luar kolumnnya sendiri.
Perlu  bikin formula atau makro yan dapat merekap data tersebut supaya mudah bimanfaatkan.

Saya udah mencoba formula di kolum M s/d S namun belum berhasil.

Mohon bantuan teman2 lagi.

Terima kasih.

-Emi Lestari

On Monday, January 13, 2014 3:24 PM, Jan Raisin <miss.jan.raisin@gmail.com> wrote:

 
Hai Emi,

silakan dicoba cara seperti berikut ini:

1. Blok header kolom B sampai dengan kolom K
2. Tekan Tombol F5, sehingga muncul dialog box seperti ini:

3. Klik tombol Special, sehingga muncul dialog box seperti ini:

4. Beri tanda pada Constant dan Text, setelah itu tekan OK sehingga seluruh cel yang berisi Text akan terblok
5. Pada sembarang cel yang diblok, klik kanan tombol mouse lalu pilih Delete 

6. Akan muncul dialog box baru seperti di bawah ini:

7. Beri tanda pada Shift Cells Left, lalu klik OK

Maka seluruh cell yang berisi Text akan terhapus dan cell yang berisi angka akan bergeser ke arah kiri sehingga susunan kolomnya kembali seperti semula

Setelah sampai ke bagian ini mungkin akan lebih mudah jika menghapus headernya dengan cara manual.

Untuk memberi nomor urut, coba ketik angka 1 di sebelah cel yang berisi 7071, dan angka 2 di sebelah cel yang berisi 7072
Blok angka 1 dan 2 tersebut, 

letakan pointer mouse di sebelah kanan bawah cel yang diblok sehingga muncul tanda plus (+),
dobel klik di lokasi tersebut.. maka akan terbentuk nomor urut otomatis ke arah bawah,,

Cara lainnya adalah menggunakan Data Fill Series

Salam,

-Miss Jan Raisin-

Pada 13 Januari 2014 13.35, Emi <emilestariklcc@yahoo.com> menulis:


>
>
>Teman dan Guru BeExcel,
>Sayapunya data  yang diimport dari text file lalu di paste ke
excel.
>Masalahnya  data nya tidak berada di kolum yang betul
disebabkan ada text yang panjang telah melebihi kolumnya sendiri.
> Hasil yang diinginkan ialah
>1.
Menghapus semua heading yang tidak perlu.
>2.
Amaun yang pertama di data asli adalah amaun cash, seterusnya amaun cheque,
Return cheque, Advance.
>3.
Keempat empat kolumn itu di jumlahkan di  kolumn Total.
>4.
Membuat autonumbering bagi setiap row di table hasil
>Terima
kasih.
>-Emi
Lestari
>
>
>
>

Sun Jan 12, 2014 11:28 pm (PST) . Posted by:

"Nang Agus" nangagoez

Asalamualaikumwarahmatullah

Rekan-rekan belajar excel, mohon pencerahannya. terakhir kali saya menerima email dari belajar-excel group melalui POP email Yahoo.co.id adalah tanggal 10 Desember 2013. semenjak itu saya sudah tidak menerima email lagi. bagaimana caranya agar saya dapat menerima email dari belajar-excel melalui POP. saat ini saya menggunakan mozila ThunderBird. Jika harus membuka email melalui web browser rasanya memerlukan banyak waktu, karena tidak hanya satu alamat email yang harus saya buka.
Terima kasih

Wasalamualaikum warah matullah.
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar