Lỗi Runtime error 6 - Overflow

[kirillivan]

Chào các bạn, mình đang chạy 1 macros (do bạn làm trước mình tạo) trước đó vẫn chạy bình thường nhưng hiện giờ bị lỗi.
Khi debug thì macros báo lỗi ở dòng in đậm

dòng cuối cùng có dữ liệu trong excel là 6077, dữ liệu cột A của dòng này là 12706, cột Q là công thức có kết quả là "đặt"
Mình đã mày mò mãi mấy hôm rồi vẫn không biết vì sao lỗi và sửa lỗi như thế nào (.
Các bạn giúp mình sửa lỗi này với.

Dim i, k, lr As Long
Dim kq(), arr() As Variant
Dim POwb As Workbook
Dim updatefile As Workbook
Dim strName As String
Dim Path As String
Dim UDws, POSheet As Worksheet
Dim result As Variant

On Error Resume Next
strName = InputBox("NHAP SO PO", "nhap so PO")
On Error GoTo 0
If strName = "" Then
MsgBox ("Blank")
Exit Sub
Else
End If

Workbooks.Open filename:="\\192.168.2.10\im-export & purchase\5. IM-EXPORT\quotation\PO SUSVN\1. Manufacturing\" & strName & ".xlsx" _
, UpdateLinks:=False

Set POwb = ActiveWorkbook
Set updatefile = ThisWorkbook
Set POSheet = POwb.ActiveSheet
Set UDws = updatefile.Sheets("Update")


With updatefile.Sheets("Update")
lr = .Range("A" & Rows.Count).End(xlUp).Row
arr = .Range("A3:Q" & lr).Value
End With

 

[Phuocam]

Dim kq(), arr() As Variant

Thử sửa nó thành:

Dim kq As Variant , arr As Variant

*** Chưa có file để thử.

 

[Nhattanktnn]

Chào các bạn, mình đang chạy 1 macros (do bạn làm trước mình tạo) trước đó vẫn chạy bình thường nhưng hiện giờ bị lỗi.
Khi debug thì macros báo lỗi ở dòng in đậm

dòng cuối cùng có dữ liệu trong excel là 6077, dữ liệu cột A của dòng này là 12706, cột Q là công thức có kết quả là "đặt"
Mình đã mày mò mãi mấy hôm rồi vẫn không biết vì sao lỗi và sửa lỗi như thế nào (.
Các bạn giúp mình sửa lỗi này với.

Không gửi file thì cũng chụp cái hình lỗi lên chứ, bói không được thì thôi

 

[kirillivan]

Thử sửa nó thành:

Dim kq As Variant , arr As Variant

*** Chưa có file để thử.

Cảm ơn bạn, mình đã sửa theo nhưng vẫn không được

Không gửi file thì cũng chụp cái hình lỗi lên chứ, bói không được thì thôi

Macros của mình có bước mở file ở một folder khác, nên gửi file lên cũng không chạy được.
Còn ảnh chụp lỗi thì nó cũng chỉ có các thông tin như mình đã cung cấp thôi.

Mình đính kèm file nháp và ảnh lên để bạn tham khảo thêm

 

[VetMini]

Cần xử lý 2 vấn đề:
1. Đổi Dim arr() As Variant thành Dim arr As Variant
2. Đổi .Value thành Value2 khi gán mảng

Từ cột A đến cột Q, cái mảng bự lắm. Nếu còn bị vấn đề thì phải dùng Union để chỉ load những cột cần thiết

Đính chính: Union không làm được. Dùng Application.Choose

 

[kirillivan]

Cần xử lý 2 vấn đề:
1. Đổi Dim arr() As Variant thành Dim arr As Variant
2. Đổi .Value thành Value2 khi gán mảng

Mình đã làm theo hướng dẫn của bạn và đã xử lý được.
File này còn 2 cái macros nữa cũng bị lỗi tương tự và mình đều đã sửa như bạn hướng dẫn.
Cảm ơn bạn rất nhiều.