Salam,
bagaimana cara buat vba Tombol Copy Select Range tertentu ya, ketika klik tombol COPY maka akan terselect range tertentu yg diinginkan.
Terima Kasih
Salam,
bagaimana cara buat vba Tombol Copy Select Range tertentu ya, ketika klik tombol COPY maka akan terselect range tertentu yg diinginkan.
Terima Kasih
Salam ,
Apakah yang dimaksud script vba copy select range ?
Terimakasih
Ya mas @windhu PS
Dear Mas @Aupe ,
Kalo untuk sederhananya seperti ini contohnya :
Sheets("sheet1").Range("B1:B20").Copy (Sheets("sheet1").Range("L1:L20"))
Terimakasih
Dear Mas,
terlampir filenya ketinggalan dan utk menjalankannya click lingkaran biru
Tks
dear Mas,
Terlampir , Tks
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
Dear Mas @Aupe , ok mas saya coba dulu ya , Tks
Dear Mas@Aupe ,
Apakah yg dimaksud seperti ini ? , terlampir filenya, tinggal click lingkaran biru,
tks
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.
Dear Mas @Aupe ,
sama2 mas terimakasih , utk select copy range yang terisi saja saya masih cari mas
Siap, mudah ketemu mas, heee terima kasih mas..
saya coba2 belum bisa juga,,
Sama2 mas @Aupe hehehe, atau mungkin ada master/ suhu yg bisa bantu ? , tks
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
Wah mantap sudah benar
terimakasih mas @manweljs_
Waduh terima kasih terima kasih mas @manweljs_ dah lama tidak keliatan nih, terima kasih mas
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
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
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
copy multi select hanya bisa dilakukan jika
beda satu baris saja maka anda akan mendapatkan error. berikut saya contohkan yang bisa dan tidak bisa dilakukan untuk copy multiselect
solusinya :
demikian