Xin hỏi về code nhập kho có điều kiện

[tam8678]

Rất mong các anh, em trên GPE xem và giúp về nhập kho có điều kiện, mong muốn được ghi rõ trong file đính kèm. Cám ơn

 

[tam8678]

For Each Cll In Range("I5", [I13].End(xlUp))
Thêm nữa: MISSING CUQR ActiveX Control Module ---> [I][B]Anh bỏ dấu check mục này xem[/B][/I][/QUOTE]
---
Bỏ dấu check mục này thì chạy tốt, không hiểu chú ơi. Nhưng khi viết tiếp lệnh sort:
[QUOTE] 
Sub SORT_N()
With Range[COLOR=red][B]([A5],[/B][/COLOR] [G65536].End(xlUp))
.Sort .Cells(5, 1), 1, .Cells(5, 5), , 1, , , xlNo
End With
End Sub 
[/QUOTE]
Thì vẫn báo lỗi giống như trên (bôi đen): [COLOR=red][B][A5][/B][/COLOR]
Anh không hiểu nổi +-+-+-+, không biết lỗi do đâu. Chú xem giúp anh nhé
File đính kèm

 

[ndu96081631]

---
Bỏ dấu check mục này thì chạy tốt, không hiểu chú ơi. Nhưng khi viết tiếp lệnh sort:

Thì vẫn báo lỗi giống như trên (bôi đen): [A5]
Anh không hiểu nổi , không biết lỗi do đâu. Chú xem giúp anh nhé
File đính kèm

Em chạy file anh bình thương, chẳng thấy lổi gì cả
Hoặc cố gắng sửa code thành vầy xem:

Sub SORT_NDU()
  With Range(Range("A5"), Range("G65536").End(xlUp))
    .Sort .Cells(5, 1), 1, .Cells(5, 5), , 1, , , xlNo
  End With
End Sub

 

[tam8678]

Thêm nữa: MISSING CUQR ActiveX Control Module ---> Anh bỏ dấu check mục này xem

---
Chú có thể nói rõ phần này được không?

MISSING CUQR ActiveX Control Module

Cám ơn

 

[ndu96081631]

---
Chú có thể nói rõ phần này được không?

MISSING CUQR ActiveX Control Module

Cám ơn

Tức là trên file gốc người ta có xài đến Control này, và khi viết code đã vô tình "mang theo" ---> Trên máy anh lại chưa có Control này nên nó báo lổi MISSING ---> Chỉ vậy thôi

 

[HNB]

Code trên em đã test chạy rồi mới đưa lên mà anh. Chắc là flie của anh thiếu References gì đó (Trong VBE --> Tools --> References), anh gửi file lên xem thử.

Chào bác ptlong04x1,

Rất mong bác bớt chút thời gian giúp tôi một chút.
Không upload được file mẫu, nên tôi lập mẫu đơn giản dưới đây nhờ bác chỉ giúp cách cập nhật giữ liệu.

Sheet form (Sheet1):

1. Tên chứng khoán: TDH
2. Doanh thu : 250,000
3. Lợi nhuận : 60,000

Sheet dữ liệu (Sheet2):

Tên chứng khoán - Doanh thu - Lợi nhuận
1. ABT
2. BCI
3. CII
4. TDH
5. TS4
6. ACB
7. NLC
8. S96
9. SD9
400. .....

Bài toán đặt ra là khi ta vào dữ liệu như ví dụ trên ở sheet form (sheet1), thì chương trình tự động tìm mã chứng khoán TDH ở sheet dữ liệu (sheet2) trong cột B và đưa giá trị "Doanh thu" và "Lợi nhuận" vào cột C & D trên dòng tương ứng (TDH).

Cám ơn bác nhiều nhiều

 

[tam8678]

Chào bác ptlong04x1,

Rất mong bác bớt chút thời gian giúp tôi một chút.
Không upload được file mẫu, nên tôi lập mẫu đơn giản dưới đây nhờ bác chỉ giúp cách cập nhật giữ liệu.

Sheet form (Sheet1):

1. Tên chứng khoán: TDH
2. Doanh thu : 250,000
3. Lợi nhuận : 60,000

Sheet dữ liệu (Sheet2):

Tên chứng khoán - Doanh thu - Lợi nhuận
1. ABT
2. BCI
3. CII
4. TDH
5. TS4
6. ACB
7. NLC
8. S96
9. SD9
400. .....

Bài toán đặt ra là khi ta vào dữ liệu như ví dụ trên ở sheet form (sheet1), thì chương trình tự động tìm mã chứng khoán TDH ở sheet dữ liệu (sheet2) trong cột B và đưa giá trị "Doanh thu" và "Lợi nhuận" vào cột C & D trên dòng tương ứng (TDH).

Cám ơn bác nhiều nhiều

---
Bạn cố gắng đưa file lên, sẽ được thôi.
Thân

 

[tam8678]

Tức là trên file gốc người ta có xài đến Control này, và khi viết code đã vô tình "mang theo" ---> Trên máy anh lại chưa có Control này nên nó báo lổi MISSING ---> Chỉ vậy thôi

---

File gốc: anh hiểu rồi, file gốc chính là file Hổ trợ nhập liệu của: Tác giả Đại Ca
Cám ơn.
---
phuctam63@yahoo.com.vn

 

[HNB]

---
Bạn cố gắng đưa file lên, sẽ được thôi.
Thân

Cám ơn bác tam8678 đã quan tâm nhu cầu cấn thiết của tôi.
Đã hàng trăm lần đưa file lên, nhưng đều nhận được thông báo upload of file failed, dù tôi đã dùng file ở dạng xls, xlsx, rar và dung lượng file rất nhỏ (15 k).
Bác có thể cho tôi xin email của bác để gởi file được không.
Cám ơn bác nhiều.

 

[tam8678]

Cám ơn bác tam8678 đã quan tâm nhu cầu cấn thiết của tôi.
Đã hàng trăm lần đưa file lên, nhưng đều nhận được thông báo upload of file failed, dù tôi đã dùng file ở dạng xls, xlsx, rar và dung lượng file rất nhỏ (15 k).
Bác có thể cho tôi xin email của bác để gởi file được không.
Cám ơn bác nhiều.

---
Địa chỉ email : phía dưới bài #27. Mong
---
Nhờ Mod xóa hộ bài này. Cám ơn