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. 3 minggu lalu

    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. manweljs_

    Jun 22 Terverifikasi + 9.854 Poin

    @Siska

    terlampir contohnya, silahkan dikembangkan

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

  6. 2 minggu lalu

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

  7. manweljs_

    Jun 24 Terverifikasi + 9.854 Poin

    @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. manweljs_

    Jun 24 Terverifikasi + 9.854 Poin

    @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. manweljs_

    Jun 26 Terverifikasi + 9.854 Poin

    @Siska

    Debugnya di baris yang mana?

  12. @manweljs_ debug nya ada di sini kak

    UserForm1.Show

  13. manweljs_

    Jun 26 Terverifikasi + 9.854 Poin

    @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. manweljs_

    Jun 26 Terverifikasi + 9.854 Poin

    @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. manweljs_

    Jun 26 Terverifikasi + 9.854 Poin

    saya nyerah deh (^_^)/

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

 

atau Mendaftar untuk ikut berdiskusi!