Tạo mã hàng tuơng ứng với mỗi sheet

[quochung2005]

Chào các bác mình muốn tạo một vật tư tương ứng với mỗi sheet, lọc từ sheet SO VT rồi copy ra sheet tuơng ứng với vật tư đó, mình làm miết mà không ra mong các anh chị làm giúp, trong file mình có làm 3 sheet tuơng ứng với 3 vật tư, nếu có bấy nhiu vật tư thi copy ra thành bấy nhiu sheet
thanks các bác nhiu
(Sub Tuchay()
On Error Resume Next
aaa = 0
Do While Sheets("Sheet1").Range("A1").Offset(aaa, 0).Value <> ""
Range("C4").Value = Sheets("Sheet1").Range("A1").Offset(aaa, 0).Value

'Copy qua
Range("D46").Copy Sheets(Range("C4").Value).Range("D4")
Sheets(Range("C4").Value).Range("D46").Value = Sheets(Range("C4").Value).Range("D46").Value
Range("A7:G100").Copy Sheets(Range("C4").Value).Range("A7:G100")
aaa = aaa + 1
Loop
End Sub)
dùng cái này thì mình tạo mã vật tư truớc tuơng ứng với sheet, có cách nào hay hơn ko mong chỉ giúp. thanks

 

[quochung2005]

Sao không ai giúp tôi vấn đề này với,suy nghỉ miết mà không ra kết quả được, mong các bác có cách nào ko chỉ giúp mình với

 

[ThuNghi]

Chào các bác mình muốn tạo một vật tư tương ứng với mỗi sheet, lọc từ sheet SO VT rồi copy ra sheet tuơng ứng với vật tư đó, mình làm miết mà không ra mong các anh chị làm giúp, trong file mình có làm 3 sheet tuơng ứng với 3 vật tư, nếu có bấy nhiu vật tư thi copy ra thành bấy nhiu sheet
thanks các bác nhiu
(Sub Tuchay()
On Error Resume Next
aaa = 0
Do While Sheets("Sheet1").Range("A1").Offset(aaa, 0).Value <> ""
Range("C4").Value = Sheets("Sheet1").Range("A1").Offset(aaa, 0).Value

'Copy qua
Range("D46").Copy Sheets(Range("C4").Value).Range("D4")
Sheets(Range("C4").Value).Range("D46").Value = Sheets(Range("C4").Value).Range("D46").Value
Range("A7:G100").Copy Sheets(Range("C4").Value).Range("A7:G100")
aaa = aaa + 1
Loop
End Sub)

Tôi có làm 1 file tạo BCNXT, sổ CT, NK, PXK theo QĐ 48
Xem qua HD tại sh TTDN
Chép số ĐK vào sh DMVT
Chép số PS vào sh DuLieu
Trước mắt giải quyết vấn đề soCT đã, cỏn những phần khác sẽ làm tiếp, vì file này hơi đặc thù.

 

[sealand]

Mình tham gia là không nên dựa vào sổ chi tiết chép ra, nó ảnh hưởng tốc độ và lệ thuộc.
Mình làm cho bạn bằng mảng

 

[quochung2005]

Cám ơn 2 bác Thunghi va sealand đã giúp đở