Code Sửa Phiếu (1 người xem)

[DMQ]

Vì lý do nào đó, như gỏ lộn số lượng, Sếp kêu chỉnh lại ..vv..vv. Nên em muốn sửa lại SL Thực xuất. Mong các AC viết code sửa lại SL Thực xuất dùm. Mong các AC xem file đính kèm.

 

[phucbugis]

Vì lý do nào đó, như gỏ lộn số lượng, Sếp kêu chỉnh lại ..vv..vv. Nên em muốn sửa lại SL Thực xuất. Mong các AC viết code sửa lại SL Thực xuất dùm. Mong các AC xem file đính kèm.

bạn mở file test xem có đúng yêu cầu ko?

mình có bố trí 1 tí số liệu tại Sheet2
- lập điều kiện để dùng Advanced Filter
- thêm cột mã số.

code sửa phiếu hoạt động như sau: Xóa phiếu cũ, Update phiếu đã sửa, Sort ngày.

Link: https://www.mediafire.com/?gzvsam4nswshmeg

 

[DMQ]

Anh phucbugis cho em hỏi, ở sheet 2 anh thêm cột Mã Số cho nó đều số cột với sheet 1, bây giờ em muốn không có cột mã số (giống sheet 2 gốc của em) thì code làm sao hả anh????

 

[phucbugis]

Anh phucbugis cho em hỏi, ở sheet 2 anh thêm cột Mã Số cho nó đều số cột với sheet 1, bây giờ em muốn không có cột mã số (giống sheet 2 gốc của em) thì code làm sao hả anh????

thế khi update ngược vào Sheet1 ---> các mã số lấy ở đâu để điền vào cột Mã số vậy bạn?

 

[DMQ]

khi update về sheet 1 , mình bỏ qua cột mã số được không anh??? coi như cột mã số = 0 được không anh??

 

[phucbugis]

khi update về sheet 1 , mình bỏ qua cột mã số được không anh??? coi như cột mã số = 0 được không anh??

bạn tải lại file và test xem có đúng yêu cầu ko nhé,
- sửa lại Advanced Filter 1 tí
- Sub GPE_suaphieu

ArrData = Range([C65536].End(xlUp), [E8]).Value2 '<-- dòng này

và nhóm

        dArr(K, 5) = ""
        dArr(K, 6) = ArrData(i, 1)  'ten hang hoa
        dArr(K, 7) = ArrData(i, 2)  'DVT
        dArr(K, 8) = ArrData(i, 3)  'SL thuc xuat

'---
còn lại thì ko đổi.

Link: https://www.mediafire.com/?qkce79i91xm9aqn

 

[DMQ]

Xin lỗi Anh, tại em diễn đạt không rỏ. Cột mã số ở sheet 1 không được thay đổi. Theo như bài cùa Anh thì cột mã số sau khi update lại là khoảng trắng. Mà cột mã số ở sheet 1 còn liên kết với một sheet khác nữa(Em không đưa sheet đó lên) nên cột mã số không được thay đổi.Mong Anh giúp đỡ.

 

[phucbugis]

Xin lỗi Anh, tại em diễn đạt không rỏ. Cột mã số ở sheet 1 không được thay đổi. Theo như bài cùa Anh thì cột mã số sau khi update lại là khoảng trắng. Mà cột mã số ở sheet 1 còn liên kết với một sheet khác nữa(Em không đưa sheet đó lên) nên cột mã số không được thay đổi.Mong Anh giúp đỡ.

mình chưa hiểu rõ thao tác sửa phiếu của bạn,

bạn giải thích thêm về thao tác khi sửa phiếu bên sheet 2: có phải tên mặt hàng có thể điều chỉnh nhiều hơn hoặc ít hơn hay là ko đổi (chỉ thay đổi số lượng thực xuất).

 

[DMQ]

Trước mắt Anh chỉ thay đổi dùm em số lượng thực xuất thôi.(Em nói trước mắt, vì em nghĩ có khi cũng click nhầm mặt hàng lắm chứ) Mong Anh giúp cho thay đổi số lượng thực xuất.

 

[DMQ]

Xin lỗi Anh phucbugis nhe, em ăn nói vụng về quá. Anh có thể giúp em chỉ thay đổi số lượng xuất thôi được không ah. Mong Anh thông cảm bỏ qua.

 

[phucbugis]

Trước mắt Anh chỉ thay đổi dùm em số lượng thực xuất thôi.(Em nói trước mắt, vì em nghĩ có khi cũng click nhầm mặt hàng lắm chứ) Mong Anh giúp cho thay đổi số lượng thực xuất.

mình làm theo kiểu "trước mắt" của bạn vậy , ---> tải lại file và kiểm tra xem thế nào nhé.

Link: https://www.mediafire.com/?949uac03aiuzw2a

 

[DMQ]

Anh phucbugis coi lại sao phiếu số 16 không chỉnh được vậy Anh???

 

[phucbugis]

Anh phucbugis coi lại sao phiếu số 16 không chỉnh được vậy Anh???

hehe,

do ko có mã nên phải dựa vào cột Số phiếu xuất và tên hàng hoá trong khi tên hàng hoá có thể trùng tên ---> có 2 cách:
1. phải có cột mã tại sheet2
2. sheet2 phải có 1 cột phụ xác định vị trí các row của sheet1 sau khi lọc số phiếu xuất.

 

[DMQ]

