ดับเบิ้ลคลิก เพื่อคัดลอกข้อมูล เฉพาะแถว

[semikolon]

สวัสดีครับ
ผมมีปัญหาครับ คือ ผมต้องการให้ดับเบิ้ลคลิกที่เซลล์ ที่ชื่อว่า คลิกที่นี้ แล้วทำการคัดลอกข้อมูล ชื่อบริษัท ชื่อผู้ติดต่อ และเบอร์โทร ของแถวที่ได้ทำการคลิกครับ
เช่น ถ้าผมคลิกที่ cell F6 ที่ sheet1 มันก็จะ copy cell B6 C6 D6 ที่ sheet1 มาวางที่ช่อง B3 B4 B5 ของ sheet2 ครับ
และถ้าคลิกที่ cell F7 ที่ sheet1 มันก็จะ copy cell B7 C7 D7 ที่ sheet1 มาวางที่ช่อง B3 B4 B5 ของ sheet2
ซึ่งผมเขียน code ได้แบบนี้อ่ะครับ แต่มันทำงานได้แค่ที่ผมเขียน ซึ่งผมไม่รู้ว่าจะต้องกำหนดตัวแปรหรือเงื่อนไขยังไงอะครับ
และที่สำคัญคือผมอยากให้มันทำงานแค่ดับเบิ้ลคลิเฉพาะ cell ที่มีคำว่า คลิกที่นี้ เท่านั้นครับ มีใครแนะนำได้ รบกวนแนะนำหน่อยนครับ
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Code: Select all

Dim a
Dim b
Dim c
Dim i
i = 6
a = Cells(i, 2)
b = Cells(i, 3)
c = Cells(i, 4)
Worksheets("sheet2").Select
Worksheets("sheet2").Range("B3").Select
ActiveCell.Value = b
Worksheets("sheet2").Range("B4").Select
ActiveCell.Value = a
Worksheets("sheet2").Range("B5").Select
ActiveCell.Value = c
End Sub

[semikolon]

ผมทำได้แล้วนะครับ โดยใช้ code จามนี้ครับ

Code: Select all

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 6 Then
Cancel = True
Dim a
Dim b
Dim c
Dim i
i = Target.Row
a = Cells(i, 2)
b = Cells(i, 3)
c = Cells(i, 4)
Worksheets("sheet2").Select
Worksheets("sheet2").Range("B3").Select
ActiveCell.Value = a
Worksheets("sheet2").Range("B4").Select
ActiveCell.Value = b
Worksheets("sheet2").Range("B5").Select
ActiveCell.Value = c
End If
End Sub