Ghép nhiều sheet vào 1 sheet

[kimthoa89]

Dear anh chị !
File e có nhiều sheet nhờ anh chị giúp đỡ gộp vào 1 sheet "Tổng hợp" em cảm ơn ah

 

[Ba Tê]

Dear anh chị !
File e có nhiều sheet nhờ anh chị giúp đỡ gộp vào 1 sheet "Tổng hợp" em cảm ơn ah

1/ Nên thay đổi kiểu giao tiếp "nửa Tây, nửa Ta" (Dear anh chị), viết tắt ("e"), chít chát ("ah").
2/ Ít nhất mỗi sheet phải có vài dòng dữ liệu. 12 sheet trống rỗng thì gộp làm gì, có dữ liệu nào để viết code xong mà kiểm tra kết quả.
3/ Giải thích "gộp" là thế nào, lấy từng sheet "nối đuôi" nhau về Tổng hợp hay theo thứ tự nào?
........................

 

[kimthoa89]

Vâng lần sau em rút kinh nghiệm ạ, em gửi lại file ạ. Hiện tại em đang có dữ liệu 2 sheet " power, light". các sheet khác nếu nhập dữ liệu vào nhảy sang sheet tổng hợp ạ

 

[Ba Tê]

Vâng lần sau em rút kinh nghiệm ạ, em gửi lại file ạ

Sửa lại ngay trên bài #1 sẽ "trực quan" hơn.

Option Explicit

Public Sub Gop_Sheet()
Const Cols As Long = 10
Dim Ws As Worksheet, sArr(), dArr(), ShName As String
Dim I As Long, J As Long, R As Long, K As Long
    ShName = "TongHop"
ReDim dArr(1 To 1000, 1 To Cols)
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> ShName Then
            If Ws.Range("D1000").End(xlUp).Row > 3 Then
                sArr = Ws.Range("A4", Ws.Range("D1000").End(xlUp)).Resize(, Cols).Value
                R = UBound(sArr)
                For I = 1 To UBound(sArr)
                    K = K + 1
                    For J = 1 To Cols
                        dArr(K, J) = sArr(I, J)
                    Next J
                Next I
            End If
        End If
    Next Ws
With Sheets(ShName)
    .Range("A4").Resize(1000, Cols).ClearContents
    If K Then .Range("A4").Resize(K, Cols) = dArr
End With
End Sub

 

[kimthoa89]

Vâng lần sau em rút kinh nghiệm ạ, em gửi lại file ạ

Sửa lại ngay trên bài #1 sẽ "trực quan" hơn.

Option Explicit

Public Sub Gop_Sheet()
Const Cols As Long = 10
Dim Ws As Worksheet, sArr(), dArr(), ShName As String
Dim I As Long, J As Long, R As Long, K As Long
    ShName = "TongHop"
ReDim dArr(1 To 1000, 1 To Cols)
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> ShName Then
            If Ws.Range("D1000").End(xlUp).Row > 3 Then
                sArr = Ws.Range("A4", Ws.Range("D1000").End(xlUp)).Resize(, Cols).Value
                R = UBound(sArr)
                For I = 1 To UBound(sArr)
                    K = K + 1
                    For J = 1 To Cols
                        dArr(K, J) = sArr(I, J)
                    Next J
                Next I
            End If
        End If
    Next Ws
With Sheets(ShName)
    .Range("A4").Resize(1000, Cols).ClearContents
    If K Then .Range("A4").Resize(K, Cols) = dArr
End With
End Sub

anh ơi, có thể cho e xin file không ạ, e caem ơn

 

[VetMini]

Sửa lại ngay trên bài #1 sẽ "trực quan" hơn.
...

Bài #5 còn chưa chịu cải thiện. Quên cái chuyện bài #1 đi.

 

[kimthoa89]

Bài #5 còn chưa chịu cải thiện. Quên cái chuyện bài #1 đi.

Là sao em chưa hiểu ạ

 

[kimthoa89]

anh ơi, có thể cho e xin file không ạ, e caem ơn

Mong anh giúp đỡ ạ, lần sau em chú ý hơn , hihi

 

[Hoàng Tuấn 868]

Mong anh giúp đỡ ạ, lần sau em chú ý hơn , hihi

Bạn sửa từ bài #1 đến bài cuối, thì có thể sẽ được giúp tiếp.
1/ Không dùng các từ tiếng Tây, ví dụ: "Dear anh chị !"
2/ Không dùng các từ viết tắt, hoặc các từ vô nghĩa, không phải tiếng Viêt, cũng chẳng phải tiếng Tây: "File e", " e caem ơn " "cảm ơn ah "...

 

[ndu96081631]

Dear anh chị !
File e có nhiều sheet nhờ anh chị giúp đỡ gộp vào 1 sheet "Tổng hợp" em cảm ơn ah

