Lọc dữ liệu từ sheet khác và tự động cập nhật khi thay đổi (1 người xem)

Em khong biet đã viết:

E xin chào các bác ở diễn đàn
E có một file bán hàng, các bác làm ơn cho e hỏi làm thế nào để tự động cập nhật dữ liệu ở Bảng 1 (cột C (Trạng thái đóng hàng)) tình trạng là "Mới đặt" sang sheet Bảng 2, và khi bảng 1 thay đổi Trạng thái đóng hàng khác như: đã gửi hay đã đóng... thì bảng 2 sẽ tự động cập nhật là xuất hiện nữa (tức là bảng 2 chỉ hiện thị trạng thái là Mới đặt thôi ạ)
Em xin chân thành cảm ơn ạ!

Ban hang

docs.google.com

Nhấp chuột vào đây để mở rộng...

Em khong biet đã viết:

em cảm ơn bác ạ
nhưng bác ơi làm sao để nó tự kẻ bảng luôn cho mình nhỉ

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

Cái này thì bạn dùng định dạng CF là được. Trên máy tôi tôi định dạng như hình
Nhấn apply==>OK là được.

Nhấp chuột vào đây để mở rộng...

Em khong biet đã viết:

Bác làm ơn cho e hỏi thêm một chút được không ạ?
Ở Bảng 1, làm thế nào để e gõ bất kỳ ký tự ở cột A (ID đơn hàng) thì cột C (trạng thái đóng hàng) tự động nhảy là Mới đặt ko ạ (mà khi nào cần thiết mình vẫn có thể chọn những lựa chọn khác như đã đóng, đã gửi, bom,… ở cột C)

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

Khi bạn nhập vào cột A 1 chuỗi 6 ký tự là số (ví dụ 123456) và di chuyển chuột sang ô khác (ví dụ Enter) thì cột C sẽ là "Mới đặt". Nếu đã có sẵn chuỗi đó rồi

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

Nếu bảng tính của bạn là google sheet thì phải viết Google Scrip=> khoản này tôi đầu hàng.
Nếu bảng tính của bạn là thuần Excel thì phải dùng VBA, hoặc các ngôn ngữ lập trình khác như python, ....
Nếu bạn muốn sử dụng bảng tính như điều bạn đề nghị (dùng VBA) thì có thể tham khảo file sau.
Khi bạn nhập vào cột A 1 chuỗi 6 ký tự là số (ví dụ 123456) và di chuyển chuột sang ô khác (ví dụ Enter) thì cột C sẽ là "Mới đặt". Nếu đã có sẵn chuỗi đó rồi thì khi nháy đúp chuột vào ô đó và enter thì cũng được kết quả.
Lưu Ý: Nhớ unlock cho bảng tính khi tải về nhé.

Nhấp chuột vào đây để mở rộng...

ongke0711 đã viết:

Bạn chưa bẫy lỗi: nếu sửa mã hàng (cột A) ở các dòng cũ thì nó cũng cập nhật trạng thái thành "mới đặt" luôn.

Sẳn đây tôi có thắc mắc về một tên workbook "lạ" xuất hiện trong file. Mà tên này tôi cũng đã thấy ở một số file khác, không biết là gì? có phải bị virus không nhỉ?

View attachment 312711

Nhấp chuột vào đây để mở rộng...

ongke0711 đã viết:

Bạn chưa bẫy lỗi: nếu sửa mã hàng (cột A) ở các dòng cũ thì nó cũng cập nhật trạng thái thành "mới đặt" luôn.

Sẳn đây tôi có thắc mắc về một tên workbook "lạ" xuất hiện trong file. Mà tên này tôi cũng đã thấy ở một số file khác, không biết là gì? có phải bị virus không nhỉ?

View attachment 312711

Nhấp chuột vào đây để mở rộng...

HUONGHCKT đã viết:

Cảm ơn anh đã xem bài và phản hồi. Tôi thì tôi đoán Ý của bạn chủ thớt là khi nhập bất kỳ ký tự nào của côt A (khi ấy cột C -Trạng thái ) sẽ nhảy thành Mới đặt, và thấy ID đơn hàng là 6 chữ số nên mới làm thế.
Còn cái sh là ấy, hình đó là ThisWorkbook. Trên máy tôi kiểm tra không thấy virut và khi mở mới 1 workbook nó cũng có các So_Cla.... ấy.

Nhấp chuột vào đây để mở rộng...

Em khong biet đã viết:

khi bảng 1 thay đổi Trạng thái

Nhấp chuột vào đây để mở rộng...

'Button xoa các sheet vua tach
Sub DeleteAllExceptSpecificSheets()
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "All" Then   'And ws.Name <> "MucLuc" Then
            ws.Delete
        End If
    Next ws
    Application.DisplayAlerts = True
End Sub

'Button Tach lại tu dau'
Sub SplitTableByColumn()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim uniqueValues As Collection
    Dim cell As Range
    Dim destSheet As Worksheet
    Dim columnName As String
    Dim filteredTable As ListObject
    Dim i As Integer
    
    ' the table1 with all data
    Set ws = ThisWorkbook.Sheets("All")
    Set tbl = ws.ListObjects("Table2")
    columnName = "TrangThai"

    'Xoa sheet cu
    DeleteAllExceptSpecificSheets
    
    ' Tao danh sach khong trung
    Set uniqueValues = New Collection
    On Error Resume Next
    For Each cell In tbl.ListColumns(columnName).DataBodyRange
        uniqueValues.Add cell.Value, CStr(cell.Value)
    Next cell
    On Error GoTo 0
    
    ' Vong lap tao danh sach
    For i = 1 To uniqueValues.Count
        ' Them sheet
        Set destSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        destSheet.Name = uniqueValues(i) ' Adjust the sheet naming convention as needed

        ' Filter the table
        tbl.Range.AutoFilter Field:=tbl.ListColumns(columnName).Index, Criteria1:=uniqueValues(i)

        ' Copy to the new sheet
        tbl.Range.SpecialCells(xlCellTypeVisible).Copy Destination:=destSheet.Cells(5, 2)
        destSheet.Range("B5:S5").ColumnWidth = 15
        ' Clear the filter
        ws.AutoFilterMode = False
    Next i
    
    ws.Activate
    ws.Range("a4").AutoFilter
    End Sub