Nhờ giúp đỡ VBA tổng hợp (Copy) dữ liệu nhiều sheet tuỳ chọn vào 1 sheet

[conan1]

Mọi người cho em hỏi, em có 1 file cần có nhiều sheet về data, data ở các sheet này sẽ được cập nhật liên tục. Em muốn copy các dòng này và paste qua 1 sheet khác. Mong mọi người giúp đỡ.
Trong file excel đính kèm thì em muốn copy dữ liêu từ sheet Tuan 1; Tuan 2; Tuan 3; Tuan 4; Tuan 5 qua sheet Tong Hop
Mọi người có thể xem hình đính kèm để dễ hiểu ý em

​

Em cảm ơn

 

[Maika8008]

Mọi người cho em hỏi, em có 1 file cần có nhiều sheet về data, data ở các sheet này sẽ được cập nhật liên tục. Em muốn copy các dòng này và paste qua 1 sheet khác. Mong mọi người giúp đỡ.
Trong file excel đính kèm thì em muốn copy dữ liêu từ sheet Tuan 1; Tuan 2; Tuan 3; Tuan 4; Tuan 5 qua sheet Tong Hop
Mọi người có thể xem hình đính kèm để dễ hiểu ý em

View attachment 240405​

Em cảm ơn

Yêu cầu rất dễ, dù rất muốn giúp bạn nhưng đang ở ngoài đường không có máy tính nào nên chịu.

 

[thnghiachau]

Mọi người cho em hỏi, em có 1 file cần có nhiều sheet về data, data ở các sheet này sẽ được cập nhật liên tục. Em muốn copy các dòng này và paste qua 1 sheet khác. Mong mọi người giúp đỡ.
Trong file excel đính kèm thì em muốn copy dữ liêu từ sheet Tuan 1; Tuan 2; Tuan 3; Tuan 4; Tuan 5 qua sheet Tong Hop
Mọi người có thể xem hình đính kèm để dễ hiểu ý em

View attachment 240405​

Em cảm ơn

thử cái này nha bạn

 

[Maika8008]

thử cái này nha bạn

Mãi cũng có người giúp rồi nè. Mấy bữa nay bận với nick Nguyenvthe quá! Haizza...

 

[Ba Tê]

thử cái này nha bạn

Ngồi buồn click chuột năm ba lần coi sao.

 

[thnghiachau]

Ngồi buồn click chuột năm ba lần coi sao.

thì nó cứ copy thêm hoài hoài mãi mãi và mãi mãi...
bạn í muốn gì thì bạn í thêm típ ...

 

[phulien1902]

thì nó cứ copy thêm hoài hoài mãi mãi và mãi mãi...
bạn í muốn gì thì bạn í thêm típ ...

Ý của thầy Ba tê là dữ liệu chỉ Copy 1 lần duy nhất thôi.

 

[Hai Lúa Miền Tây]

Mọi người cho em hỏi, em có 1 file cần có nhiều sheet về data, data ở các sheet này sẽ được cập nhật liên tục. Em muốn copy các dòng này và paste qua 1 sheet khác. Mong mọi người giúp đỡ.
Trong file excel đính kèm thì em muốn copy dữ liêu từ sheet Tuan 1; Tuan 2; Tuan 3; Tuan 4; Tuan 5 qua sheet Tong Hop
Mọi người có thể xem hình đính kèm để dễ hiểu ý em

View attachment 240405​

Em cảm ơn

Dùng code sau nhé:

Sub GopDL_HLMT()
    Dim i As Integer
    Dim strSQL As String
    For i = 1 To 5
        strSQL = strSQL & " Union All select * from [Tuan " & i & "$A10:I100] where STT is not null"
    Next
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0"
        Sheet7.Range("A2").CopyFromRecordset .Execute(Right(strSQL, Len(strSQL) - 10))
    End With
End Sub

 

[conan1]

thử cái này nha bạn

E cảm ơn ạ, bữa giờ bận quá giờ mới vào rep lại được

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

thì nó cứ copy thêm hoài hoài mãi mãi và mãi mãi...
bạn í muốn gì thì bạn í thêm típ ...

E dốt cái này lắm, mới tìm hiểu sơ sơ ah. Bấm 1 hồi mới thấy danh sách của mình sao dài quá. Hì cảm ơn anh đã giúp em đoạn code đó nhé.

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

Dùng code sau nhé:

Sub GopDL_HLMT()
    Dim i As Integer
    Dim strSQL As String
    For i = 1 To 5
        strSQL = strSQL & " Union All select * from [Tuan " & i & "$A10:I100] where STT is not null"
    Next
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0"
        Sheet7.Range("A2").CopyFromRecordset .Execute(Right(strSQL, Len(strSQL) - 10))
    End With
End Sub

Em cảm ơn ạ, đúng cái em cần rồi. hihi

 

[conan1]

Dùng code sau nhé:

Sub GopDL_HLMT()
    Dim i As Integer
    Dim strSQL As String
    For i = 1 To 5
        strSQL = strSQL & " Union All select * from [Tuan " & i & "$A10:I100] where STT is not null"
    Next
    With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 12.0"
        Sheet7.Range("A2").CopyFromRecordset .Execute(Right(strSQL, Len(strSQL) - 10))
    End With
End Sub

Anh cho e hỏi là e áp dụng code này nếu các sheet Tuan có nhiều dữ liệu thì ok. Nhưng nếu 1 sheet mà ko có dữ liệu thì code sẽ không chạy.
Em vd: Nếu sheet Tuan 1 mà không có dữ liệu thì code sẽ không chạy. Còn nếu sheet Tuan 2 mà không có dữ liệu thì chỉ sheet Tong Hop chỉ lấy dc dữ liệu sheet Tuan 1 rồi không chạy code nữa.
Anh có thể nào xem lại code để sheet nào không có dữ liệu thì bỏ qua dc không? Với lại cột STT ở sheet Tong hop có thể chạy từ 1 đến n được không? hiện tại nếu chạy code này thì STT sẽ lấy từ các sheet trước. Như vậy sẽ như thế này 1 2 3 4 5 1 2 3 1 2 3 4 5 6 7 8 9....
Em cảm ơn trước ạ!