Copy noi du lieu & dánh số thứ tự theo điều kiện. (1 người xem)

[Thien]

Mình vừa ứng dụng xong code copy dữ liệu từ 01 sheet sang 02 sheet khác, chạy rất tốt, nhưng thấy chuối quá, các bạn vui lòng chỉ giáo hộ.

Bên cạnh đó còn việc đánh STT khó quá chưa làm được, các bạn chỉ hộ với, với quy luật như cột B trong sheet KQ nhưng thêm "-và số thứ tự tăng dần" bên 02 sheet kia.

Các bạn vui lòng xem file.

Thân.

 

[ndu96081631]

Mình vừa ứng dụng xong code copy dữ liệu từ 01 sheet sang 02 sheet khác, chạy rất tốt, nhưng thấy chuối quá, các bạn vui lòng chỉ giáo hộ.

Bên cạnh đó còn việc đánh STT khó quá chưa làm được, các bạn chỉ hộ với, với quy luật như cột B trong sheet KQ nhưng thêm "-và số thứ tự tăng dần" bên 02 sheet kia.

Các bạn vui lòng xem file.

Thân.

Code đâu mà dài thế ---> Theo tôi chỉ vầy là đủ:

Sub Test()
  With Range(S00.[C2], S00.[C65536].End(xlUp))
    S01.Range("B65536").End(xlUp).Offset(1).Resize(.Rows.Count).Value = .Value
    S01.Range("J65536").End(xlUp).Offset(1).Resize(.Rows.Count).Value = .Offset(, 6).Value
    S02.Range("B65536").End(xlUp).Offset(1).Resize(.Rows.Count).Value = .Offset(, 2).Value
    S02.Range("C65536").End(xlUp).Offset(1).Resize(.Rows.Count).Value = .Offset(, 3).Value
    S02.Range("J65536").End(xlUp).Offset(1).Resize(.Rows.Count).Value = .Offset(, 5).Value
    S02.Range("K65536").End(xlUp).Offset(1).Resize(.Rows.Count).Value = .Offset(, 6).Value
  End With
End Sub

Còn vụ STT tôi vẫn chưa hiểu lắm!

 

[Thien]

To ndu96081631

Cảm ơn sự quan tâm của Anh.
Mình muốn đánh số thứ tự theo tr2inh tự như sau:
- Đánh STT bên sheet ChungTuChiTiet trước tại cột A.
- Lấy từ chữ cái bên phải tài khoản có đến hết phần "-" thứ 2. Ví dụ 1121CTY-EXB-TD sẽ lấy EXB-TD hay 1121CTY-EXB-HS sẽ lấy EXB-HS.
- Số tiếp theo là tháng phát sinh bên sheet ChungTu theo cột B.
- Số tiếp theo là thứ tự từ nhỏ đến lớn.
- Số CT bên ChungTu & ChungTuChiTiet là như nhau.
Vui lòng xem file đính kèm ở bài #1
Anh giúp nhé.

Thân.