Copy tự động và đếm số lần copy

[hongphuong1997]

Em nhờ các bác và anh chị giúp đỡ code như file đính kèm

 

[thuyyeu99]

Xin lỗi bạn hỏi ngoài lề chúc nhé. Mục đích copy đếm số lần để làm gì vậy ?.
Mình chưa hình dung được, nếu dán đến hết cột thì làm sao ?

 

[leonguyenz]

Tham khảo code sau, chưa thêm điều kiện C2<>"" nhe.

Sub Button1_Click()
Dim Cel As Range, Chck As Variant, nC As Integer, Rng As Range
Set Rng = ActiveSheet.Range("A9:C11")
For Each Cel In Rng
    Cel = ActiveSheet.Range("C2")
    nC = nC + 1
    If nC = Rng.Count Then
        Cop = ActiveSheet.Range("C2"): Exit For
    Else
        Chck = MsgBox("Da Copy duoc " & nC & _
            " lan, ban co tiep tuc khong?", vbYesNo)
        If Chck = vbYes Then
            Cop = ActiveSheet.Range("C2")
        Else
            Exit For
        End If
    End If
Next
End Sub

 

[hongphuong1997]

Tham khảo code sau, chưa thêm điều kiện C2<>"" nhe.

Sub Button1_Click()
Dim Cel As Range, Chck As Variant, nC As Integer, Rng As Range
Set Rng = ActiveSheet.Range("A9:C11")
For Each Cel In Rng
    Cel = ActiveSheet.Range("C2")
    nC = nC + 1
    If nC = Rng.Count Then
        Cop = ActiveSheet.Range("C2"): Exit For
    Else
        Chck = MsgBox("Da Copy duoc " & nC & _
            " lan, ban co tiep tuc khong?", vbYesNo)
        If Chck = vbYes Then
            Cop = ActiveSheet.Range("C2")
        Else
            Exit For
        End If
    End If
Next
End Sub

Anh ơi nhưng em muốn là nó tự động copy khi ô c2 có dữ liệu anh à
anh giúp em nhé

Em cảm ơn anh

 

[leonguyenz]

Anh ơi nhưng em muốn là nó tự động copy khi ô c2 có dữ liệu anh à
anh giúp em nhé

Em cảm ơn anh

Có một số code sự kiện Worksheet, đưa code kia vào, như sự kiện mở Workbook, Activatesheet, Change ô C2, nhấp ô C2, ...