Hướng dẫn tạo Macro chọn dòng cuối để dán value

[cuong_vkh]

Kính nhờ anh chị giúp Tạo Macro chọn dòng cuối
Có 1 mẫu phiếu giao hàng, trong phiếu có thể có 1 hoặc nhiều hơn 1 mặt hàng được giao. Sau khi điền thông tin xong tôi tạo 1 nút ghi phiếu thì nó tự động cập nhật sang sheet tonghop.
Khi tạo phiếu giao hàng khác và ấn nút ghi phiếu thì tự động dán ở hàng sau cùng của sheet tonghop. (Lưu ý là phiếu có thể nhiều hơn 1 mặt hàng nên làm sao máy tính hiểu là chọn dòng cuối cùng để dán khi có phiếu giao hàng mới)
Cám ơn anh chị giúp đỡ

 

[Phuocam]

Kính nhờ anh chị giúp Tạo Macro chọn dòng cuối
Có 1 mẫu phiếu giao hàng, trong phiếu có thể có 1 hoặc nhiều hơn 1 mặt hàng được giao. Sau khi điền thông tin xong tôi tạo 1 nút ghi phiếu thì nó tự động cập nhật sang sheet tonghop.

Code của bạn viết tới đâu rồi? Chúng tôi sẽ hỗ trợ bạn nếu bạn đưa nó lên đây.

.

 

[HUONGHCKT]

Kính nhờ anh chị giúp Tạo Macro chọn dòng cuối
Có 1 mẫu phiếu giao hàng, trong phiếu có thể có 1 hoặc nhiều hơn 1 mặt hàng được giao. Sau khi điền thông tin xong tôi tạo 1 nút ghi phiếu thì nó tự động cập nhật sang sheet tonghop.
Khi tạo phiếu giao hàng khác và ấn nút ghi phiếu thì tự động dán ở hàng sau cùng của sheet tonghop. (Lưu ý là phiếu có thể nhiều hơn 1 mặt hàng nên làm sao máy tính hiểu là chọn dòng cuối cùng để dán khi có phiếu giao hàng mới)
Cám ơn anh chị giúp đỡ

Bạn xem file. thử thêm bớt dữ liệu và nhấn nút
Khuyên bạn: nên có cột theo dõi số phiếu GH để sau nàu có thể tra cứu.
Không nên mergercell===> khó cho việc thống kê, lọc...
bài này có thể phát triển thêm các chức năng: xem lại PGH , sửa, xóa,....

 

[snow25]

Kính nhờ anh chị giúp Tạo Macro chọn dòng cuối
Có 1 mẫu phiếu giao hàng, trong phiếu có thể có 1 hoặc nhiều hơn 1 mặt hàng được giao. Sau khi điền thông tin xong tôi tạo 1 nút ghi phiếu thì nó tự động cập nhật sang sheet tonghop.
Khi tạo phiếu giao hàng khác và ấn nút ghi phiếu thì tự động dán ở hàng sau cùng của sheet tonghop. (Lưu ý là phiếu có thể nhiều hơn 1 mặt hàng nên làm sao máy tính hiểu là chọn dòng cuối cùng để dán khi có phiếu giao hàng mới)
Cám ơn anh chị giúp đỡ

Nhìn vào cách làm của bạn cũng được đấy nhưng mà vẫn còn thiếu phần số phiếu nữa.Mà không nên để dòng trống vì khi dùng data nó không hợp lý.Bạn có thể xác định dòng cuối cùng của file tổng hợp bằng câu lệnh sau.

Sub dongcuoi()
   Dim lr As Long
   lr = Sheets("Tonghop").Range("E" & Rows.Count).End(xlUp).Row + 1
   MsgBox lr
End Sub

 

[cuong_vkh]

Bạn xem file. thử thêm bớt dữ liệu và nhấn nút
Khuyên bạn: nên có cột theo dõi số phiếu GH để sau nàu có thể tra cứu.
Không nên mergercell===> khó cho việc thống kê, lọc...
bài này có thể phát triển thêm các chức năng: xem lại PGH , sửa, xóa,....

Của bạn làm đúng ý của mình rồi. Cám ơn bạn rất

