bảng kê chi tiết nhập xuất (2 người xem)

[NguyenthiH]

Chào các AC!
Em có file Excel nhờ các Anh Chị giúp đỡ, khi chọn trong 2 validation ở sheet "ChiTiet" thì hiện ra chi tiết nhập - xuất- tồn của phụ lieu đó.
Trong file em có ghi rõ.

 

[HieuCD]

Chào các AC!
Em có file Excel nhờ các Anh Chị giúp đỡ, khi chọn trong 2 validation ở sheet "ChiTiet" thì hiện ra chi tiết nhập - xuất- tồn của phụ lieu đó.
Trong file em có ghi rõ.

bạn kiểm tra lại file

 

[NguyenthiH]

Sao em tải File về chẳng thấy Nút Lọc và các Validation đâu cả vậy Anh Hiếu?
Mong Anh giúp em.

 

[NguyenthiH]

Xin lỗi Anh Hiếu.
Do máy em nó làm sao ấy. Được rồi ah. Anh chỉnh code để tự Border bảng chi tiết dùm em ah.
Dữ liệu tới đâu Border tới đó ah.
Cám Ơn Anh.

 

[HieuCD]

Xin lỗi Anh Hiếu.
Do máy em nó làm sao ấy. Được rồi ah. Anh chỉnh code để tự Border bảng chi tiết dùm em ah.
Dữ liệu tới đâu Border tới đó ah.
Cám Ơn Anh.

bạn chỉnh lại đoạn cuối của sub

....
'Gan ket qua
Range("A6:F1000").ClearContents
Range("A6:F1000").Borders.LineStyle = xlNone
If k Then
  Range("A6").Resize(k, 6) = Arr
  Range("A5").Resize(k + 1, 6).Sort [B5], 1, [F5], , 2, Header:=xlYes
  Darr = Range("A6").Resize(k, 6).Value
  Darr(1, 1) = 1:  Darr(1, 6) = Darr(1, 4) - Darr(1, 5)
  For i = 2 To k
    Darr(i, 1) = i:  Darr(i, 6) = Darr(i - 1, 6) + Darr(i, 4) - Darr(i, 5)
  Next i
  Range("A6").Resize(k, 6) = Darr
  Range("A6").Resize(k, 6).Borders.LineStyle = 1
  Range("D6").Resize(k, 3).NumberFormat = "#,##0.00_);[Red]($#,##0.00)"
End If

 

[NguyenthiH]

Anh Hiếu coi dùm em, sao File của Anh em tải về không có nút "Lọc" va2khi mở file hie6n5bang3:

và em nhấn "Yec thì hiện tie6p1bang3:

và khi làm xong hiện bang lưu thì chỉ cho Save As
Mong Anh giúp đỡ.

 

[NguyenthiH]

Và trong VBE thì có tới 2 ThisWorkBook như hình, và code lại nằm trong Sheet4(ThisWorkBook), em có thử xóa Sheet4(ThisWorkBook) nhưng không được

 

[HieuCD]

Và trong VBE thì có tới 2 ThisWorkBook như hình, và code lại nằm trong Sheet4(ThisWorkBook), em có thử xóa Sheet4(ThisWorkBook) nhưng không được

file mình không có bị, nên không biết như thế nào
bạn nhận file mới xem sao? đã chuyển 1 code tạo list thành sub bình thường khi cần cập nhật dữ liệu mới của sheet TON thì bấm biểu tượng chạy code

 

[NguyenthiH]

Cám ơn Anh Hiếu, sao ngay cả file mới của Anh cũng vẫn còn bị như bài #6, chỉ không còn như bài 7 (không có 2 Thisworkbook trong cửa sổ VBE), nhưng cứ khi muốn lưu là hiện bang Save As để lưu, không lưu được bình thường. Mong anh và Thầy ndu xem xét dùm em vụ này với.

 

[NguyenthiH]

Em xài Win10 Office2016, chỉ có File này bị như vậy thôi, còn mấy file Excel khác không bị.
Mong mọi người giúp đỡ.

 

[HieuCD]

Em xài Win10 Office2016, chỉ có File này bị như vậy thôi, còn mấy file Excel khác không bị.
Mong mọi người giúp đỡ.

Lấy file gốc của bạn và thêm code, xóa name không cần thiết. bạn tải lại file mới ở bài #8 xem sao

 

[NguyenthiH]

Em Tải lại File mới nhất của Anh (#8 lúc 10:36 tối 20/02/2017) vẫn bị Anh ơi (vẫn hiện bang như #6).
Em có thử tạo file mới, copy và Paste Value của dữ liệu vào, copy code của anh và paste vào. Vẫn bị như #6.
Sao mấy File Excel hồi trước Anh làm cho em không sao, mà file này lại bị như vậy, kỳ quá.
Nếu được, Anh ngâm cứu dùm em.

 

[NguyenthiH]

Em có search trên Google, vào trang này(cũng hiện bang giống em), nhưng trình tiếng Anh hơi kém nên cũng chả hiểu, Anh có thể giúp em.

 

[HieuCD]

Em có search trên Google, vào trang này(cũng hiện bang giống em), nhưng trình tiếng Anh hơi kém nên cũng chả hiểu, Anh có thể giúp em.

bị lổi là do tạo list trong Data Validation bằng mảng. bạn kiểm tra lại file mới tự động hoàn toàn không cần nút lệnh
code nằm trong: Module, sheet Chitiet và Workbook

 

[NguyenthiH]

cám ơn Anh Hiếu, được rồi Anh ơi! Không lỗi nữa.
Ah mà Anh có thể Sort list trong Validation C3 được không Anh?
Chúc Anh một ngày VUI VẺ!

 

[HieuCD]

cám ơn Anh Hiếu, được rồi Anh ơi! Không lỗi nữa.
Ah mà Anh có thể Sort list trong Validation C3 được không Anh?
Chúc Anh một ngày VUI VẺ!

bạn xem file mới, đã sort list C3

 

[NguyenthiH]

Cám Ơn Anh Hiếu đã nhiệt tình giúp đỡ.
Có phải Anh Sort list Validation bằng hàm tự tao, và khai báo Public cho vào Module1 phải không Anh?
Chỉ cần vậy thôi, chư không cài trong Sub nào hả Anh?
Em cám ơn Anh.

 

[HieuCD]

Cám Ơn Anh Hiếu đã nhiệt tình giúp đỡ.
Có phải Anh Sort list Validation bằng hàm tự tao, và khai báo Public cho vào Module1 phải không Anh?
Chỉ cần vậy thôi, chư không cài trong Sub nào hả Anh?
Em cám ơn Anh.

bỏ khai báo Puclic của Function SortList cũng được, phải nằm trong module
tách riêng khỏi code chính để dể quản lý và code chính gọn, ngoài ra các code khác có thể gọi Function SortList để sử dụng

 

[NguyenthiH]

Nếu bây giờ mình không dùng Validation (Tránh lỗi) thì có thể dùng ComboBox được không Anh?
File của Anh, nếu em Save As qua xlsb thì lại bị lỗi.

 

[Gà Công Nghệ]

bạn xem file mới, đã sort list C3

https://drive.google.com/open?id=0B63YPhFgbjNZcjNQaTR5TVRfZlk file nhập xuất tồn.