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

Liên hệ QC

conan1

Thành viên mới
Tham gia
12/12/14
Bài viết
10
Được thích
1
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
Untitled.png
Em cảm ơn
 

File đính kèm

  • Thong ke ban hang.xlsx
    27.2 KB · Đọc: 17
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
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.
 
Upvote 0
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
thử cái này nha bạn
 

File đính kèm

  • Thong ke ban hang-GPE.xlsm
    49.1 KB · Đọc: 33
Upvote 0
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
Dùng code sau nhé:

Mã:
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
 
Upvote 0
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:

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:

Dùng code sau nhé:

Mã:
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
 
Lần chỉnh sửa cuối:
Upvote 0
Dùng code sau nhé:

Mã:
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 ạ!
 
Upvote 0
Web KT
Back
Top Bottom