Copy per baris

  1. 4 minggu lalu

    Selamat pagi semua...
    Adakah yang bisa membantu saya..
    Jadi saya ada data masterfile,, ingin saya

    1. Copy sebagian data masterfile dan transfer ke worbook lain
    2. Sebelum mencopy,,, Ada Form menu pilihan untuk Mencopy berapa baris
    3. Jika data master file yang dicopy sudah mencapai baris terakhir,, maka akan muncul peringatan " Data Sudah Semua tercopy"

    Mgkin om @Caton dan om @manweljs_ bisa membantu :)

  2. Sebaiknya diperjelas di poin 2, form yg dimaksud untuk seleksi baris data all column atau range tertentu terpisah?
    Kalau sekedar seluruh data, tinggal blok copy paste seperti biasa, g perlu form.

  3. @joe238 range tertentu kak

  4. 3 minggu lalu

    @Siska

    terlampir contohnya, silahkan dikembangkan

  5. Terima kasih master @manweljs_
    sesuai harapan sya,, makasih banget

  6. maaf kak @manweljs_ kalau copy paste nya ada rumus / formulanya
    edit dimana yaaa

  7. @Siska ...kalau copy paste nya ada rumus / formulanya
    edit dimana yaaa...

    kalo yang dimaksud file sumbernya yang ada formula harusnya gak ada yang perlu dirubah

  8. kak @manweljs_
    Saya coba kembangkan,,, error gini kak

    Screenshot_2.png

  9. @Siska

    sorry, tanpa mengecek sendiri filenya saya gak bisa menjawab.

  10. sya kembangkan begini master @manweljs_
    dan muncul error diatas

    Private Sub CommandButton1_Click()
    Dim wb As Workbook
    Dim strPath2 As String
    strPath2 = "C:\target.xlsx"
    Set wb = Workbooks.Open(strPath2)
    If tbdari * tbsampai Then
    
        ThisWorkbook.Worksheets("Data").Range("A" & tbdari & ":F" & tbsampai).Copy
        wb.Worksheets("Hasil").[A1].PasteSpecial Paste:=xlPasteValues
    
                        
                        
    End If
    
    MsgBox "selesai"
    Unload Me
    End Sub
    

  11. @Siska

    Debugnya di baris yang mana?

  12. @manweljs_ debug nya ada di sini kak

    UserForm1.Show

  13. @Siska

    saya tidak melihat ada yang error. coba edit :

    .[A1]
    
    menjadi
    
    .Range("A1")

    jika tidak berhasil sebaiknya lampirkan sj filenya. jika tidak ingin dishare disini bisa lewat PM

  14. kak @manweljs_ apakah kode ini ngaruh yaa

    wb.Close True

    kalau dilampirin kode diatas,, gk error
    itu sengaja sya hilangkan,,, biar setelah transfer posisi workbooknya terbuka,,
    tpi ternyata setelah kode tsb dihilangkan, dampaknya malah error :)

  15. @Siska

    coba pindahkan file targetnya ke folder/ drive lain, misalnya di drive D

  16. masih sama sich kak,, sepertinya tetep kudu close supaya gk error

  17. saya nyerah deh (^_^)/

    mungkin @Masdad bisa bantu menjelaskan kenapa @Siska mengalami error tersebut?

 

atau Mendaftar untuk ikut berdiskusi!