Chỉ dùm mình cách nhập liệu 1 sheet thông qua sheet khác

[othanhquango]

Mình có file như đính kèm.
- Mình muốn khi nhập liệu từ sheet Mau xong => nhấn text box Gán=> các giá trị sẽ lần lượt được gán qua sheet Danhsach
- Sau này khi mình nhập số phiếu vào và nhấn nút xem thì các thông tin của phiếu đó sẽ hiện lại trên sheet Mau.

Nhờ các bạn giúp dùm mình. Cảm ơn các bạn.

 

[SA_DQ]

Bạn xem trong file nha

 

[othanhquango]

Cảm ơn bạn nhiều. Hiện tại mình xài khá ổn. Nhưng mình muốn thêm thế này:
- Số dòng trong form tự cập nhật và định dạng sao cho phù hợp với số lượng vật tư mình xuất. Ví dụ mình xuất 03 vật tư. Thì khi xem bảng chỉ có 03 dòng, mình xuất 05 vật tư thì khi nhấn nút xem, bảng sẽ cập nhật lại thành 05 dòng.
- Lúc xem lại, bạn chỉ nên gán Mã hàng từ sheet DanhSach qua thôi tên hàng và ĐVT thì mình sẽ dùng hàm Vlookup. Vì nếu bạn gán luôn cả tên hàng thì mất công thức. Hic
- Trường hợp mình đang xem số phiếu đó nút gán đổi thành nút Cập nhật
- Nếu không có gì thay đổi =>Nhấn nút => không tác dụng, đồng thời không gán thêm dữ liệu qua sheet DanhSach (vì hiện tại nếu đang xem mà nhấn sẽ gán thêm 1 lần nữa)
- Nếu dòng nào có số liệu thay đổi => nhấn nút => sheet DanhSach thay đổi theo. Có Msgbox hỏi lại: kiểu Yes/No, nội dung đoại loại sẽ liệt kê ra dòng x => thay đổi từ A thành B.
- Nếu thêm dòng dữ liệu hay xoá bớt dòng dữ liệu => nhấn nút => sheet DanhSach thêm hay xoá tương ứng. Có Msgbox hỏi lại: kiểu Yes/No, nội dung đại loại sẽ là: thêm các dòng có Mã hàng là: xyz, số lượng là: abc. Hoặc xóa các dòng xyz có Mã hàng là: xyz, số lượng là: abc

Nhờ bạn.

Mình rất chân thành cảm ơn bạn.

 

[ChanhTQ@]

Thích thì chiều

Bạn xem trong file đính kèm & tiếp tục cho í kiến, nha!

 

[othanhquango]

Bạn xem trong file đính kèm & tiếp tục cho í kiến, nha!

- Gán thì ok nhưng lỡ nhấp 2 lần => gán 2 lần (nguy hiểm với những người hay nhấp đôi)
- Xem thì lỗi.

Xoá số phiếu thì tự động dữ liệu đã nhập trên phiếu cũng ra đi. Hic hic.

Cảm ơn bạn. Bạn test lại dùm.

 

[SA_DQ]

(1) Để khỏi chép lần thứ 2 khi có số fiếu bên 'DanhSach' chúng ta thêm đoạn code sau vô giữa 2 dòng lệnh mờ trong Sub Gán:

[COLOR=silver] Fieu = [O2].Value:                             Dat = [A2].Value[/COLOR]
 Set Cls = Sh.Range(Sh.[b1], Sh.[b65500].End(xlUp))
 If Not Cls.Find(Fieu, , , xlValue, xlWhole) Is Nothing Then
   MsgBox "Da Nhap Ròi Ban À!", , "GPE Xin Luu Ý:"
   Set Sh = Nothing:                            Exit Sub
 End If
[COLOR=silver] NgDN = [d7].Value:                             BoFan = [D8].Value[/COLOR]

(2) Trong trang tính bạn đã trộn 1 số ô, nhưng cái này macro rất kỵ.
Bạn nên bỏ trộn ô để macro xóa tự động dữ liệu của số fiếu hiện hành, để nạp thông tin của số fiếu mới.
& cũng như trên, chúng ta cần thay các dòng lệnh giữa 2 dòng lệnh mờ như sau:

[COLOR=silver]   Do[/COLOR]
      With [G65500].End(xlUp).Offset(1)
         .Value = sRng.Offset(, 5).Value
[COLOR=blue]'         .Offset(, 1).Value = sRng.Offset(, 5).Value'[/COLOR]
         .Offset(, 1).Resize(, 2).Value = sRng.Offset(, 7).Resize(, 2).Value
