- Tham gia
- 22/7/14
- Bài viết
- 356
- Được thích
- 31
Em chào anh chị Diễn đàn. Em tự việt 1 đoạn code khi click chuột phải vào dòng nào thì lấy kết quả dòng đó .Nhưng có 1 số dòng có Mã, Tên khách hàng làm đại diện, thì khi click chuột phải dòng bên dưới thì vẫn lấy dòng trên
Em xin cảm ơn các anh chị diễn đàn !
Mã:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim i As Long
i = Selection.Row
If Not Intersect(Target, Range("B3:f27")) Is Nothing Then
If Range("d" & i).Value <> "" Then
' Chổ này chỉ đúng khi em click phải vào những dòng cột B và cột C có dữ liệu, còn khi Click vào cột B,C mà không có dữ liệu nó lại sai
Range("I4:J4").Value = Range("b" & i & ":c" & i).Value
End If
End If
End Sub
Em xin cảm ơn các anh chị diễn đàn !