Dữ liệu không lưu đúng cột đã chỉ định (1 người xem)

[HopBVB]

Tôi có một form nhập dữ liệu (được sửa lại từ form khác) nhưng có một vấn đề về lưu dữ liệu trên sheet TONGHOP. Cụ thể: Menu CARD ACTIONS không lưu dữ liệu nhập vào từ form theo đúng cột đưa ra.
Các pro xem xét và góp ý giúp tôi với nhé.
Cảm ơn các pro nhiều.

 

[ndu96081631]

Tôi có một form nhập dữ liệu (được sửa lại từ form khác) nhưng có một vấn đề về lưu dữ liệu trên sheet TONGHOP. Cụ thể: Menu CARD ACTIONS không lưu dữ liệu nhập vào từ form theo đúng cột đưa ra.
Các pro xem xét và góp ý giúp tôi với nhé.
Cảm ơn các pro nhiều.

File của bạn thuộc dạng xlsx ---> Làm gì có code chứ ---> Không biết bạn đã từng dùng macro trên Excel 2007 chưa nhỉ?

 

[HopBVB]

File của bạn thuộc dạng xlsx ---> Làm gì có code chứ ---> Không biết bạn đã từng dùng macro trên Excel 2007 chưa nhỉ?

Bạn ơi, tôi đã gửi lại file đính kèm rồi đó. Cảm ơn lời nhắc của bạn.

 

[ndu96081631]

Bạn ơi, tôi đã gửi lại file đính kèm rồi đó. Cảm ơn lời nhắc của bạn.

Nói thật bạn đừng giận: Nhìn cái form của bạn tôi thấy "ngán" quá ---> Nó lượm thượm và... lòng thòng đến mức.. thừa thãi
Nếu là tôi thì tôi sẽ thu gọn lại ---> Với cái form ấy tôi chỉ cần 1 page là đủ (cần quái gì đến 6 page mà cấu trúc lại y chang nhau)
Đến khi sửa code, tìm muốn lòi con mắt... Hic...
----------------------
Bây giờ bạn nói cụ thể đi (đở mất công tìm): trong page CARD ACTIONS ấy, control nào lưu không đúng? ---> Và nếu chính xác thì control nào sẽ lưu vào cột nào?

 

[HopBVB]

Rất cảm ơn bạn đã có những nhận xét ...rất phải. Quả thật, tôi chẳng biết tẹo nào về VBA cả, tôi chỉ là người lấy một form khác rồi chế lại nên nó lòng, luộm, thừa....
Page CARD ACTIONS cần lưu những thông tin sau:
1. Menu DICRECT: Dữ liệu cần lưu như sau:
- Exist: lưu tại ô W6
- Prospect 1: lưu tại X6
- Prospect 2: lưu tại Y6
2. Menu PHONE
- Exist: lưu tại ô Z6
- Prospect 1: lưu tại AA6
- Prospect 2: lưu tại AB6
3. Menu E-MAIL
- Exist: lưu tại ô AC6
- Prospect 1: lưu tại AD6
- Prospect 2: lưu tại AE6
4. Page OTHER
- Lưu tại AO6
- Lưu tại AP6

 

[HopBVB]

Rất cảm ơn bạn đã có những nhận xét ...rất phải. Quả thật, tôi chẳng biết tẹo nào về VBA cả, tôi chỉ là người lấy một form khác rồi chế lại nên nó lòng, luộm, thừa....
Page CARD ACTIONS cần lưu những thông tin sau:
1. Menu DICRECT: Dữ liệu cần lưu như sau:
- Exist: lưu tại ô W6
- Prospect 1: lưu tại X6
- Prospect 2: lưu tại Y6
2. Menu PHONE
- Exist: lưu tại ô Z6
- Prospect 1: lưu tại AA6
- Prospect 2: lưu tại AB6
3. Menu E-MAIL
- Exist: lưu tại ô AC6
- Prospect 1: lưu tại AD6
- Prospect 2: lưu tại AE6
4. Page OTHER
- Lưu tại AO6
- Lưu tại AP6

 

