import data lain file

  1. 5 bulan yang lalu

    Mohon bantuan para master VBA Excel,
    Saya coba buat script copy paste range data dari file lain, tapi kok keluar "there is large amount of information on the clipboard"
    tapi jika ditekan "yes" proses copy sudah berhasil, mohon dibantu solusinya

    saya masih buat rumus manual utk kolom Consumption :
    CONSUMPTION = (LAST MONTH STOCK + RECEIVED) - REMINDER
    Gimana scriptnya jika pakai VBA ?

    Mohon dibantu jika ada script code yang lebih baik dan benar
    [attachment:60eafaefe0479][attachment:60eafaefdb5b9][attachment:60eafaf00f631][attachment:60eafaf047297]

  2. MAT BALANCE.xlsmLAST MONTH STOCK-1.XLSRECEIVED.XLSREMINDER STOCK-1.XLS

  3. Caton

    Jul 12 Terverifikasi Indonesia + 17.716 Poin

    Mbak @Tinasedayu ...

    Peringatan "There is large amount of information on the clipboard..." normal terjadi saat kita menyalin data cukup besar — biasanya terjadi saat kita menyalin lebih dari 100 sel, pada kasus mbak ada 123 sel yang akan disalin. Umumnya, ini terjadi saat kita menutup Workbook sumber data tanpa melakukan operasi lainnya (misalnya mengedit, menyimpan dan sebagainya), dan hal ini tidak hanya terjadi saat kita menggunakan VBA saja...

    Saat menyalin data dengan VBA, kita dapat menonaktifkan peringatan seperti ini dengan menggunakan beberapa cara,

    — menonaktifkan peringatan (sebelum proses salin tempel) dengan perintah Application.DisplayAlerts, misalkan:

    Application.DisplayAlerts = False
    
    SourceWorkbook.SheetSource.Range("A1:A150").Copy 
    ThisWorkbook.Worksheets("SheetTarget").Range("A1").PasteSpecial xlPasteValues
    SourceWorkbook.Close False
    
    Application.DisplayAlerts = True

    — mematikan mode Cut Copy (setelah proses menempel) dengan perintah Application.CutCopyMode, misalkan:

    SourceWorkbook.SheetSource.Range("A1:A150").Copy 
    ThisWorkbook.Worksheets("SheetTarget").Range("A1").PasteSpecial xlPasteValues
    
    Application.CutCopyMode = False
    
    SourceWorkbook.Close False

    — melakukan operasi pada sebuah sel (setelah proses menempel), misalkan :

    SourceWorkbook.SheetSource.Range("A1:A150").Copy 
    ThisWorkbook.Worksheets("SheetTarget").Range("A1").PasteSpecial xlPasteValues
    
    Sheet1.Range("ZZ1").ClearContents
    
    SourceWorkbook.Close False

    — menyimpan Workbook sumber atau target (setelah proses menempel), misalkan :

    SourceWorkbook.SheetSource.Range("A1:A150").Copy 
    ThisWorkbook.Worksheets("SheetTarget").Range("A1").PasteSpecial xlPasteValues
    
    ThisWorkbook.Save
    
    SourceWorkbook.Close False

    Sedangkan untuk perhitungan CONSUMPTION = (LAST MONTH STOCK + RECEIVED) - REMINDER, implementasi menggunakan VBA bisa beragam cara, misalkan :

    ...
    With Me
        .Range("K7").Formula = "=($G7+$J7)-$L7"
        .Range("K7").Copy: .Range("K7:K47").PasteSpecial xlPasteFormulas
        .Range("K7:K47").Calculate
        .Range("K7:K47").Copy: .Range("K7:K47").PasteSpecial xlPasteValues
    End With
    ...

    Note: karena notasi Me merujuk kepada objek Worksheet (dalam hal ini Sheet13), maka script di atas ditambahkan pada modul Sheet13. Contoh terlampir untuk prosedur ImportData_lastmonth. Untuk prosedur lainnya tinggal disesuaikan.

    Demikian.

 

atau Mendaftar untuk ikut berdiskusi!