Sửa giúp code dán Value có điều kiện (1 người xem)

[tienphat85]

Xin chào anh (chị) GPE!

Em mới học ecxel nên vấn đề về code VBA còn hạn chế, em có file quản lí vật tư như sau:

- Trong Sheet "PNK 01-VT":
+ Tại ô E5: gõ số thứ tự vào (gõ thủ công) thì nội dung trong bảng tính (lấy số liệu từ Sheet "TH-N" ) tương ứng với các cột Nội dung (B15), ĐVT (C15), Số lượng (Thực nhập) (E15), Đơn giá (F15), Thành Tiền(G15).

(Lấy số liệu của bảng TH-N copy và dán Value qua Sheet PN01-VT)

- Điều kiện:
+Nếu ô E5 trống thì ẩn hàng A15:A59 và xóa toàn bộ dữ liệu trong bảng tính.
+ Nếu có số liệu tương ứng rồi thì các hàng còn lại tự động ẩn đến hết hàng A59.
+ Các nội dung khác không thay đổi.


Xin các anh (chị) giúp em hoàn thiện file này.
EM xin chân thành cảm ơn! (em có file word chụp ảnh minh họa kèm theo)

 

[doveandrose]

có phải là vào ô E5 gõ số 1 thì tìm theo cột A của sheet TH-N ?

 

[tienphat85]

Vâng ạ! chính xác là vậy (nó cũng giống như dò tìm)

 

[tienphat85]

Mới học code nên không biết sửa code của bạn. chỉ có thể dùng công thức đơn thuần của excel như sau - có thêm code hide dòng trống. bạn tham khảo..........nếu ứng dụng được thì tốt. còn code ngon lành thì đợi các thành viên #

Code bị lỗi khi nhập số (ô E5) vào bạn à....

If Rng.Value = "" Then

Có lẽ ecxel bị lỗi thì phải, lúc được lúc không...

Mình cảm ơn bạn nhiều, công thức của bạn khá hay. Do mình ít va chạm công thức mảng nên .... hơi luốn cuốn

 

[tienphat85]

Dùng 2003 bị lỗi, dùng 2007 thì không

 

[tienphat85]

Ah. đúng rồi. vì trong file có xài hàm IFERROR nên 2003 lỗi........

Mình chỉ cần khai báo thêm và sửa công thức 1 tí là hết lỗi

Function IFERROR2003(Value As Variant, Value_if_Error As Variant) As Variant
IFERROR2003 = Choose(1 - IsError(Value), Value, Value_if_Error)
End Function


Nếu như minh chỉ để IFERROR mà không có cái đuôi "2003" thì dễ bị xung đột với các phiên bản Office 2007 trở đi.


hjhj