Copy paste vào vùng dữ liệu có cột ẩn (1 người xem)

[katylove83]

tại cột A2:c10 sheet 1

chứa dữ liệu gì cũng được ,em muốn copy dử liệu vùng này vào sheet 2 cột B3 nhưng cọt C bị ẩn mất vậy làm cách nào đế paste dữ liệu vào mà không dính gì tới cột C được không

 

[chuot0106]

tại cột A2:c10 sheet 1

chứa dữ liệu gì cũng được ,em muốn copy dử liệu vùng này vào sheet 2 cột B3 nhưng cọt C bị ẩn mất vậy làm cách nào đế paste dữ liệu vào mà không dính gì tới cột C được không

Đưa file nên và cả kq mong muốn nữa.

 

[katylove83]

Đưa file nên và cả kq mong muốn nữa.

file đây anh ơi anh xem giúp em dùng chiêu gì nhé

cám ơn

 

[Let'GâuGâu]

file đây anh ơi anh xem giúp em dùng chiêu gì nhé

cám ơn

chép cái này vào sheet2,
bạn kiểm tra lại xem được chưa, tôi test thấy nó chạy cũng tạm ổn

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cll As Range
On Error GoTo thoat
Application.EnableEvents = False
Set Rng = Selection
If Application.CutCopyMode Then
    For Each cll In Range(Rng.Rows(1).Address)
    k = k + 1
        If Sheet2.Columns(cll.Column).Hidden Then
            cll.Offset(, 1).Resize(Rng.Rows.Count, Rng.Columns.Count).Value = cll.Resize(Rng.Rows.Count, Rng.Columns.Count).Value
            cll.Resize(Rng.Rows.Count).ClearContents
        'Exit For 'neu chi co môt cot thi khoa lenh nay lai
        End If
    Next
End If
thoat:
Application.EnableEvents = True

End Sub

 

[Quang_Hải]

file đây anh ơi anh xem giúp em dùng chiêu gì nhé

cám ơn

Với dạng dữ liệu cho vui thì kết quả nhận được cũng chỉ cho vui. Để xem coi bạn có được đáp án như mong muốn không nhé.