Chuyển đổi để in tem (2 người xem)

[Mr Dolphy]

Chào các anh chị,
Em xin nhờ các anh chị giúp em phần code VBA này một chút, ý tưởng của em là em có 1 bảng tổng hợp thanh nhôm tồn kho, giờ em muốn in tem để dán lên thanh nhôm đó cho dễ quản lý, phần mềm in thì nó đọc được file Excel, mọi thứ em là được hết rồi, chỉ còn phần chuyển đổi từ sheet nạp dữ liệu để chuyển sang sheet in tem nó hơi bị cùi bắp vì em toàn phải copy và paste bằng tay (nhiều khi nó nhiều dễ bị nhầm lẫn).

Anh chị giúp em phần macro chuyển như vầy, bấm nút chuyển đổi thì nó sẽ đọc dữ liệu từ sheet "Nạp dữ liệu" chuyển sang sheet "In mã tồn kho", với số hàng sẽ được copy tương ứng với cột SÔ LƯỢNG, chỉ việc copy và chuyển như trong file đính kèm em đã chuyển bằng tay (phần copy em đã bôi đậm lên cho mọi người dễ hình dung). File sau khi chuyển đổi có thể bỏ cột SỐ LƯỢNG thì càng tốt ạ.
Nếu được nữa thì giúp em thêm phần nút XÓA để Clear content toàn bộ các hàng trong sheet "Nạp dữ liệu" để chừa lại hàng 1 thôi.

Em không phải dân chuyên Excel VBA nên hơi lúng túng vụ này xíu, em có tìm được vài cái đoạn code insert dòng mà loay hoay mãi chả biết làm sao lắp ghép cho nó hợp với bài toán của mình, mong các anh chị giúp đỡ.

Cám ơn các anh chị nhiều, chúc sức khỏe ạ.

 

[be_09]

Chào các anh chị,
Em xin nhờ các anh chị giúp em phần code VBA này một chút, ý tưởng của em là em có 1 bảng tổng hợp thanh nhôm tồn kho, giờ em muốn in tem để dán lên thanh nhôm đó cho dễ quản lý, phần mềm in thì nó đọc được file Excel, mọi thứ em là được hết rồi, chỉ còn phần chuyển đổi từ sheet nạp dữ liệu để chuyển sang sheet in tem nó hơi bị cùi bắp vì em toàn phải copy và paste bằng tay (nhiều khi nó nhiều dễ bị nhầm lẫn).

Anh chị giúp em phần macro chuyển như vầy, bấm nút chuyển đổi thì nó sẽ đọc dữ liệu từ sheet "Nạp dữ liệu" chuyển sang sheet "In mã tồn kho", với số hàng sẽ được copy tương ứng với cột SÔ LƯỢNG, chỉ việc copy và chuyển như trong file đính kèm em đã chuyển bằng tay (phần copy em đã bôi đậm lên cho mọi người dễ hình dung). File sau khi chuyển đổi có thể bỏ cột SỐ LƯỢNG thì càng tốt ạ.
Nếu được nữa thì giúp em thêm phần nút XÓA để Clear content toàn bộ các hàng trong sheet "Nạp dữ liệu" để chừa lại hàng 1 thôi.

Em không phải dân chuyên Excel VBA nên hơi lúng túng vụ này xíu, em có tìm được vài cái đoạn code insert dòng mà loay hoay mãi chả biết làm sao lắp ghép cho nó hợp với bài toán của mình, mong các anh chị giúp đỡ.

Cám ơn các anh chị nhiều, chúc sức khỏe ạ.

Đọc diễn giải của Bạn xong thì chả hiểu bạn muốn cái gì luôn?
1/ Tem là cái gì, chỗ nào?
2/ Sheet in tem là sheet nào? Trong File có 2 sheet (sheet "Nạp dữ liệu" và sheet "In mã tồn kho"), diễn giải không đồng bộ thì ai hiểu cho được.
3/ Chừa lại hàng 1 là dòng nào (chừa tiêu đề thì dễ hiểu hơn).
4/ Phần copy đã bôi đậm là phần nào, tôi chỉ thấy tô màu xanh so sánh giữa 2 sheet thì thấy trớt qướt.

 

[concogia]

Chào các anh chị,
Em xin nhờ các anh chị giúp em phần code VBA này một chút, ý tưởng của em là em có 1 bảng tổng hợp thanh nhôm tồn kho, giờ em muốn in tem để dán lên thanh nhôm đó cho dễ quản lý, phần mềm in thì nó đọc được file Excel, mọi thứ em là được hết rồi, chỉ còn phần chuyển đổi từ sheet nạp dữ liệu để chuyển sang sheet in tem nó hơi bị cùi bắp vì em toàn phải copy và paste bằng tay (nhiều khi nó nhiều dễ bị nhầm lẫn).

