Xin Giúp Về Code VBA copy tự động !! (1 người xem)

[hoduytrieuvy]

mình có 4 ô bên gồm :
B1: Tên Hàng. (có hàm)
B2: Số lượng.
B3: Đơn giá. ( có hàm)
B4: Thành tiền. ( có hàm )
4 ô bên dưới bao gồm: các cột hàng ngang ( cũng y như tên ở trên).
Các ô B1, B3, B4 hiển thị số liệu. Mình muốn nhập vào ô B2 và enter thì hệ thống sẽ tự động copy tất cả các số liệu của 4 ô trên vào bảng phía dưới, để báo cáo những thứ cần chọn. Xong rồi xóa các số liệu đã chọn ở ô trên để nhập số liệu khác.

Và mỗi lần cập nhật 1 số liệu khác ở ô B2 thì ở bảng phía dưới cũng sẽ tự động xuống dòng mới nhưng vẫn giữ nguyên số liệu của dòng trên.

 

[PacificPR]

mình có 4 ô bên gồm :
B1: Tên Hàng. (có hàm)
B2: Số lượng.
B3: Đơn giá. ( có hàm)
B4: Thành tiền. ( có hàm )
4 ô bên dưới bao gồm: các cột hàng ngang ( cũng y như tên ở trên).
Các ô B1, B3, B4 hiển thị số liệu. Mình muốn nhập vào ô B2 và enter thì hệ thống sẽ tự động copy tất cả các số liệu của 4 ô trên vào bảng phía dưới, để báo cáo những thứ cần chọn. Xong rồi xóa các số liệu đã chọn ở ô trên để nhập số liệu khác.

Và mỗi lần cập nhật 1 số liệu khác ở ô B2 thì ở bảng phía dưới cũng sẽ tự động xuống dòng mới nhưng vẫn giữ nguyên số liệu của dòng trên.

Bạn giải thích nhiều quá làm mọi người rối. Mình hiểu là Khi nhập số liệu tại B2 sẽ lấy dữ liệu xuống dưới bảng tạo thành 1 hóa đơn không biết có đúng không. Bạn xem file thử xem

 

[le_vis]

mình có 4 ô bên gồm :
B1: Tên Hàng. (có hàm)
B2: Số lượng.
B3: Đơn giá. ( có hàm)
B4: Thành tiền. ( có hàm )
4 ô bên dưới bao gồm: các cột hàng ngang ( cũng y như tên ở trên).

Các ô B1, B3, B4 hiển thị số liệu. Mình muốn nhập vào ô B2 và enter thì hệ thống sẽ tự động copy tất cả các số liệu của 4 ô trên vào bảng phía dưới, để báo cáo những thứ cần chọn. Xong rồi xóa các số liệu đã chọn ở ô trên để nhập số liệu khác.

Và mỗi lần cập nhật 1 số liệu khác ở ô B2 thì ở bảng phía dưới cũng sẽ tự động xuống dòng mới nhưng vẫn giữ nguyên số liệu của dòng trên.

Một kiểu nữa để bạn lựa chọn

 

[hoduytrieuvy]

Bạn giải thích nhiều quá làm mọi người rối. Mình hiểu là Khi nhập số liệu tại B2 sẽ lấy dữ liệu xuống dưới bảng tạo thành 1 hóa đơn không biết có đúng không. Bạn xem file thử xem

Cám ơn bạn đã giúp mình. Đúng ý mình rồi bạn. Thanks bạn nhiều.

Một kiểu nữa để bạn lựa chọn

Quá chuẩn bạn ơi. Code gọn nhẹ, nhanh. Thanks bạn nhiều.

 

[PacificPR]

Bạn làm 2 Sheet Nhật ký nhập và nhật Ký xuất từ đó ra X-N-T thì sẽ hiệu quả hơn

 

[hoduytrieuvy]

Bạn làm 2 Sheet Nhật ký nhập và nhật Ký xuất từ đó ra X-N-T thì sẽ hiệu quả hơn

Vâng. Vì mình đang rối ngay chỗ đó nên chưa làm mấy cái kia tốt hơn. Giờ thì mình rút gọn vài phần lại cho logic.

 

[PacificPR]

Vâng. Vì mình đang rối ngay chỗ đó nên chưa làm mấy cái kia tốt hơn. Giờ thì mình rút gọn vài phần lại cho logic.

Bạn thử bố trí lại file như thế này xem sao
1) Danh mục hàng ( Như bạn đã làm)
2) Phần nhập gồm
- Danh sách nhà cung cấp
- Phiếu nhập hàng
- Nhập ký nhập
3) Phần Xuất gồm
- Danh sách khách hàng ( Nếu bán lẻ thì không cần)
- Phiếu xuất ( Như bạn đã làm)
- Nhật ký xuất
4) Xuất - Nhập -Tồn ( Tồn đầu kỳ, Nhập trong kỳ, Xuất trong kỳ, Tồn Cuối Kỳ)
*) Phần nhập, Xuất dùng Form sẽ tiện hơn

 

