Code chia nhãn số thùng (1 người xem)

[lhthai]

Chào các Anh
File em nội dung như sau tại cột H là số lượng thùng và cột L & M là cột chia nhãn
Vd tại cột H số thùng là 1 thì nhãn 1-1,tiếp tục dòng sau cột H có số thùng 5 thì nhãn tiếp tục 2-6...
Các Anh xem file đính kèm.

 

[hungpecc1]

Chào các Anh
File em nội dung như sau tại cột H là số lượng thùng và cột L & M là cột chia nhãn
Vd tại cột H số thùng là 1 thì nhãn 1-1,tiếp tục dòng sau cột H có số thùng 5 thì nhãn tiếp tục 2-6...
Các Anh xem file đính kèm.

xem file rồi cũng vẫn không hiểu ??
nếu là 5 thùng thì nhãn là 2-6, số 2 và 6 liên quan với số 5 như thế nào ?

 

[lhthai]

xem file rồi cũng vẫn không hiểu ??
nếu là 5 thùng thì nhãn là 2-6, số 2 và 6 liên quan với số 5 như thế nào ?

Ý số 5 như sau em có 5 thùng hàng và đánh số mỗi thùng (2 , 3 , 4 , 5 , 6) tiếp bắt đầu bằng số 2
số 32 như sau em có 32 thùng hàng và đánh số mỗi thùng(7 , 8 , ... , 38) tiếp bắt đầu bằng số 7

 

[sealand]

Thử dùng code sau xem sao:

Sub SplitBox()
Dim Tm, Box, eR, i
eR = Sheets("115 MEN_12.12.14").[E65536].End(3).Row
If eR < 6 Then Exit Sub
Tm = Sheets("115 MEN_12.12.14").Range("E6:N" & eR)
For i = 1 To UBound(Tm, 1)
If Tm(i, 4) > 0 Then
Tm(i, 8) = Box + 1
Tm(i, 9) = "-"
Box = Box + Tm(i, 4)
Tm(i, 10) = Box
ElseIf Tm(i, 1) <> "" And Tm(i, 4) = 0 Then
Tm(i, 8) = "-"
Tm(i, 9) = "-"
Tm(i, 10) = "-"
Else
Tm(i, 8) = ""
Tm(i, 9) = ""
Tm(i, 10) = ""
End If
Next
Sheets("115 MEN_12.12.14").Range("E6:N" & eR) = Tm
End Sub

 

[lhthai]

Thử dùng code sau xem sao:

Sub SplitBox()
Dim Tm, Box, eR, i
eR = Sheets("115 MEN_12.12.14").[E65536].End(3).Row
If eR < 6 Then Exit Sub
Tm = Sheets("115 MEN_12.12.14").Range("E6:N" & eR)
For i = 1 To UBound(Tm, 1)
If Tm(i, 4) > 0 Then
Tm(i, 8) = Box + 1
Tm(i, 9) = "-"
Box = Box + Tm(i, 4)
Tm(i, 10) = Box
ElseIf Tm(i, 1) <> "" And Tm(i, 4) = 0 Then
Tm(i, 8) = "-"
Tm(i, 9) = "-"
Tm(i, 10) = "-"
Else
Tm(i, 8) = ""
Tm(i, 9) = ""
Tm(i, 10) = ""
End If
Next
Sheets("115 MEN_12.12.14").Range("E6:N" & eR) = Tm
End Sub

Mình test Ok
Cám ơn bạn nhiều