alexa-tracking
Kategori
Kategori
Pengumuman! Mau dimodalin 25 Juta untuk acara komunitas? Ceritain aja tentang komunitas lo di sini!
Home / FORUM / All / ... / KASKUS Peduli /
Butuh SIRAMAN ROHANI untuk Macro Excel Copy data.
1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/5caf0cb78012ae57ba141bef/butuh-siraman-rohani-untuk-macro-excel-copy-data

Butuh SIRAMAN ROHANI untuk Macro Excel Copy data.

Hallo agan & sista


butuh bantuan untuk yang mengerti macro Excel

jd saya sudah buat macro Copy di suatu sheet,
dan ya rumus nya berhasil.
dengan kordinat data Kolom A - AA.

jd saya juga meletakan data vlookup panjang ke bawah manual di kolom selanjutnya yaitu AB - AC.


Butuh SIRAMAN ROHANI untuk Macro Excel Copy data.

Nah Setelah saya record macro excel dengan rumus seperti :



Sub simpleXlsMerger()

Dim bookList As Workbook
Dim mergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object
Application.ScreenUpdating = False
Set mergeObj = CreateObject("Scripting.FileSystemObject")

'change folder path of excel files here
Set dirObj = mergeObj.Getfolder("D:\tanya-tanyakaskus\dotcom")
Set filesObj = dirObj.Files
For Each everyObj In filesObj
Set bookList = Workbooks.Open(everyObj)

'change "A2" with cell reference of start point for every files here
'for example "B3:IV" to merge all files start from columns B and rows 3
'If you're files using more than IV column, change it to the latest column
'Also change "A" column on "A1048576" to the same column as start point
Range("A2:IV" & Range("A1048576").End(xlUp).Row).Copy
ThisWorkbook.Worksheets("Sheet1").Activate

'Do not change the following column. It's not the same column as above
Range("A1048576").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False
bookList.Close
Next
End Sub



Tp data vlookup itu malah pindah kebawah, bukannya berada di nomor dengan 
Copyan itu.

soalnya dari posisi yg saya copy hanya sampai A - AA. dan posisi vlookup manual ini AB-AC

mohon pencerahannya gan.
Beri apresiasi terhadap thread ini Gan!


GDP Network
© 2019 KASKUS, PT Darta Media Indonesia. All rights reserved
Ikuti KASKUS di