Bài này thấy đơn giản vậy nhưng có thể khó.
Giả định rằng bạn đã có code tổng hợp các sheet, nếu bạn bấm nút chạy code nhiều lần thì bạn sẽ nhận kết quả sai. Tôi đang nghĩ phải có công đoạn kiểm tra tính đúng đắn của dữ liệu. Cụ thể ở đây nếu dữ liệu đã có thì sẽ không cho thêm vào. Có thể lấy mã nhân viên kết hợp với ngày nghỉ để làm từ khóa so sánh

 

[kimthoa89]

Bài này thấy đơn giản vậy nhưng có thể khó.
Giả định rằng bạn đã có code tổng hợp các sheet, nếu bạn bấm nút chạy code nhiều lần thì bạn sẽ nhận kết quả sai. Tôi đang nghĩ phải có công đoạn kiểm tra tính đúng đắn của dữ liệu. Cụ thể ở đây nếu dữ liệu đã có thì sẽ không cho thêm vào. Có thể lấy mã nhân viên kết hợp với ngày nghỉ để làm từ khóa so sánh

Mong anh giúp đỡ cho em file ạ

 

[Hoàng Tuấn 868]

Mong anh giúp đỡ cho em file ạ

Mình thấy những thành viên có ý định giúp bạn đều đã xem qua ý kiến của bạn. Nhưng bạn đã bỏ qua góp ý của các thành viên nên chưa ai có ý kiến gì vì nếu thành viên nào giúp bạn thì coi như cũng đồng tình với sự vi phạm nội quy của bạn.

 

[thnghiachau]

Chào bạn @kimthoa89,
Bạn lặp thread này trùng với thread : (trùng về mặt ý nghĩa vế đề xin giúp đỡ) rồi nhá!!!
https://www.giaiphapexcel.com/diendan/threads/code-vba-gộp-nhiều-sheet-vào-1-file-với-điều-kiện.150777/#post-980334

Bạn mở liền 2 cái: cái thứ nhất vào thứ 5 (16/7) và cái này vào CN (19/7).
Bạn coi lại bên cái thứ 1 đi, tôi đã hoàn tất cho bạn mọi vấn đề rùi.

Người muốn giúp bạn chỉ muốn hiểu rõ vấn đề mà bạn cần nên người ta mới góp ý kiến và hỏi thêm cho rõ ràng, còn bạn lại bỏ ngang không giải thích cho người ta mà con chạy đi tạo ra cái thread khác!!!!! Bạn không nên coi thường người giúp mình như thế!!!
Bạn nên rút kinh nghiệm không "chạy làng" như thế nữa nha.
Và thêm nữa, như anh @Hoàng Tuấn 868 đã nói... bạn nên coi lại mình nhá...

Admin ơi, kiểm tra lại cái thread ,coi giúp em nói có đúng không với... Cám ơn Admin nhiều...

Bài đã được tự động gộp: 20/7/20

Bài này thấy đơn giản vậy nhưng có thể khó.
Giả định rằng bạn đã có code tổng hợp các sheet, nếu bạn bấm nút chạy code nhiều lần thì bạn sẽ nhận kết quả sai. Tôi đang nghĩ phải có công đoạn kiểm tra tính đúng đắn của dữ liệu. Cụ thể ở đây nếu dữ liệu đã có thì sẽ không cho thêm vào. Có thể lấy mã nhân viên kết hợp với ngày nghỉ để làm từ khóa so sánh

Thầy @ndu96081631 ơi,
Thầy xem cái mà em làm cho bạn @kimthoa89 ờ đây:
https://www.giaiphapexcel.com/diend...-vào-1-file-với-điều-kiện.150777/#post-980334
em giải quyết việc một file nhiều sheet mà gởi cho các bộ phận rùi tập hợp lại toàn bộ dữ liệu nghỉ vào Sheet"tổng hợp" rùi đó.
bên thread đó em đã hỏi và nói lên cái vế đề không ổn khi lập ra nhiều sheet như thế rùi!!
em đã dùng ngày nghỉ + ID để làm từ khóa xét việc trùng dữ liệu như thầy nói đó .
Cám ơn thầy.

 

[thnghiachau]

Mình thấy những thành viên có ý định giúp bạn đều đã xem qua ý kiến của bạn. Nhưng bạn đã bỏ qua góp ý của các thành viên nên chưa ai có ý kiến gì vì nếu thành viên nào giúp bạn thì coi như cũng đồng tình với sự vi phạm nội quy của bạn.

ÔI thôi chết em rùi... em đã làm xong cho bạn @kimthoa89 ở thread mà bạn đó lập ra hỏi, và em đặt một số câu hỏi thì bạn í chạy làng và lập ra thread khác giống như vậy!!!
em bị là tòng phạm "vi phạm nội qui" rùi ... hic...
thôi em xóa bài bên kia vậy...
Xin Admin tha cho em tội tòng phạm nha!!!