Bài tập khó về hiển thị dữ liệu nhờ Anh chị giúp đỡ! (1 người xem)

[ttqt30]

Em có 1 file Excel gồm 3 Sheet( tenhang,hoadon, danhsach_hangban)
Nhờ anh chị xem file đính kèm dùm em! cảm ơn !

 

[Quang_Hải]

Em có 1 file Excel gồm 3 Sheet( tenhang,hoadon, danhsach_hangban)
Nhờ anh chị xem file đính kèm dùm em! cảm ơn !

Nếu click mà có dữ liệu thì xài thế này. Copy code vào sheet tenhang

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
   ActiveCell.Offset(, -1).Resize(, 3).Copy Sheets("danhsach_hangban").[A65336].End(3).Offset(1)
   Sheets("hoadon").[b65536].End(3).Value = ActiveCell
   Sheets("danhsach_hangban").Select
End If
End Sub

 

[ttqt30]

Em cảm ơn anh Quang Hải: [TABLE="width: 64"]
[TR]
[TD="width: 64"]em đã chuột phải chọn View code để dán đoạn mã vào rồi lưu dưới dạng *.xlsm mà vẫn không chạy đc nhờ anh xem lại dùm em với Thanks anh[/TD]
[/TR]
[/TABLE]

 

[ttqt30]

Một lần nữa Xin cảm ơn anh Hải ! em đã làm được rồi!!!