Nhờ hướng dẫn viết code Tự động đánh số thứ tự khi trích lọc dữ liệu (1 người xem)

[vtkhanhbl]

Tình hình là hiện nay tôi có sưu tầm được một đoạn code tự trích lọc dữ liệu. Nhưng khi đưa vào thì trích luôn STT qua. Nay tôi muốn khi trích lọc dữ liệu qua một sheet khác thì STT tự động đánh lại. Xin anh em trên diễn đàn xem xét và hướng dẫn cho tôi, vì tôi rất dỡ phần vb. Đây là đoạn code tôi sưu tầm được và một File mẫu kèm theo

Private Sub Worksheet_Activate()Application.ScreenUpdating = False
Dim Ws As Worksheet
    Set Ws = Sheets("monno")
    Range("a1").CurrentRegion.Clear
        With Ws.Range("a1").CurrentRegion
            .AutoFilter 3, "<>"
            .SpecialCells(12).Copy [A1]
            .AutoFilter
        End With
Application.ScreenUpdating = True
End Sub

 

[Quang_Hải]

Tình hình là hiện nay tôi có sưu tầm được một đoạn code tự trích lọc dữ liệu. Nhưng khi đưa vào thì trích luôn STT qua. Nay tôi muốn khi trích lọc dữ liệu qua một sheet khác thì STT tự động đánh lại. Xin anh em trên diễn đàn xem xét và hướng dẫn cho tôi, vì tôi rất dỡ phần vb. Đây là đoạn code tôi sưu tầm được và một File mẫu kèm theo

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim Ws As Worksheet
    Set Ws = Sheets("monno")
    Range("a1").CurrentRegion.Clear
        With Ws.Range("a1").CurrentRegion
            .AutoFilter 3, "<>"
            .SpecialCells(12).Copy [A1]
            .AutoFilter
        End With
[COLOR=#ff0000]Range([a2], [a65536].End(3)) = [row(a:a)]
[/COLOR]Application.ScreenUpdating = True
End Sub

Thử thế này xem sao, không có file nên đoán làm đại. Hên xui nha

 

[vtkhanhbl]

Thử thế này xem sao, không có file nên đoán làm đại. Hên xui nha

Đã thành công. Cám ơn bạn rất nhiều