Cập nhật mã hàng sang sheet khác

[bebeen]

Em muốn viết đoạn code để khi mình click đúp chuột vào bất cứ mã nào đó trong vùng tô màu vàng này thì nó tự động cập nhật mã đó vào ô C3 của sheet CT và nó mở luôn sheet CT ra để xem thông tin luôn ạ.
Giả sử: Em click đúp vào mã IT003 thì nó chuyển sang sheet CT và dán mã này vào ô C3.
Cám ơn nhiều!

 

[giaiphap]

Em muốn viết đoạn code để khi mình click đúp chuột vào bất cứ mã nào đó trong vùng tô màu vàng này thì nó tự động cập nhật mã đó vào ô C3 của sheet CT và nó mở luôn sheet CT ra để xem thông tin luôn ạ.
Giả sử: Em click đúp vào mã IT003 thì nó chuyển sang sheet CT và dán mã này vào ô C3.
Cám ơn nhiều!

Dùng code này cho sheet TH.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, [B4:B13]) Is Nothing And Target.Cells.Count = 1 Then
    Sheet2.Range("C3").Value = ActiveCell.Value
    Sheet2.Select
End If
End Sub