Nhờ các bác giúp em vấn đề này với (link DL các sheet) (1 người xem)

[Pain.PS.381]

Các bác giúp em với, em đang cần lập 1 bảng Dữ liệu. Giờ chỉ nhập DL từ các Sheet " Sự cố B1-2, Sự cố B3-4, Sự cố B5", DL sẽ tự động cập nhật vào sheet "Tổng hợp sự cố" theo thứ tự tăng dần từ sheet " Sự cố B1-2 --> Sự cố B3-4 --> Sự cố B5". Em có gửi file đính kèm. Thanks các bác trước

 

[concogia]

Các bác giúp em với, em đang cần lập 1 bảng Dữ liệu. Giờ chỉ nhập DL từ các Sheet " Sự cố B1-2, Sự cố B3-4, Sự cố B5", DL sẽ tự động cập nhật vào sheet "Tổng hợp sự cố" theo thứ tự tăng dần từ sheet " Sự cố B1-2 --> Sự cố B3-4 --> Sự cố B5". Em có gửi file đính kèm. Thanks các bác trước

Bài này chắc phải dùng VBA
Tên Sheet không nên có khoảng trống và không nên có dấu
Vì phải chuyển dữ liệu tuần tự nên mình đề nghị đổi tên sheet theo thứ tự - còn thứ tự như thế nào là tùy bạn (trong bài mình đã đổi tên sheet thành "suco2", "suco3", suco4" )
Sheet không cần phải xếp theo thứ tự trước sau
Bạn thêm bao nhiêu sheet cũng được miễn cấu trúc giống nhau
Bạn thử sửa dũ liệu ở các sheet "suco..." chọn sheet "Tonghop" xem kết quả
Thân

Private Sub Worksheet_Activate()
Dim d, Ws As Worksheet, I, Vung
    d = Sheets.Count
    [a6:m10000].ClearContents
        For Each Ws In Worksheets
            For I = 1 To d
                If Ws.Name = "suco" & I Then
                    Set Vung = Ws.Range(Ws.[a6], Ws.[a1000].End(xlUp)).Resize(, 13)
                    [h10000].End(xlUp)(2).Offset(, -7).Resize(Vung.Rows.Count, 13).Value = Vung.Value
                    Exit For
                End If
            Next I
        Next
    Range([a6], [a10000].End(xlUp)) = [row(A:A)]
End Sub

 

[Pain.PS.381]

Thanks bác nhiều, ^_^. Vấn đề của em ok rồi