[COLOR=silver]      End With[/COLOR]

(3) Đó là chuyện cần thiết để khỏi nhầm giữa dữ liệu từ số fiếu cũ khỏi bì tình cờ chuyển sang fiếu mới!
Nếu không cần thiết, bạn có thể vô macro sự kiện của trang tính & vô hiệu hóa nó/chúng đi

Những mong là khỏi fải đưa file lên.

 

[othanhquango]

Tôi vẫn thích code của: SA_DQ hơn, đơn giản vì chạy ổn mà không phải thay đổi gì hết. Nhờ bạn có thể thêm phát triển thêm giúp mình cái này:

Số dòng trong form tự cập nhật và định dạng sao cho phù hợp với số lượng vật tư mình xuất. Ví dụ mình xuất 03 vật tư. Thì khi xem bảng chỉ có 03 dòng, mình xuất 05 vật tư thì khi nhấn nút xem, bảng sẽ cập nhật lại thành 05 dòng.
- Lúc xem lại, bạn chỉ nên gán Mã hàng từ sheet DanhSach qua thôi tên hàng và ĐVT thì mình sẽ dùng hàm Vlookup. Vì nếu bạn gán luôn cả tên hàng thì mất công thức. Hic
- Trường hợp mình đang xem số phiếu đó nút gán đổi thành nút Cập nhật
- Nếu không có gì thay đổi =>Nhấn nút => không tác dụng, đồng thời không gán thêm dữ liệu qua sheet DanhSach (vì hiện tại nếu đang xem mà nhấn sẽ gán thêm 1 lần nữa)
- Nếu dòng nào có số liệu thay đổi => nhấn nút => sheet DanhSach thay đổi theo. Có Msgbox hỏi lại: kiểu Yes/No, nội dung đoại loại sẽ liệt kê ra dòng x => thay đổi từ A thành B.
- Nếu thêm dòng dữ liệu hay xoá bớt dòng dữ liệu => nhấn nút => sheet DanhSach thêm hay xoá tương ứng. Có Msgbox hỏi lại: kiểu Yes/No, nội dung đại loại sẽ là: thêm các dòng có Mã hàng là: xyz, số lượng là: abc. Hoặc xóa các dòng xyz có Mã hàng là: xyz, số lượng là: abc

À trong đoạn code mình thấy có mấy chỗ tô màu? Mục đích của nó là gì vậy ta? Vì bản in nên mình cũng không thích để màu.

Chân thành cảm ơn các bạn.

 

[SA_DQ]

Bạn thử nghiệm với file đính kèm & cho biết những điều cần chỉnh sửa tiếp.

 

[othanhquango]

Bạn thử nghiệm với file đính kèm & cho biết những điều cần chỉnh sửa tiếp.

Cảm ơn bạn nhiều.

Mình chạy còn thấy 1 số sự cố như sau:

- Số dòng vật tư đề nghị không nhất thiết là 08 dòng. Tối đa khoảng 150 và min là 1 dòng. Do đó, khi xem lại phiếu đó thì nên điều chỉnh số dòng và cả định dạng sao cho phù hợp với nội dung. Vì mình xem lại phiếu nào mà có đề nghị trên 8 vật tư thì những dòng chứa vật tư từ 09 trở đi không được định dạng kẻ bảng như các dòng trên.
- Khi nhấn nút xem: tất cả các công thức ở cột tên hàng và ĐVT bị xóa sạch => khi nhập phiếu mới phải nhập lại công thức. Mình muốn khi nhấn nút xem thì giữ lại cột Stt, tên hàng, ĐVT vì 3 cái này mình cài công thức vlookup theo mã hàng.
- Cột ghi chú bạn đừng gán thêm ngày mà gán thêm ghi chú tương ứng của dòng đó, phiếu đó (thêm 1 cột ghi chú bên sheet DanhSach để lưu thông tin).

Nếu có thể, nhờ các Update dùm. Cảm ơn bạn nhiều.

 

[SA_DQ]

Hãy kiểm với file này nha

 

[othanhquango]

Hãy kiểm với file này nha

Có cách không bỏ nối ô không bạn? Mình chạy vẫn không ẩn đúng các dòng, Định dạng vẫn lộn xộn. Để gởi lại file gốc này cho các bạn làm cho dễ. Sheet DSDNXUAT và GIAYDENGHIXUAT
- Nếu được các bạn xem luôn trong file mình có cách nào để nó tính toán nhanh hơn không? No chạy rùa quá. Mình không biết viêt code nên xài toàn công thức => rùa.

Nhờ các bạn giúp dùm. Chân thành cảm ơn các bạn.