Giúp Code: lấy số liệu từ Sheet Tổng hợp và Sheet có liên quan. (1 người xem)

[Hong.Van]

Em chào Thầy cô & anh chị!
Xin vui lòng viết code giúp em: Trích dữ liệu từ Sheet Tổng hợp và Sheet có liên quan
Em có mô tả trong Sheet Yeucau
Em cảm ơn!

 

[vodoi2x]

Dòng này khai báo kích thước bị thiếu
Sửa lại vầy coi sao

ReDim ArrNx(1 To UBound(TongHop)*2, 1 To 4)

Sửa thế chạy được , NHƯNG SAI và sai cơ bản,

Nhưng nó báo lỗi
"Run - time error 9
Subcript out of range"
(dòng chữ màu đỏ)
Em đã tìm nhưng vẫn chưa được, Nhờ Thầy cô & anh chị giúp sửa code.
Em cảm ơn!

Vậy bạn hãy tìm đoạn có 3 dòng sau,
[GPECODE=vb]
'Tinh toan
Set dNx = CreateObject("scripting.dictionary")
n = IIf(CoT13, 4, 3)
[/GPECODE]

sửa thành
[GPECODE=vb]
'Tinh toan
Set dNx = CreateObject("scripting.dictionary")
n = IIf(CoT13, 4, 3): k = 0
[/GPECODE]

chỉ cần thêm : k = 0 đó ah,