Không chạy được vba ở sheet khác

[vubaduc1993]

Chào các bác
có bác nào giải thích hộ em được không - cùng 1 code vba viết ra
ở sheet IN thì e nhập được dữ liệu của .txt
nhưng khi copy code vba áp dụng cho sheet OUT thì lại không nhập được dữ liệu từ .txt là sao ạ

 

[batman1]

Chào các bác
có bác nào giải thích hộ em được không - cùng 1 code vba viết ra
ở sheet IN thì e nhập được dữ liệu của .txt
nhưng khi copy code vba áp dụng cho sheet OUT thì lại không nhập được dữ liệu từ .txt là sao ạ

Có nhập chứ sao không?

Tất nhiên code chỉ làm đúng như được viết chứ không làm đúng với mong đợi của người viết.

Cả hai code đều có

If K Then
lR = Sheet2.Range("A" & Rows.Count).End(xlUp).Row + 1
Sheet2.Range("A" & lR).Resize(K, 4).Value = sArr
End If

, tức đều làm một việc y hệt nhau là "đập" kết quả vào sheet2, tức sheet IN - nhấn nút 1 hay nút 2 kết quả đều đi vào sheet IN

Do 2 nút cùng chung 1 code nên sửa thành

If K Then
        lR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
        ActiveSheet.Range("A" & lR).Resize(K, 4).Value = sArr
End If

Khi nhấn nút 1 thì ActiveSheet là IN nên kết quả sẽ được "đập" xuống IN. Khi nhấn nút 2 thì ActiveSheet là OUT nên kết quả sẽ được "đập" xuống OUT. Thế thôi.

Hoặc code hiện có chỉ dùng cho nút 1 và giữ nguyên Sheet2. Thêm 1 code mới cho nút 2 giống như code cho nút 1 nhưng 2 chỗ Sheet2 thì đổi thành Sheet4.

Tất nhiên nên dùng 1 code thôi.