Buat Tombol Copy Select Range

  1. 3 tahun lalu

    Salam,
    bagaimana cara buat vba Tombol Copy Select Range tertentu ya, ketika klik tombol COPY maka akan terselect range tertentu yg diinginkan.
    Terima Kasih

  2. Salam ,
    Apakah yang dimaksud script vba copy select range ?

    Terimakasih

  3. Ya mas @windhu PS

  4. Dear Mas @Aupe ,

    Kalo untuk sederhananya seperti ini contohnya :

    Sheets("sheet1").Range("B1:B20").Copy (Sheets("sheet1").Range("L1:L20"))
    Terimakasih

  5. Dear Mas,
    terlampir filenya ketinggalan dan utk menjalankannya click lingkaran biru

    Tks

  6. dear Mas,
    Terlampir , Tks

  7. Terima kasih banyak mas @windhu PS
    klo hanya untuk saat clik copy otomatis terselect hanya yang ada datanya (cell yg terisi) itu gimana ya mas, terima kasih

  8. Dear Mas @Aupe , ok mas saya coba dulu ya , Tks

  9. Dear Mas@Aupe ,
    Apakah yg dimaksud seperti ini ? , terlampir filenya, tinggal click lingkaran biru,
    tks

  10. Mantab mas @windhu PS terima kasih,
    klo mau modif sedikit gimna ya mas, saya hanya inginkan select copy range saja tanpa harus terpaste, terima kaish mas.

  11. Dear Mas @Aupe ,
    sama2 mas terimakasih , utk select copy range yang terisi saja saya masih cari mas

  12. Siap, mudah ketemu mas, heee terima kasih mas..
    saya coba2 belum bisa juga,,

  13. Sama2 mas @Aupe hehehe, atau mungkin ada master/ suhu yg bisa bantu ? , tks

  14. Di sunting 3 tahun lalu oleh manweljs_

    izin nimbrung yak @Aupe dan @windhu PS :)

    dengan file diatas, coba :

    Sub cumaselekaja()
    Dim x
    For Each sel In Range("A1:C20")
        If sel <> vbNullString Then
            If x = "" Then
                x = sel.Address
            Else
                x = x & "," & sel.Address
            End If
        End If
    Next
    Range(x).Select
    End Sub

  15. Wah mantap sudah benar

    terimakasih mas @manweljs_

  16. Waduh terima kasih terima kasih mas @manweljs_ dah lama tidak keliatan nih, terima kasih mas

  17. Kenapa ya mas ketika saya ubah menjadi ini : Error ya ? error di Range(x).Select

    Sub Rectangle1_Click()
    Dim x
    For Each sel In Range("J6:BG2000")
    If sel <> vbNullString Then
    If x = "" Then
    x = sel.Address
    Else
    x = x & "," & sel.Address
    End If
    End If
    Next
    Range(x).Select
    End Sub

  18. Coba edit menjadi

    Sub Rectangle1_Click()
    Dim x As Range, sel As Range
    For Each sel In Range("J6:BG2000")
        If sel <> vbNullString Then
            If x Is Nothing Then
             Set x = sel
            Else
             Set x = Union(x, sel)
            End If
        End If
    Next
    x.Select
    End Sub

  19. Terima kasih mas @manweljs_

    Maaf mas, maaf nanya lagi, saya modif agar bisa terselect dan tercopy, tapi error mas, dimana salahnya ya mas, maaf mas..

    Dim x As Range, sel As Range
    For Each sel In Range("J6:BG2000")
    If sel <> vbNullString Then
    If x Is Nothing Then
    Set x = sel
    Else
    Set x = Union(x, sel)
    End If
    End If
    Next
    x.Select
    x.Copy

  20. @Aupe

    copy multi select hanya bisa dilakukan jika

    1. berada dalam kolom yang sama atau
    2. baris yang dicopy antar kolom itu sama.

    beda satu baris saja maka anda akan mendapatkan error. berikut saya contohkan yang bisa dan tidak bisa dilakukan untuk copy multiselect

    copy multiselect.gif

    solusinya :

    1. lakukan copy paste perkolom atau
    2. copy paste sel by sel

    demikian

  21. Newer ›
 

atau Mendaftar untuk ikut berdiskusi!