Copy cell thỏa điều kiện ra File khác

[stao]

Chào các Bác, mình có đoạn code để copy dữ liệu thỏa điều kiện ra Sheet khác như sau:

ReDim dArr(1 To j, 1 To 1)
k = 0
For i = 1 To j
If Data(i,1) > 1 Then
k = k + 1
dArr(k, 1) = Data(i, 2)
End If
Next
If k Then Sheet1.Range("D1").End(xlUp).Offset(1).Resize(k, 1) = dArr

Khi muốn copy ra File khác thì sửa đoạn code "If k Then Workbooks("abc") sẽ bị báo lỗi.
Và có cách nào copy khỏi qua dArr không?
Nhờ các Bác chỉ giúp.

 

[hoanganhvo2612]

Chào các Bác, mình có đoạn code để copy dữ liệu thỏa điều kiện ra Sheet khác như sau:

ReDim dArr(1 To j, 1 To 1)
k = 0
For i = 1 To j
If Data(i,1) > 1 Then
k = k + 1
dArr(k, 1) = Data(i, 2)
End If
Next
If k Then Sheet1.Range("D1").End(xlUp).Offset(1).Resize(k, 1) = dArr

Khi muốn copy ra File khác thì sửa đoạn code "If k Then Workbooks("abc") sẽ bị báo lỗi.
Và có cách nào copy khỏi qua dArr không?
Nhờ các Bác chỉ giúp.

Code của bạn cụ thể thế nào vậy? để copy dữ liệu vào file khác thì file đó phải mở nhé.

 

[stao]

Code của bạn cụ thể thế nào vậy? để copy dữ liệu vào file khác thì file đó phải mở nhé.

File cần copy ra đang mở nha bạn. Mình đã xử lý được do tên sheet khai chưa đúng cú pháp