Giúp sửa code Copy và điền cuối hàng khi nhập mới

[Taiclub]

Anh chị cho em hỏi là mỗi lần bấm nút xác nhân bên NHẬP KHO. Thì sẽ tự động copy ô C3 và C4 qua DINHLUONG ngày lập và tên công trình giống như tên vật tư. Tên vật tu có bao nhiêu ô thì ngày lập và tên cong trình cũng bấy nhiêu ô.Và muốn nhập mới thì tự động ddienf vào cuối hàng liên tiếp như vậy .Em cảm ơn anh chị rất nhiều ạ.

Bài đã được tự động gộp: 6/11/19

Như vậy ạ.

Khi thêm mới công trình thì như vậy ạ. Thank anh chị đã giúp ạ.

 

[phulien1902]

'---------------------------------

 

[Taiclub]

Sub Nhapkho()

Dim lr As Long

Dim lr_pnk As Long



lr = tim_dong_cuoi(DINHLUONG, "A") + 1

lr_pnk = tim_dong_cuoi(PNK, "B")



DINHLUONG.Range("A" & lr & ":B" & lr) = _

Application.Transpose(PNK.Range("C3:C4"))



DINHLUONG.Range("C" & lr & ":I" & lr + lr_pnk - 8).Value = _

PNK.Range("C8:I" & lr_pnk).Value



If lr_pnk - 8 > 0 Then

DINHLUONG.Range("A" & lr & ":B" & lr + lr_pnk - 8).FillDown

End If



End Sub



Function tim_dong_cuoi(sh As Worksheet, col As String)

tim_dong_cuoi = sh.Range(col & Rows.Count).End(xlUp).Row

End Function

Nếu vậy thì làm như thế này cũng được ạ .ý em là nếu co vật tư trùng thì tự cộng đồn và điền ô A và B bên DINHLUONG ạ.

 

[be_09]

Anh chị cho em hỏi là mỗi lần bấm nút xác nhân bên NHẬP KHO. Thì sẽ tự động copy ô C3 và C4 qua DINHLUONG ngày lập và tên công trình giống như tên vật tư. Tên vật tu có bao nhiêu ô thì ngày lập và tên cong trình cũng bấy nhiêu ô.Và muốn nhập mới thì tự động ddienf vào cuối hàng liên tiếp như vậy .Em cảm ơn anh chị rất nhiều ạ.

Bài đã được tự động gộp: 6/11/19

Như vậy ạ.
View attachment 227835
Khi thêm mới công trình thì như vậy ạ. Thank anh chị đã giúp ạ.View attachment 227836

Góp ý cho bạn:
1/ Nên có 1 sheet danh mục vật tư.
2/ Nên có 1 UserForm để chọn nhiều loại vật tư cùng lúc sẽ nhập liệu nhanh.

 

[Taiclub]

Góp ý cho bạn:
1/ Nên có 1 sheet danh mục vật tư.
2/ Nên có 1 UserForm để chọn nhiều loại vật tư cùng lúc sẽ nhập liệu nhanh.

Anh có : UserForm để chọn nhiều loại vật tư cùng lúc sẽ nhập liệu nhanh. Mong anh chia sẻ cho em tham khảo ạ.

 

[be_09]

Anh có : UserForm để chọn nhiều loại vật tư cùng lúc sẽ nhập liệu nhanh. Mong anh chia sẻ cho em tham khảo ạ.

Tham khảo File trong bài viết sau là tương tự.
Theo dõi và truy vấn đơn thuốc nơi phòng khám

 

[Taiclub]

Em dựa theo công thức của anh phulien1902 thì đã làm được nhưng có 1 điều từ ô sau lại là ô công thức có cách nào các ô màu vàng là ô Text không ạ . Mong anh chị trợ giúp.