[belajar-excel] Digest Number 4794

Milis Belajar Microsoft Excel Group

2 Messages

Digest #4794

1a

Re: Mencari Alamat File (Path), NEXT ke kolom B6 by "Mr. Kid" nmkid.family@ymail.com

2a

Re: Merge Tabel [1 Attachment] by "Mr. Kid" nmkid.family@ymail.com

Messages

1a

Re: Mencari Alamat File (Path), NEXT ke kolom B6

Fri Jul 12, 2019 3:32 pm (PDT) . Posted by:

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

Kalau pakai VBA dan PowerQuery (lebih cepat) di
file xlfilefolderlist_vba_n_pq.xlsm
Kalau pakai VBA dengan fitur FSO di file re-PATH.xlsm

Regards,
Kid

On Thu, Jul 11, 2019 at 5:10 PM y.roni35@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:

>
>
> Dear Master Vba,
>
>
> Terlampir File untuk mencari Alamat File (Path).
>
> Yang Saya butuhkan, yaitu saat NEXT ke kolom berikutnya (B6) tanpa menimpa
> kolom sebelumnya. Mohon dibantu koreksi scriptnya berikut:
>
>
>
> Sub Subfoldersandfolders()
>
> Dim FSO As Object
>
> Dim FSOFolder As Object
>
> Dim Objfile As Object
>
> Dim subfd As Object
>
> Dim x As String
>
>
>
>
>
> Application.FileDialog(msoFileDialogFolderPicker).Show
>
> x = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
>
> Set FSO = CreateObject("Scripting.FileSystemObject")
>
> i = 3
>
> Set FSOFolder = FSO.GetFolder(x)
>
>
> 'Lis File in Folders
>
> For Each Objfile In FSOFolder.Files
>
> 'Cells(i, 1) = Objfile.Name
>
> Cells(i, 2) = Objfile.Path
>
> i = i + 1
>
> Next
>
>
> 'Lis File in SubFolders
>
> For Each subfd In FSOFolder.SubFolders
>
> For Each Objfile In subfd.Files.Count
>
> 'Cells(i, 1) = Objfile.Count
>
> Cells(i, 2) = Objfile.Path
>
> i = i + 1
>
> Next
>
> Next
>
> End Sub
>
>
>
>
> Terimakasih
>
>
>
>
>
> Regards,
>
> Roni
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (3) . Top ^

2a

Re: Merge Tabel [1 Attachment]

Fri Jul 12, 2019 4:10 pm (PDT) . Posted by:

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

Ini maksudnya mengambil nilai terbaru dari inputan yang ada ?
Misal :
Jika di xlDB ada item A nilai 100
lalu dari sistem ada item A nilai 200
maka nanti di xlDB harusnya menjadi item A nilai 200
Betulkah ?

Jika di xlDB ada item B nilai 100
lalu dari sistem tidak ada item B
maka tetap di xlDB ada item B nilai 100
Begitu ?

Jika di xlDB tidak ada item C
lalu dari sistem ada item C nilai 100
maka di xlDB menjadi ada item C nilai 100
Iya gak ?

Jika di xlDB ada item D nilai 100
lalu dari sistem ada item D nilai 100
maka di xlDB, item D tetap nilai 100
Gimana ?

Kalau iya seperti demikian,
Step manualnya begini :
1. Copy data dari sistem ke sheet kosong bernama X misalnya
2. Copy data dari xlDB juga ke sheet bernama X tadi, tapi letakkan di bawah
data dari sistem tadi
3. Lakukan remove duplicates berdasar semua kolom key selain kolom nilai
(misal Doc dan Tgl)
4. Hapus semua records di xlDB
5. Copy hasil di sheet bernama X ke xlDB

Regards,
Kid

On Thu, Jul 11, 2019 at 5:10 PM Stephen Saputro stephensaputro@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:

>
>
> Dear teman2 semuanya,
>
> Mohon kira nya dapat di bantu kasus saya ini. Saya sering mengambil data
> dari sebuah sistem. Data tersebut saya namakan tMaster. Data tersebut saya
> simpan sebagai database di sebuah excel dengan nama tInput.
>
> [image: image.png]
>
> [image: image.png]
>
> Setiap hari nya, data yang ada di sistem selalu berubah, sehingga data
> yang di masukan ke tInput pun berubah. Biasa nya untuk mengetahui data mana
> saja yang berubah, saya mencarinya dengan dengan membuat pivot secara
> manual dengan tabel gabungan antara tInput dan tMaster secara manual juga.
> Dari situ akan keliatan "Difference&quot; nya.
>
> [image: image.png]
>
> [image: image.png]
>
> Dari Difference yang ada, berarti itulah yang saya harus tambahakan ke
> tInput agar tetap bisa update.
>
> Pertanyaan saya bagaimana cara nya agar bisa membuat nya lebih ringkas
> lagi dan tidak usah membuat manual tabel combine dan manual pivot untuk
> mencari differencenya.
>
> Sebelum nya saya sudah coba dengan membuat merge tabel, Jadi saya hanya
> perlu dowload data tMaster dan copy ke sheet tertentu. Tapi hasil dari
> merge tidak sesuai yang di harapkan.
>
>
> Terima kasih
>
>
>
>
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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
---------------------------------------------------------------------

Visit Your Group

• Privacy • Unsubscribe • Terms of Use