Trích dữ liệu từ sheet tổng hợp, tự động tạo sheet chi tiết (help) (2 người xem)

[godson]

Chào ae GPE
Mình có vấn đề cần ae giúp vs nhé:
(mình gửi kèm file hỏidap bao gồm 2 sheet KHSX, Theo dõi sx)
Trong sheet KHSX có kế hoạch sản xuất theo lệnh sản xuất, và các thông tin về lệnh sản xuất.
Sheet Theo dõi sx là sheet chi tiết theo từng lệnh sản xuất để cho các tổ trưởng theo dõi, và vào dữ liệu.
Hỏi: Giúp mình tự tạo sheet Theo dõi sx tự động theo Sheet KHSX
(trong đó, có thông tin theo lệnh sản xuất tương ứng, mình bôi màu vàng)

Cám ơn mn nhiều

 

[Tóc gió thôi bay]

Chào ae GPE
Mình có vấn đề cần ae giúp vs nhé:
(mình gửi kèm file hỏidap bao gồm 2 sheet KHSX, Theo dõi sx)
Trong sheet KHSX có kế hoạch sản xuất theo lệnh sản xuất, và các thông tin về lệnh sản xuất.
Sheet Theo dõi sx là sheet chi tiết theo từng lệnh sản xuất để cho các tổ trưởng theo dõi, và vào dữ liệu.
Hỏi: Giúp mình tự tạo sheet Theo dõi sx tự động theo Sheet KHSX
(trong đó, có thông tin theo lệnh sản xuất tương ứng, mình bôi màu vàng)

Cám ơn mn nhiều

bạn chạy code sau

Sub lsx()
Application.DisplayAlerts = False
With Sheets("KHSX")
Set c = .Cells.Find("l?nh s?n xu?t")
fr = c.Row
Set c = .Columns(c.Column).Find("*", c)
Do
Sheets("Theo doi sx").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = c
[B5] = c
Set c = .Columns(c.Column).FindNext(c)
Loop While c.Row <> fr
End With
Application.DisplayAlerts = True
End Sub

lưu ý :
- đổi tên sheet "Theo dõi sx" thành "Theo doi sx"
- thay vùng dò tìm trong các công thức của sheet "Theo doi sx" thành các khoảng cột, ví dụ $E$28:$O$40 thay bằng $E:$O, $E$28:$N$40 thành $E:$N...