Xin nhờ giải thích giùm cách lọc số điện thoại trong file

[Gà Công Nghệ]

Em có file lọc số điện thoại sưu tầm trên GPE (lâu quá em không nhớ tác giả của file). Em copy sheet này để dán sang sheet file khác và copy code trong file luôn mà vẫn không chạy, hoặc em chỉnh sửa code lại cho tìm ở cột D2 vẫn không chạy. Cho em hỏi ở cột C2 này có dùng thêm gì để mà chạy được. Có thành viên nào biết chỉ giùm em với. Em xin cám ơn.

 

[ptm0412]

D2 vẫn không chạy. Cho em hỏi ở cột C2 này có dùng thêm gì để mà chạy được.

Trong code của sheet, C2 đang là target. Muốn là D2 thì sửa If Target.Address =$C$2 thành $D$2
Code có 1 đoạn không chạy và báo lỗi ở ShowAllData nếu đang ở tình trạng show all sẵn.
Sửa như sau và xoá từ On error resume next trở xuống nếu không xài:

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("C2").NumberFormat = "@"
    If Target.Address = "$C$2" Then
        If Target = "" Then
            ShowAllData
        Else
            abc
            [c2].Select
        End If
    End If
    ' tu On Error Resume Next la kiem tra ngay gio'
     On Error Resume Next
    With Range("A1:O5000")
        If Not Intersect(Target, .Cells) Is Nothing Then
            If Target <> "" Then Target.Offset(, 15 - Target.Column()) = Now
        End If
    End With
End Sub

 

[Gà Công Nghệ]

Trong code của sheet, C2 đang là target. Muốn là D2 thì sửa If Target.Address =$C$2 thành $D$2
Code có 1 đoạn không chạy và báo lỗi ở ShowAllData nếu đang ở tình trạng show all sẵn.
Sửa như sau và xoá từ On error resume next trở xuống nếu không xài:

Private Sub Worksheet_Change(ByVal Target As Range)
    Range("C2").NumberFormat = "@"
    If Target.Address = "$C$2" Then
        If Target = "" Then
            ShowAllData
        Else
            abc
            [c2].Select
        End If
    End If
    ' tu On Error Resume Next la kiem tra ngay gio'
     On Error Resume Next
    With Range("A1:O5000")
        If Not Intersect(Target, .Cells) Is Nothing Then
            If Target <> "" Then Target.Offset(, 15 - Target.Column()) = Now
        End If
    End With
End Sub

Thầy cho em hỏi module 1 và module 2 có sửa hay xóa gì nữa không thầy? Và cho em hỏi thêm nữa là file cũ chạy được mà em copy dữ liệu, code, module 1 và module 2 sang sheet mới của file mới mà c2 không chạy được?

 

[ptm0412]

Thầy cho em hỏi module 1 và module 2 có sửa hay xóa gì nữa không thầy? Và cho em hỏi thêm nữa là file cũ chạy được mà em copy dữ liệu, code, module 1 và module 2 sang sheet mới của file mới mà c2 không chạy được?

Module chứa abc thì để, module kia chứa code lỗi mà lại không xài, xoá đi
Còn code của sheet đâu không thấy hỏi?

 

[Gà Công Nghệ]

Module chứa abc thì để, module kia chứa code lỗi mà lại không xài, xoá đi
Còn code của sheet đâu không thấy hỏi?

Dạ, vâng. Em tưởng code sheet thầy chỉ ở bài 2. Vậy code sheet mình sửa như bài 2 hay là sao thầy.

 

[ptm0412]

Dạ, vâng. Em tưởng code sheet thầy chỉ ở bài 2. Vậy code sheet mình sửa như bài 2 hay là sao thầy.

Dù là tưởng hay không tưởng thì cứ thử tự suy nghĩ 1 tí