Ah ra thế, vậy là do em coppy kéo xuống nên ra như vậy. Chứ thực tế là một phiếu xuất không thể ghi cùng một mặt hàng mà 2 dòng hoặc 3 dòng được. Cám ơn Anh nhiều . Em chỉ lo là click lộn mặt hàng mà thôi. Cái đó thì tính sau. Cám ơn ANh nhiều nhiều.!!!!!

 

[DMQ]

Anh phucbugis có thể chỉnh data validation ở cell B3 cho chỉ thể hiện số phiếu một lần thôi, chứ trong cell B3 một số phiếu hiện 3 lần(em đặt name đông- số liệu có thể rất nhiều) Mong Anh coi file đính kèm.

 

[phucbugis]

Anh phucbugis có thể chỉnh data validation ở cell B3 cho chỉ thể hiện số phiếu một lần thôi, chứ trong cell B3 một số phiếu hiện 3 lần(em đặt name đông- số liệu có thể rất nhiều) Mong Anh coi file đính kèm.

bạn tải tiếp file 1_2 về xem nhé, mình có thêm 1 sự kiện Worksheet_SelectionChange và 1 điều kiện lọc ở Worksheet_Change.

Link: https://www.mediafire.com/?51ea2ba0datyb96

 

[DMQ]

Cám Ơn Anh nhe!!!! Em đang thử.

 

[DMQ]

Uh, cell B3 ở sheet 2( ô Data validation, source anh vẫn gỏ tay vào. Mà dữ liệu cở 100 số phiếu thì gỏ sao nổi Anh) Bởi vậy em dùng name động để tự chạy số phiếu. Nhưng name động dở là thể hiện các phiếu trên các dòng(có phiếu hiện ra 3 dòng ..vv.vv. Anh có thể chỉnh data validation source là name động nhưng một số phiếu chỉ hiện một lân.

 

[phucbugis]

Uh, cell B3 ở sheet 2( ô Data validation, source anh vẫn gỏ tay vào. Mà dữ liệu cở 100 số phiếu thì gỏ sao nổi Anh) Bởi vậy em dùng name động để tự chạy số phiếu. Nhưng name động dở là thể hiện các phiếu trên các dòng(có phiếu hiện ra 3 dòng ..vv.vv. Anh có thể chỉnh data validation source là name động nhưng một số phiếu chỉ hiện một lân.

bạn có mở Macro để chạy file chưa?

cell B3 mình cài code ko cần dùng Name , mà nó tự động cập nhập số phiếu khi bạn chọn ô B3 (ở Worksheet_SelectionChange dùng scripting.dictionary ---> add trực tiếp ko trùng phiếu)

 

[DMQ]

Xin lỗi Anh phucbugis nhe, tại vì em chỉ dùng chuột click vào cell B3 thôi, chứ không nhấn phím Tab rồi chọn lại B3. Cám ơn Anh nhiều!!!!

 

[DMQ]

Anh phucbugis ơi cứu em với, em coppy đoạn code của Anh vào file làm việc của em sao mà bây giờ nó mất hết code rồi.Anh coi có phục hồi lại code dùm em với. chỉ chạy được form đăng nhập.

 

[phucbugis]

Anh phucbugis ơi cứu em với, em coppy đoạn code của Anh vào file làm việc của em sao mà bây giờ nó mất hết code rồi.Anh coi có phục hồi lại code dùm em với. chỉ chạy được form đăng nhập. passs: tychuot

hic, muốn giúp lắm nhưng down cái file về mà bị cảnh báo như sau:


---> ko dám kích hoạt ,

bạn có TeamView8 ko? nhắn tin riêng cho mình, rồi mình vào sửa trực tiếp xem sao?

 

[DMQ]

File này ở máy bàn Cty, mới cài Office 2007 cách đây 6 ngày(trước là office 2003) giờ nó bị như vậy. Office cũng đơ luôn. Đã tháo ra cài lại office 2007 nhưng cũng bị như vậy. Đã có cài office 2010 -6 ,7 lần đều không được. Chắc phải quay lại office 2003 thôi. Anh có ý kiến gì không, cho em lời khuyên!!!!

 

[phucbugis]

File này ở máy bàn Cty, mới cài Office 2007 cách đây 6 ngày(trước là office 2003) giờ nó bị như vậy. Office cũng đơ luôn. Đã tháo ra cài lại office 2007 nhưng cũng bị như vậy. Đã có cài office 2010 -6 ,7 lần đều không được. Chắc phải quay lại office 2003 thôi. Anh có ý kiến gì không, cho em lời khuyên!!!!

chắc do bạn xóa chưa sạch hoặc cài bộ office bị lỗi hoặc cái file đang chứa code có vấn đề. Lúc trước, mình cũng có bị nhiều lỗi ko hiểu nỗi -> phài cài lại cả Win

'- - -

vậy ở mt của bạn có bị cảnh báo như mình ko?

bạn đang xài office mấy? --> có thể chuyển đổi file đó thành định dạng .xlsm ko? (nếu được thì up lại 1 lần nữa xem)

 

[DMQ]

Em mới search trên google thì ra office 2007 của máy bàn Cty em bị khóa rồi. Để thứ hai đi làm, thử làm theo trên mạng xem sao. Còn bây giờ đang ở nhà, mở bằng Lap(Win 8.1, Office 2013) thì file đó cũng giống Anh. Cám Ơn Anh đã trả lời. Để thứ hai đi làm thử lại. Chúc Anh Tối thứ Bảy Vui Vẻ, Hạnh Phúc.