[hoduytrieuvy]

Một kiểu nữa để bạn lựa chọn

mãi mới gửi được file .

cám ơn bạn. Các bạn ấy đã giúp được mình rồi. Còn 1 vấn đề nữa.

Bạn thử bố trí lại file như thế này xem sao
1) Danh mục hàng ( Như bạn đã làm)
2) Phần nhập gồm
- Danh sách nhà cung cấp
- Phiếu nhập hàng
- Nhập ký nhập
3) Phần Xuất gồm
- Danh sách khách hàng ( Nếu bán lẻ thì không cần)
- Phiếu xuất ( Như bạn đã làm)
- Nhật ký xuất
4) Xuất - Nhập -Tồn ( Tồn đầu kỳ, Nhập trong kỳ, Xuất trong kỳ, Tồn Cuối Kỳ)
*) Phần nhập, Xuất dùng Form sẽ tiện hơn

bạn ơi giúp mình cái nữa đi. Mình đã làm nút " xóa " dữ liệu mỗi khi báo cáo xong. Làm thế nào để trước khi xóa thì bên hàng tồn kho sẽ trừ đi phần mình báo cáo đã lấy đi.

 

[PacificPR]

bạn ơi giúp mình cái nữa đi. Mình đã làm nút " xóa " dữ liệu mỗi khi báo cáo xong. Làm thế nào để trước khi xóa thì bên hàng tồn kho sẽ trừ đi phần mình báo cáo đã lấy đi.

Cái này mới chết: MB20 tồn có 63 mà Xuất đến 90 ( Không có thì lấy gì mà xuất đây). Cứ tạm như vậy đi để mình rảnh mình làm lại cho ( Cần phải có 1 cái gì đó để xem hàng tồn trong lúc báo cáo mới ổn được)

 

[hoduytrieuvy]

Cái này mới chết: MB20 tồn có 63 mà Xuất đến 90 ( Không có thì lấy gì mà xuất đây). Cứ tạm như vậy đi để mình rảnh mình làm lại cho ( Cần phải có 1 cái gì đó để xem hàng tồn trong lúc báo cáo mới ổn được)

Mình đã làm phần đó rồi bạn.
Giờ chỉ có chỗ là khi nhập tên sp, số lượng bấm xuất, thì số lượng bên kho tự động dò theo tên sp nhập rồi trừ số lượng nhập ra.

 

[hoduytrieuvy]

Cái này mới chết: MB20 tồn có 63 mà Xuất đến 90 ( Không có thì lấy gì mà xuất đây). Cứ tạm như vậy đi để mình rảnh mình làm lại cho ( Cần phải có 1 cái gì đó để xem hàng tồn trong lúc báo cáo mới ổn được)

Mình đã làm phần đó rồi bạn.
Giờ chỉ có chỗ là khi nhập tên sp, số lượng bấm xuất, thì số lượng bên kho tự động dò theo tên sp nhập rồi trừ số lượng nhập ra.

 

[quanluu]

Mình đã làm phần đó rồi bạn.
Giờ chỉ có chỗ là khi nhập tên sp, số lượng bấm xuất, thì số lượng bên kho tự động dò theo tên sp nhập rồi trừ số lượng nhập ra.

Bạn thêm mấy dòng này vào cuối sub NhapLieu_X
Mình thấy file N_X_T của bạn đơn giản quá, nên tìm hiểu quản lý NXT của các file khác xem.

    With Sheet3
        For i = 2 To 16
            If .Cells(i, 2) = Tenhang Then .Cells(i, 5) = .Cells(i, 5) + SoLuong
        Next
    End With

 

[hoduytrieuvy]

Bạn thêm mấy dòng này vào cuối sub NhapLieu_X
Mình thấy file N_X_T của bạn đơn giản quá, nên tìm hiểu quản lý NXT của các file khác xem.

cám ơn bạn. Vì mình chỉ làm để việc kinh doanh trong nhà nhanh hơn. Nên chỉ cần đơn giản mà nhanh, gọn như vậy là được.

 

[le_vis]

Cám ơn bạn đã giúp mình. Đúng ý mình rồi bạn. Thanks bạn nhiều.


Quá chuẩn bạn ơi. Code gọn nhẹ, nhanh. Thanks bạn nhiều.

Bạn sửa lại giúp đoạn code mầu đỏ sau : Thành B1 và B2
Private Sub NLX_Click()
If Range("A1") = "" Or Range("A2") = "" Then
MsgBox "Ban chua nhap du du lieu" & Chr(13) & "Xin ban hay kiem tra lai", , "Thong Bao"
Else
NhapLieu_X
End If
End Sub