[ndu96081631]

Rất cảm ơn bạn đã có những nhận xét ...rất phải. Quả thật, tôi chẳng biết tẹo nào về VBA cả, tôi chỉ là người lấy một form khác rồi chế lại nên nó lòng, luộm, thừa....
Page CARD ACTIONS cần lưu những thông tin sau:
1. Menu DICRECT: Dữ liệu cần lưu như sau:
- Exist: lưu tại ô W6
- Prospect 1: lưu tại X6
- Prospect 2: lưu tại Y6
2. Menu PHONE
- Exist: lưu tại ô Z6
- Prospect 1: lưu tại AA6
- Prospect 2: lưu tại AB6
3. Menu E-MAIL
- Exist: lưu tại ô AC6
- Prospect 1: lưu tại AD6
- Prospect 2: lưu tại AE6
4. Page OTHER
- Lưu tại AO6
- Lưu tại AP6

Ủa sao kỳ vậy!
Tôi nhìn vào sheet dữ liệu thì thấy rằng:
1. Nhóm DICRECT
- Exist: lưu tại ô AF6
- Prospect 1: lưu tại AG6
- Prospect 2: lưu tại AH6
... vân vân...
Bạn xem lại lần nữa nhé

 

[HopBVB]

Vâng, tôi nhầm rồi.
Bạn giú tôi theo đề nghị này nhé:
1. Menu DICRECT: Dữ liệu cần lưu như sau:
- Exist: lưu tại ô W6
- Prospect 1: lưu tại AF6
- Prospect 2: lưu tại AG6
2. Menu PHONE
- Exist: lưu tại ô AI6
- Prospect 1: lưu tại AJ6
- Prospect 2: lưu tại AK6
3. Menu E-MAIL
- Exist: lưu tại ô AL6
- Prospect 1: lưu tại AM6
- Prospect 2: lưu tại AN6
4. Page OTHER
- Lưu tại AO6
- Lưu tại AP6

 

[ndu96081631]

Vâng, tôi nhầm rồi.
Bạn giú tôi theo đề nghị này nhé:
1. Menu DICRECT: Dữ liệu cần lưu như sau:
- Exist: lưu tại ô W6
- Prospect 1: lưu tại AF6
- Prospect 2: lưu tại AG6
2. Menu PHONE
- Exist: lưu tại ô AI6
- Prospect 1: lưu tại AJ6
- Prospect 2: lưu tại AK6
3. Menu E-MAIL
- Exist: lưu tại ô AL6
- Prospect 1: lưu tại AM6
- Prospect 2: lưu tại AN6
4. Page OTHER
- Lưu tại AO6
- Lưu tại AP6

Tôi nhìn vào dữ liệu của bạn thì:
- Page INSURANCE ACTION bắt đầu từ cột W, kết thúc tại cột AE
- Page CARD ACTION bắt đầu từ cột AF, kết thúc tại cột AN
Nếu như tại page CARD ACTION mà Exist lại lưu vào cột W thì chẳng hóa ra lưu "nhầm" sang nơi khác sao?
Trong code của bạn có đoạn:

ws.Cells(iRow, 33).Value = Me.CTAUTHUY.Value
ws.Cells(iRow, 34).Value = Me.txtTPHIBH.Value
ws.Cells(iRow, 35).Value = Me.txtTNGAYNOPPHI.Value
ws.Cells(iRow, 36).Value = Me.txtTDate.Value

Tôi nghĩ là không ổn (nhầm ở chỉ số cột)
Theo tôi, lý ra nó phải là:

ws.Cells(iRow, 38).Value = Me.CTAUTHUY.Value
ws.Cells(iRow, 39).Value = Me.txtTPHIBH.Value
ws.Cells(iRow, 40).Value = Me.txtTNGAYNOPPHI.Value
ws.Cells(iRow, 41).Value = Me.txtTDate.Value

 

[HopBVB]

Cảm ơn bạn. Bạn đã chỉ ra lỗi của mình.
Chân thành cảm ơn.