Xem file của bạn nặng bao nhiêu kilogam? Diễn đàn không cho mang hành lý ký gửi vượt quá quy định .
Các bạn giúp mình với mình dang rât cần. Xin cảm ơn nhiều.
Bạn nhìn xem đề tài của bạn đã được đọc gần 200 lần, gần 30 lần tải file mà không ai làm giúp vì bạn mô tả không rõ ràng. Mình liều mạng đoán làm đại xem có trúng ý của bạn hay không. Không trúng thì ráng chịu.
Các bác ơi giúp em với. Sao không có ai cứu giup mình thế?Sub tonghop()
Application.ScreenUpdating = False
Dim sh(), i As Byte, j As Long, tim As Range, dl()
sh = Array("Tien 1", "Tien 2", "Phay", "Mai", "Nguoi")
Sheets("TH").Range("H8:L18,H20:L74,H77:L85,H88:L182").ClearContents
For i = 0 To UBound(sh)
With Sheets(sh(i))
dl = .Range(.[B6], .[B65536].End(3)).Resize(, 8).Value
End With
For j = 1 To UBound(dl)
If dl(j, 1) <> "" Then
Set tim = Sheets("TH").[B:B].Find(Trim(dl(j, 1)))
If Not tim Is Nothing Then
If tim.Offset(, 2) <> "" Then
Sheets("TH").Cells(tim.Row, i + 8) = dl(j, 7)
End If
End If
End If
Next
Next
Application.ScreenUpdating = True
End Sub
Mình xin lỗi đã không nói cụ thể ý mình muốn nhờ các bạn giúp.
Y mình là mình sẽ làm bảng chi tiết ở các sheet tien, phay, nguội,... các ban làm giúp mình bảng tổng hợp ở sheet tổng hợp. Sheet nay có cột tên sản phẩm sẽ tu động lấy tên bên các sheet tien, phay, nguoi,... nếu tên sản phẩm trùng nhau thì nó tự cập nhật các số liệu vào cột tương ứng Bởi vì tên sản phẩm của mỗi tháng khác nhau nó phụ thuộc vào tên sản phẩm của các sheet chi tiết. Chỉ có cái bảng TH có các cột là giữ nguyên. Các bạn làm giúp mình cái bảng TH sao cho khi mình nhập tên sản phẩm mới nào đó bên các sheet chi tiêt thì bảng TH sẽ tự động nhập tên sp và các số liệu sang (Cột tên sản phẩm này các tên thay đổi thường xuyên và giữa các tháng không trùng nhau nên mình thường phải nhập bàng tay nên hay nhầm lẫn)
Xin cảm ơnquanghai1969
Đã nhiệt tình giúp đỡ nhưng do mình nói chưa rõ ý nên bạn mới làm phần số liệu tự động nhập sang bảng TH thôi. Rất mong bạn ra tay giúp mình lần nữa. Xin cảm chân thành cảm ơn!
