Tổng hợp và xử lý dữ liệu từ nhiều sheet vào sheet tổng hợp

[lanhngocd]

Chưa có câu trả lời đúng nhất nên xin mod cho mình post lại bài để ae giúp đỡ. Thank all

 

[SA_DQ]

Bạn xem trong file

Cách dùng:

Sau khi nhập mới 1 record, bạn chọn ô bất kỳ nào thuộc dòng này & bấm tổ hợp fím dành sẵn cho macro

(húc thành công!

 

[lanhngocd]

Cách dùng:

Sau khi nhập mới 1 record, bạn chọn ô bất kỳ nào thuộc dòng này & bấm tổ hợp fím dành sẵn cho macro

(húc thành công!

Thank HYen đã chỉ nhưng mình đã nhấn tổ hợp phím Ctr+Shif+C nhưng vẫn ko có kết quả. Mình mong muốn chép tất cả các mẫu tin ở các Sheet: Email Marketing (1), SEO(2),Online Branding (3), SEM (4), Conversion Technology (5) sang sheet "TỔNG HỢP". Mong bạn check lại dùm mình, Thank bạn

 

[SA_DQ]

Nội dung macro bạn có nhòm thấy không vậy?

Option Explicit

Sub CapNhut()
 Dim Sh As Worksheet, Cls As Range, sCls As Range
 Dim ShN As String, Col As Byte
 Const TTT As String = "EmaSEOOnlSEMCon___GPE"
 Set Cls = Cells(Selection.Row, "B")
 If Cls.Value = "" Then Exit Sub
 For Each Sh In ThisWorkbook.Worksheets
    ShN = Left(Sh.Name, 3)
    If ShN <> "Ton" Then
        If Not Sh.Columns("B:B").Find(Cls.Value, , xlFormulas, xlWhole) Is Nothing Then
            MsgBox "Da Chép Nguòi Này":         Exit Sub
        Else
            Col = (InStr(TTT, ShN) + 2) \ 3 + 3
            With Sh.[B65500].End(xlUp).Offset(1)
                .Resize(, 4).Value = Cls.Resize(, 4).Value
                .Offset(, 5).Resize(, 2).Value = Cls.Offset(, 9).Resize(, 2).Value
                .Offset(, 7).Value = Cls.Offset(, Col).Value
                
            End With
        End If
    End If
 Next Sh
End Sub

Mình viết trong E2003 & hay BKAV xơi nó rồi cũng nên!

 

[lanhngocd]

Option Explicit

Sub CapNhut()
 Dim Sh As Worksheet, Cls As Range, sCls As Range
 Dim ShN As String, Col As Byte
 Const TTT As String = "EmaSEOOnlSEMCon___GPE"
 Set Cls = Cells(Selection.Row, "B")
 If Cls.Value = "" Then Exit Sub
 For Each Sh In ThisWorkbook.Worksheets
    ShN = Left(Sh.Name, 3)
    If ShN <> "Ton" Then
        If Not Sh.Columns("B:B").Find(Cls.Value, , xlFormulas, xlWhole) Is Nothing Then
            MsgBox "Da Chép Nguòi Này":         Exit Sub
        Else
            Col = (InStr(TTT, ShN) + 2) \ 3 + 3
            With Sh.[B65500].End(xlUp).Offset(1)
                .Resize(, 4).Value = Cls.Resize(, 4).Value
                .Offset(, 5).Resize(, 2).Value = Cls.Offset(, 9).Resize(, 2).Value
                .Offset(, 7).Value = Cls.Offset(, Col).Value
                
            End With
        End If
    End If
 Next Sh
End Sub

Mình viết trong E2003 & hay BKAV xơi nó rồi cũng nên!

Mình đã kiểm tra rồi, ý của mình là chép dữ liệu từ Email Marketing (1), SEO(2),Online Branding (3), SEM (4), Conversion Technology (5) sang sheet "TỔNG HỢP", bạn làm ngược lại và mình ko cần kiểm tra trùng lắp dữ liệu nữa. Mình nhờ bạn xem lại và giúp đỡ mình