Terima kasih pak Zainal. Code dan loopingnya menjadi lebih singkat.. Salam, HK
On Wednesday, 22 January 2014, 10:42, zainul_ulum[at]yahoo[dot]com <zainul_u...@yahoo.com> wrote: Pak HK, saya coba iseng modif dengan alternative lainnya: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rgAsal As Range, rg As Range, i As Integer Set rgAsal = Range([E1]) i = -1 For Each rg In rgAsal i = i + 1 [F1].Offset(i, 0) = rg.Value Next Cancel = True End Sub From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of hendrik karnadi Sent: Wednesday, January 22, 2014 10:11 AM To: belajar-excel@yahoogroups.com Subject: [belajar-excel] Small tip - Copy beberapa sel beda kolom sekaligus [1 Attachment] Dear Be Excelers, Pernahkah kita mencoba mengcopy beberapa sel beda kolom sekaligus, mis. A1,B3,C12,D7 Pasti akan ada pesan "That command can not be used on multiple selection" Hal tersebut bisa dilakukan dengan macro berikut ini: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rSel As String Dim rRng As Range Dim cCol As New Collection 'kumpulan variabel (ngutip ide pak DE) Dim i as Integer If Target.Row = 1 And Target.Column = 5 Then 'jika cell pointer ada pada E1 rSel = Range("E1").Value 'simpan nilai E1(string) pada variabel rSel Set rRng = Sheet1.Range(rSel) 'simpan variabel rSel dlm variabel rRng For Each Rng In rRng 'untuk setiap var Rng yang ada dalam var rRng cCol.Add (Rng) 'tambahkan var Rng ke dalam var cCol Next Rng For i = 1 To cCol.Count 'selama i = 1 s/d jumlah item dalam var cCol Range("F" & i) = cCol(i) 'tulis var cCol item i pada Range("Fi") Next i End If Cancel = True 'Batalkan perintah double click End Sub Untuk melaksanakan hal tersebut sel2 yang akan dicopy ditulis pada Range("E1"), kemudian double click pada sel E1. File uji coba terlampir. Semoga bermanfaat. Salam, HK
