Double Click Tiêu đề cột ở Sheet A_ tự động hiển thị ở Sheet B (2 người xem)

[ttqt30]

Em có 1 File EXcel gồm 2 Sheet DATA_COL và SHOW_COL ,Giờ em muốn DoubleClick vào tiêu đề bất kỳ của Sheet DATA_COL, thì sẻ hiển thị tương ứng Cột đó ở Sheet SHOW_COL
Nhờ anh chị trên diễn đàn ai biết giúp dùm em ! Em cảm ơn nhiều (nhờ xem file đính kèm)

Em đã viết như dưới đây,nhưng chỉ hiển thị dc cột đầu tiên.Cột thứ 2,3 không sang đc cột khác.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 Then
ActiveCell.Resize(100).Copy Sheets("show_col").[A100].End(3).Offset(0, 0)
Sheets("show_col").Select
End If
End Sub

 

[vodoi2x]

vậy thử cái này đi

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row = 1 And Target.Value <> "" Then
        ActiveCell.Resize(100).Copy Sheets("show_col").Cells(1, ActiveCell.Column) 
        Sheets("show_col").Select
    End If
End Sub

 

[ttqt30]

Cảm ơn bạn VODOI2X thật nhiều ,Tại đang học vê VBA ! cảm ơn Bạn!!!

 

[ttqt30]

Bạn VODOI2X ơi! cho mình hỏi giờ mình muốn lấy những cột tùy ý không theo thứ tự của Sheet DATA_COL

Vidu:

MaNV phucap chucvu ten

Tóm lại là khi Double Click vào cột nào THÌ cột đó dc lấy sang Sheet SHOW_COL

Cảm ơn bạn!

 

[Ba Tê]

Bạn VODOI2X ơi! cho mình hỏi giờ mình muốn lấy những cột tùy ý không theo thứ tự của Sheet DATA_COL

Vidu:

MaNV phucap chucvu ten

Tóm lại là khi Double Click vào cột nào THÌ cột đó dc lấy sang Sheet SHOW_COL

Cảm ơn bạn!

Nếu hỏi rõ ràng từ đầu thì chỉ 1 bài trả lời đã xong rồi.
Bạn xem lại cách giải thích của bạn coi sao mà nhiều người không hiểu quá.
Tôi hiểu như vầy, "hổng trúng thì trật".

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row = 1 And Target.Columns.Count = 1 Then
    Dim R As Long, C As Long
        R = [A65536].End(xlUp).Row
        C = IIf(Sheets("Show_col").[IV1].End(xlToLeft).Value = "", 0, 1)
            Target.Resize(R).Copy Sheets("Show_col").[IV1].End(xlToLeft).Offset(, C)
        Cancel = True
    Sheets("Show_col").Select
End If
End Sub

 

[ttqt30]

Xin lỗi anh thật nhiều,em sẻ cố gắng khắc phục cách diễn đạt thông tin!
Cảm ơn anh ! ý là vậy đó anh!