Anh chị giúp em phần macro chuyển như vầy, bấm nút chuyển đổi thì nó sẽ đọc dữ liệu từ sheet "Nạp dữ liệu" chuyển sang sheet "In mã tồn kho", với số hàng sẽ được copy tương ứng với cột SÔ LƯỢNG, chỉ việc copy và chuyển như trong file đính kèm em đã chuyển bằng tay (phần copy em đã bôi đậm lên cho mọi người dễ hình dung). File sau khi chuyển đổi có thể bỏ cột SỐ LƯỢNG thì càng tốt ạ.
Nếu được nữa thì giúp em thêm phần nút XÓA để Clear content toàn bộ các hàng trong sheet "Nạp dữ liệu" để chừa lại hàng 1 thôi.

Em không phải dân chuyên Excel VBA nên hơi lúng túng vụ này xíu, em có tìm được vài cái đoạn code insert dòng mà loay hoay mãi chả biết làm sao lắp ghép cho nó hợp với bài toán của mình, mong các anh chị giúp đỡ.

Cám ơn các anh chị nhiều, chúc sức khỏe ạ.

1)Tên Sheet không nên đặt quá phức tạp
2)Xóa dữ liệu trong Sheet "Nap du lieu" chừa lại 1 hàng là........hàng nào. Híc
Thân

 

[Mr Dolphy]

Em xin lỗi vì giải thích cho mọi người ko hiểu được. Em xin gửi lại file.

1. Sheet "Nhap lieu" là nơi em sẽ điền dữ liệu vào, sheet "In Tem" ban đầu là sheet trắng (trừ dòng tiêu đề) và sau khi bấm nút chuyển đổi nó sẽ được như vậy. Em ghi nhầm, phần tô màu xanh chữ đỏ là phần được copy theo số lượng.

2. Hàng 1 là dòng có chữ đỏ nền màu vàng ạ (em để làm tiêu đề) chứ không phải 1 hàng.

Hy vọng mọi người hiểu được. Cám ơn các anh chị.

Thân.

Bài đã được tự động gộp: 5/10/18

1)Tên Sheet không nên đặt quá phức tạp
2)Xóa dữ liệu trong Sheet "Nap du lieu" chừa lại 1 hàng là........hàng nào. Híc
Thân

Đúng ý em rồi anh ạ.
Xin giúp em thêm phần macro để xóa dữ liệu trong sheet "Nạp dữ liệu" chừa lại dòng 1 (dòng tiêu đề, chữ đỏ màu vàng) vì để lần sau em nhập liệu nó không bị dư ra khúc cuối do dữ liệu sau ngắn hơn dữ liệu trước.

Cám ơn anh.

Chúc anh sức khỏe ạ.
Thân.

 

[concogia]

Em xin lỗi vì giải thích cho mọi người ko hiểu được. Em xin gửi lại file.

1. Sheet "Nhap lieu" là nơi em sẽ điền dữ liệu vào, sheet "In Tem" ban đầu là sheet trắng (trừ dòng tiêu đề) và sau khi bấm nút chuyển đổi nó sẽ được như vậy. Em ghi nhầm, phần tô màu xanh chữ đỏ là phần được copy theo số lượng.

2. Hàng 1 là dòng có chữ đỏ nền màu vàng ạ (em để làm tiêu đề) chứ không phải 1 hàng.

Hy vọng mọi người hiểu được. Cám ơn các anh chị.

Thân.

1) Mình đã làm cho bạn rồi, bạn xóa hết dữ liệu ở Sheet "InTem" rồi bấm nút chuyển xong sang sheet "InTem" xem kết quả
2) Gán code này vào nút "Xóa":

Public Sub Xoa()
    Range([A2], [A50000].End(xlUp)).Resize(, 5).ClearContents
End Sub

Thân

 

[Mr Dolphy]

1) Mình đã làm cho bạn rồi, bạn xóa hết dữ liệu ở Sheet "InTem" rồi bấm nút chuyển xong sang sheet "InTem" xem kết quả
2) Gán code này vào nút "Xóa":

Public Sub Xoa()
    Range([A2], [A50000].End(xlUp)).Resize(, 5).ClearContents
End Sub

Thân

Dạ em làm được rồi anh.

Cám ơn anh nhiều nhiều ^^

Chúc anh sức khỏe.

Thân.