Bạn xem file. thử thêm bớt dữ liệu và nhấn nút
Khuyên bạn: nên có cột theo dõi số phiếu GH để sau nàu có thể tra cứu.
Không nên mergercell===> khó cho việc thống kê, lọc...
bài này có thể phát triển thêm các chức năng: xem lại PGH , sửa, xóa,....

Cái này của bác làm đúng ý, quá tuyệt vời. Trân trọng cảm ơn bác. Còn phát triển thêm các chức năng đó thì cao siêu quá, mình chưa làm được.

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

Nhìn vào cách làm của bạn cũng được đấy nhưng mà vẫn còn thiếu phần số phiếu nữa.Mà không nên để dòng trống vì khi dùng data nó không hợp lý.Bạn có thể xác định dòng cuối cùng của file tổng hợp bằng câu lệnh sau.

Sub dongcuoi()
   Dim lr As Long
   lr = Sheets("Tonghop").Range("E" & Rows.Count).End(xlUp).Row + 1
   MsgBox lr
End Sub

cám ơn bạn góp ý, để mình hoàn thiện thêm. Cám ơn bạn

 

[cuong_vkh]

Bạn xem file. thử thêm bớt dữ liệu và nhấn nút
Khuyên bạn: nên có cột theo dõi số phiếu GH để sau nàu có thể tra cứu.
Không nên mergercell===> khó cho việc thống kê, lọc...
bài này có thể phát triển thêm các chức năng: xem lại PGH , sửa, xóa,....

Sau khi mình hoàn thiện cái file của mình thì nó bị nhảy cột và hàng ở sheet tổng hợp, mình nhờ bạn sửa lại đoạn code ghi macro cho mình cho đúng hàng và cột được không? Cám ơn bạn nhiều

 

[HUONGHCKT]

Sau khi mình hoàn thiện cái file của mình thì nó bị nhảy cột và hàng ở sheet tổng hợp, mình nhờ bạn sửa lại đoạn code ghi macro cho mình cho đúng hàng và cột được không? Cám ơn bạn nhiều

Của bạn đây.
Khuyên bạn:
1/Bạn nên thêm 1 sh là DataHH (tôi đã thêm cho bạn) và nó sẽ tự động thêm vào khi Sh NHAP có biến động ở cột D.
2/Không nên để công thức quá nhiều trên file, như vậy sẽ nặng file,==>load chậm, nếu có code==chạy chậm.
3/Nên tìm hiểu các file NXT vật tư -hàng hóa-theo dõi công nợ (có rất nhiều trên diễn đàn này) để XD cho mình 1 file chuyên nghiệp hơn.

Ps:bạn ở chỗ nào của Hà Đông vậy?

 

[cuong_vkh]

Của bạn đây.
Khuyên bạn:
1/Bạn nên thêm 1 sh là DataHH (tôi đã thêm cho bạn) và nó sẽ tự động thêm vào khi Sh NHAP có biến động ở cột D.
2/Không nên để công thức quá nhiều trên file, như vậy sẽ nặng file,==>load chậm, nếu có code==chạy chậm.
3/Nên tìm hiểu các file NXT vật tư -hàng hóa-theo dõi công nợ (có rất nhiều trên diễn đàn này) để XD cho mình 1 file chuyên nghiệp hơn.

Ps:bạn ở chỗ nào của Hà Đông vậy?

Trụ sở chính ở cạnh tòa Nam Cường, còn mình làm ở tại xưởng và kho dưới bắc ninh bạn à. Cám ơn bạn đã giúp đỡ. Trong khuôn khổ kiến thức có hạn thì mình cũng chỉ tạo được file như vậy bạn à, còn ý tưởng thì nhiều nhưng mà không làm được. Cám ơn bạn góp ý. Vậy bạn có thể cho sdt liên lạc, khi nào ra trụ sở mình mời bạn cafe nhé. Ngoài ra cũng muốn học hỏi thêm bạn những kiến thức thú vị này

 

[cuong_vkh]

