Xin giúp đỡ vế so sánh nội dung các sheet

[nthxe]

Chào các anh các chị,

EM đang phải làm 1 bảng tổng hợp khá dài. Đầu tiên, em xây dựng 1 danh mục các sản phẩm chung (mỗi cell là 1 sản phẩm) rồi chuyển cho các phòng để họ ghi chi tiết thêm sản phẩm các phòng đang dùng. Ví dụ:

File gốc: Máy tiện
File sau khi hoàn thiện: Máy tiện M2Z35, nhập khẩu từ Cezch

Hiện giờ, các phòng đã gửi file về nhưng có phòng họ không ghi thêm vào mà để nguyên như file gốc. Làm thế nào để em kiểm tra được nhanh nhất.

Cảm ơn các anh các chị nhiều

 

[ChanhTQ@]

Họ ghi vô đâu mà bạn không cho biết vậy?

Ghi tiếp vô Cells hay ghi vô cột bên cạnh?
Nếu bạn không đưa file lên được thì dùng chức năng {TABLE} của diễn đàn, chịu khó mô tả cho anh chị em dễ hình dung.
Thân ái!

 

[nthxe]

Ghi tiếp vô Cells hay ghi vô cột bên cạnh?
Nếu bạn không đưa file lên được thì dùng chức năng {TABLE} của diễn đàn, chịu khó mô tả cho anh chị em dễ hình dung.
Thân ái!

Ghi tiếp vào Cells đó luôn bạn ạ.

Ví dụ: trong file gốc mình gửi, tại cells A2 có ghi: Máy tiện thì trong file hộ gửi về cho mình, cũng tại cells A2 họ sẽ ghi Máy tiện M2Z35, nhập khẩu từ Cezch.

Mình muốn phát hiện những cells nào họ để nguyên, không ghi thêm chi tiết.

Cảm ơn nhiều nhiều


(Không phải mình giấu gì đâu, tại sản phẩm của bọn mình tên nó dài loằng ngoằng và toàn ký hiệu này nọ nên lấy ví dụ kia cho ngắn gọn thôi)

 

[ChanhTQ@]

Lần sau bạn hãy giả lập file đó nha!

Option Explicit

Sub AddValue()
 Dim Rng As Range, sRng As Range, Clls As Range
 Dim Sh As Worksheet, bColor As Byte
 
 Set Sh = Sheets("S1"):             bColor = 33
 Set Rng = Sh.Range(Sh.[B1], Sh.[b65500].End(xlUp))
 Rng.ClearFormats
 Sheets("S0").Select:           Columns("B:B").ClearFormats
 For Each Clls In Range([b2], [b65500].End(xlUp))
    Set sRng = Rng.Find(Clls, , xlFormulas, xlPart)
    If Not sRng Is Nothing Then
        bColor = bColor + 1:            If bColor = 41 Then bColor = 34
        Clls.Interior.ColorIndex = bColor
        sRng.Interior.ColorIndex = bColor
        Set sRng = Nothing
    End If
    Set sRng = Rng.Find(Clls, , xlFormulas, xlWhole)
    If Not sRng Is Nothing Then
        Clls.Interior.ColorIndex = 7
        sRng.Interior.ColorIndex = 7
    End If
 Next Clls
End Sub