[belajar-excel] Digest Number 4793

Milis Belajar Microsoft Excel Group

3 Messages

Digest #4793

1

Merge Tabel by "Stephen Saputro"

2a

Mencari Alamat File (Path), NEXT ke kolom B6 by y.roni35

2b

Re: Mencari Alamat File (Path), NEXT ke kolom B6 by "hendrik karnadi" hendrikkarnadi

Messages

1

Merge Tabel

Thu Jul 11, 2019 3:09 am (PDT) . Posted by:

"Stephen Saputro"

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" 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 (1) . Top ^

2a

Mencari Alamat File (Path), NEXT ke kolom B6

Thu Jul 11, 2019 3:10 am (PDT) . Posted by:

y.roni35

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 (2) . Top ^

2b

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

Thu Jul 11, 2019 8:03 am (PDT) . Posted by:

"hendrik karnadi" hendrikkarnadi

Dear Roni,Coba code ini,Sub Subfoldersandfolders()    Dim FSO As Object    Dim FSOFolder As Object    Dim Objfile As Object    Dim subfd As Object    Dim x As String    Dim i As Integer 'baris data    Dim n As Integer 'no urut        Application.FileDialog(msoFileDialogFolderPicker).Show    x = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)    Set FSO = CreateObject("Scripting.FileSystemObject")    Set FSOFolder = FSO.GetFolder(x)    i = 3: n = 1        'Lis File in Folders    For Each Objfile In FSOFolder..Files        'Cells(i, 1) = Objfile.Name        Cells(i, 1) = n        Cells(i, 2) = Objfile.Path        i = i + 1        n = n + 1    Next        'Lis File in SubFolders    For Each subfd In FSOFolder.SubFolders        'For Each Objfile In subfd.Files.Count        For Each Objfile In subfd.Files            'Cells(i, 1) = Objfile.Count            Cells(i, 1) = n            Cells(i, 2) = Objfile.Path            i = i + 1            n = n + 1        Next    NextEnd Sub
Salam,HK

Pada Kamis, 11 Juli 2019 17.10.42 GMT+7, y.roni35@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:

 

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