Của bạn đây.
Khuyên bạn:
1/Bạn nên thêm 1 sh là DataHH (tôi đã thêm cho bạn) và nó sẽ tự động thêm vào khi Sh NHAP có biến động ở cột D.
2/Không nên để công thức quá nhiều trên file, như vậy sẽ nặng file,==>load chậm, nếu có code==chạy chậm.
3/Nên tìm hiểu các file NXT vật tư -hàng hóa-theo dõi công nợ (có rất nhiều trên diễn đàn này) để XD cho mình 1 file chuyên nghiệp hơn.

Ps:bạn ở chỗ nào của Hà Đông vậy?

Mình đã down về dùng thử thì chạy ngon lành lắm. Cái sheet DataHH của bạn kiểu như dạng dùng remove Duplicate đúng không? Nếu có mã HH trùng nhau thì nó sẽ không xuất hiện trong DataHH nữa phải không?
Quá tuyệt vời, bạn có email thì gửi cho mình thi thoảng có ca nào khó nhờ bạn giúp đỡ được ko? Mà cho địa chỉ liên hệ đi thi thoảng ra HN mình ý ới cafe được k

 

[SA_DQ]

Trong bất kỳ phiếu giao nhập (hay xuất/nhập,. . . ) HH đều luôn có 2 phần;
a./ Phần chung là [Ngày], [Mã Phiếu[], [Mã QH] (Mã quan hệ), [Mã người G/n], [Tên người G/N],. . . .
b./ Phần chi tiết bao gồm: [STT], [Mã QH], [Mã HH], [ĐVT], [DonGia], [Số lượng],,. . . . .

Để khử những ô trống (dữ liệu), nên chăng ta lập 2 bảng riêng rẽ, liên hệ với nhau thông qua [Mã QH]

 

[HUONGHCKT]

Mình đã down về dùng thử thì chạy ngon lành lắm. Cái sheet DataHH của bạn kiểu như dạng dùng remove Duplicate đúng không? Nếu có mã HH trùng nhau thì nó sẽ không xuất hiện trong DataHH nữa phải không?
Quá tuyệt vời, bạn có email thì gửi cho mình thi thoảng có ca nào khó nhờ bạn giúp đỡ được ko? Mà cho địa chỉ liên hệ đi thi thoảng ra HN mình ý ới cafe được k

Tôi ở Nghệ An, nhưng quê ngoài đó, thi thoảng cũng hay về quê. hy vọng có dịp được gặp bạn. Số ĐT và zalo của tôi 0986997214
Sh DataHH được cập nhật thông qua dictonary, nói sẽ lọc hết các mã không trùng của Sh Nhap để gán vào.như kiểu Remove Duplicate
Như tôi đã nói bài này bạn nên tìm hiểu các bài về NXT- theo dõi công nợ (có nhiều trên diễn đàn này- Hình như của Anh MaiKa8008 có một file rất hay- free mà) để làm cho chuyên nghiệp và chắc chắn hơn.
Bạn có thể tìm hiểu và thêm các chức năng: Xem lại, sửa lại, xóa bỏ phiếu đã Nhập, đã xuất, tự động nhảy số hóa đơn, nếu cao cấp hơn nữa có thể tự động tạo mã HH (anh SA-DQ rất giỏi lĩnh vức này); Tự tổng hợp nhập xuất tồn, công nợ theo thời gian ấn định (từ ngày ...đến ngày) ... tất cả các nội dung trên được thực hiện thông qua clik chuột (nút bấm). Bạn thấy thế nào?
Tất nhiên để code chạy đúng, chạy nhanh thì dữ liệu khi cập nhật vào phải chuẩn, đồng nhất định dạng (ví dụ ngày là dd/mm/yyyy,...), không merge cell....Bạn đã xem bài của Anh SA_DQ ở trên chưa.
Chúc vui, khỏe, bình an trong đại dịch và thành công.
Thân!

 

[cuong_vkh]

Trong bất kỳ phiếu giao nhập (hay xuất/nhập,. . . ) HH đều luôn có 2 phần;
a./ Phần chung là [Ngày], [Mã Phiếu[], [Mã QH] (Mã quan hệ), [Mã người G/n], [Tên người G/N],. . . .
b./ Phần chi tiết bao gồm: [STT], [Mã QH], [Mã HH], [ĐVT], [DonGia], [Số lượng],,. . . . .

Để khử những ô trống (dữ liệu), nên chăng ta lập 2 bảng riêng rẽ, liên hệ với nhau thông qua [Mã QH]

Mình cũng đang tự mày mò nên còn nhiều cái chưa hoàn chỉnh. Cũng mong các ace đóng góp giúp đỡ

 

[HUONGHCKT]

Mình cũng đang tự mày mò nên còn nhiều cái chưa hoàn chỉnh. Cũng mong các ace đóng góp giúp đỡ

Gửi bạn link này, mở ra xem có phù hợp vói công việc của bạn không.

https://www.giaiphapexcel.com/diendan/threads/t%E1%BA%B7ng-file-qu%E1%BA%A3n-l%C3%BD-v%E1%BA%ADt-t%C6%B0-c%C3%B4ng-n%E1%BB%A3-nh%E1%BA%ADp-xu%E1%BA%A5t-kho-h%C3%A0ng-v%C3%A0-c%C3%B4ng-n%E1%BB%A3-kh%C3%A1ch-h%C3%A0ng.151557/unread

 

[cuong_vkh]

Gửi bạn link này, mở ra xem có phù hợp vói công việc của bạn không.

https://www.giaiphapexcel.com/diendan/threads/t%E1%BA%B7ng-file-qu%E1%BA%A3n-l%C3%BD-v%E1%BA%ADt-t%C6%B0-c%C3%B4ng-n%E1%BB%A3-nh%E1%BA%ADp-xu%E1%BA%A5t-kho-h%C3%A0ng-v%C3%A0-c%C3%B4ng-n%E1%BB%A3-kh%C3%A1ch-h%C3%A0ng.151557/unread

Để em down về nghiên cứu thử xem sao. Cám ơn anh nhiều

 

[HUONGHCKT]

Để em down về nghiên cứu thử xem sao. Cám ơn anh nhiều

Không biết bạn có hấp dẫn với món xem, sửa (thêm bớt nội dung PGH), xóa mà ở bài #3 tôi đã nói không?

 

[cuong_vkh]

Không biết bạn có hấp dẫn với món xem, sửa (thêm bớt nội dung PGH), xóa không?

Được thế thì còn gì bằng,vì nó cao siêu quá nên em ko làm được. E làm thủ công bằng việc xóa bỏ dòng sai bên sh TONGHOP và sau đó nếu sai phiếu nào thì nhập lại phiếu đó
Còn cái file anh gửi kia nó đồ sộ quá sức của em. Thêm nữa nếu em muốn copy những mặt hàng đã nhập để dán vào mục nhập thì không cho dán vào anh ạ

 

[cuong_vkh]

Bạn xem file. thử thêm bớt dữ liệu và nhấn nút
Khuyên bạn: nên có cột theo dõi số phiếu GH để sau nàu có thể tra cứu.
Không nên mergercell===> khó cho việc thống kê, lọc...
bài này có thể phát triển thêm các chức năng: xem lại PGH , sửa, xóa,....

Trong khả năng của E thì không thể tự viết thêm, sửa, xóa các hạng mục đó được. E gặp rắc rối với file gốc của công ty hiện đang phải nhập liệu như đính kèm. E đang tự xây dựng file cho riêng mình để tiện theo dõi. Muốn học hỏi thêm nhưng khả năng của E hiện chưa đáp ứng được với yêu cầu nên phải làm thủ công mặc dù rất muốn làm cho hoàn thiện.
Kính nhờ bác giúp đỡ E

 

[HUONGHCKT]

Trong khả năng của E thì không thể tự viết thêm, sửa, xóa các hạng mục đó được. E gặp rắc rối với file gốc của công ty hiện đang phải nhập liệu như đính kèm. E đang tự xây dựng file cho riêng mình để tiện theo dõi. Muốn học hỏi thêm nhưng khả năng của E hiện chưa đáp ứng được với yêu cầu nên phải làm thủ công mặc dù rất muốn làm cho hoàn thiện.
Kính nhờ bác giúp đỡ E

Trong cái file gốc của công ty bạn mà hoa mắt luôn. Trong đó tôi không hiểu là khi nhập hàng về , hoặc xuất hàng đi thì tìm đến sh có cùng tên hàng để nhập thủ công vào hay là dùng code để nhập, và ai là người nhập dữ liệu cho file ấy. và tôi cũng không hiểu là tại sao không theo doi về mặt giá trị của hàng hóa nhỉ?Nhập-Xuất hàng hóa phải liên quan đến Tiền nữa thì mới biết được hiệu quả kinh doanh, công nợ khách hàng, trách nhiệm nộp thuế....
1 file có đến gần 500 sh và mỗi sh khoảng độ có 50 dòng có công thức sơ sơ đã gần 3Mb.
Tôi đang mày mò làm cho bạn 1 file gần giống với file Demo của bạn. trong đó phần Nhập -Xuất-Tồn được để riêng thành từng Sh. khi cần tổng hợp lại bạn chỉ cần nhấn nút là có kết quả. Phần theo dõi thẻ kho cũng có thể làm được bằng VBA.
khi nào hoàn thiện tôi sẽ gửi cho bạn.
Chúc vui, khỏe, thành công,..

 

[cuong_vkh]

Trong cái file gốc của công ty bạn mà hoa mắt luôn. Trong đó tôi không hiểu là khi nhập hàng về , hoặc xuất hàng đi thì tìm đến sh có cùng tên hàng để nhập thủ công vào hay là dùng code để nhập, và ai là người nhập dữ liệu cho file ấy. và tôi cũng không hiểu là tại sao không theo doi về mặt giá trị của hàng hóa nhỉ?Nhập-Xuất hàng hóa phải liên quan đến Tiền nữa thì mới biết được hiệu quả kinh doanh, công nợ khách hàng, trách nhiệm nộp thuế....
1 file có đến gần 500 sh và mỗi sh khoảng độ có 50 dòng có công thức sơ sơ đã gần 3Mb.
Tôi đang mày mò làm cho bạn 1 file gần giống với file Demo của bạn. trong đó phần Nhập -Xuất-Tồn được để riêng thành từng Sh. khi cần tổng hợp lại bạn chỉ cần nhấn nút là có kết quả. Phần theo dõi thẻ kho cũng có thể làm được bằng VBA.
khi nào hoàn thiện tôi sẽ gửi cho bạn.
Chúc vui, khỏe, thành công,..

E còn suýt ngất với cái file đó và cũng khâm phục người tạo ra cái file đó về cái sự chăm chỉ+nhiệt tình=..., cái file đó E còn xóa đi rất nhiều sheet tạo ra làm phiếu giao hàng nữa, ôi trời ơi, E chắc cũng nghỉ việc vì cái file này mà hàng ngày hàng xuất đi E lại tìm mỏi mắt với những mặt hàng.
Cám ơn anh nhiều

 

[SA_DQ]

. . . . . E đang tự xây dựng file cho riêng mình để tiện theo dõi. Muốn học hỏi thêm nhưng khả năng của E hiện chưa đáp ứng được với yêu cầu nên phải làm thủ công mặc dù rất muốn làm cho hoàn thiện. Kính nhờ bác giúp đỡ E

Xin góp ý với bạn 1 số vấn đề, từ nhỏ nhất trở đi:
(1) Mã hàng không nên có ký tự đặc biệt, như 20 Ø0.3,
(2) Trong các mặt hàng của bạn có rất nhiều 'Dao. . .', 'Lưỡi dao. . . ' & 'Tấm đệm. . . '
Nên chăng ta đưa các mã biểu trưng cho 3 cụm từ này vô mã HH của bạn, như D12345, L23410 hay T12x13. . . .
(3) Trong trang 'DMHH' của bạnđang thiếu [ĐVT]
(4) Trang 'KH' của bạn đang thiếu cột [Mã Số Thuế], Cột ghi chú (để, ví dụ ghi ngày sinh của KH lẽ,. . . .)
. . . .
Tạm thời chỉ là vậy, mong bạn xem xét hay cho ý kiến.