Mọi người giúp em code VBA để copy và insert row từ sheet này sang sheet khác. (1 người xem)

[tornado]

Em có 2 sheet dữ liệu:
Bây giờ em muốn viết code để kiểm tra dữ liệu từ ô A1 đến A100, nếu thỏa mãn điều kiện =1 chẳng hạn thì sẽ copy cả dòng có ô Ax đó rồi insert sang vị trí nhất định tại sheet .
Em viết như sau:
Dim a as integer
For a= 1 to 100
If worksheets("1").Cells(a, 1).value = 1 then
Worksheets("1").Cells(a, 1).entirerow.Copy
Worksheets("2").Cells(2,2).Insert
End If
Next

Nhưng khi chạy báo lỗi
Anh chị nào biết vui lòng sửa giúp em.Em cám ơn nhiều!

 

[Quang_Hải]

Em có 2 sheet dữ liệu:
Bây giờ em muốn viết code để kiểm tra dữ liệu từ ô A1 đến A100, nếu thỏa mãn điều kiện =1 chẳng hạn thì sẽ copy cả dòng có ô Ax đó rồi insert sang vị trí nhất định tại sheet .
Em viết như sau:
Dim a as integer
For a= 1 to 100
If worksheets("1").Cells(a, 1).value = 1 then
Worksheets("1").Cells(a, 1).entirerow.Copy
Worksheets("2").Cells(2,2).Insert
End If
Next

Nhưng khi chạy báo lỗi
Anh chị nào biết vui lòng sửa giúp em.Em cám ơn nhiều!

1. Mấy con số 1 và 2 kia không có bị kẹp như thế, bỏ dấu nháy nhá
2. Phải thêm EntireRow vào trước Insert

 

[ndu96081631]

1. Mấy con số 1 và 2 kia không có bị kẹp như thế, bỏ dấu nháy nhá

Ah... cái đó còn tùy à nha! Biết đâu con số 1, 2 ấy chính là Tên của sheet (khác hoàn toàn với 1, 2.. là chỉ số Index)

 

[Quang_Hải]

Ah... cái đó còn tùy à nha! Biết đâu con số 1, 2 ấy chính là Tên của sheet (khác hoàn toàn với 1, 2.. là chỉ số Index)

Em biết vấn đề này, nhưng vẫn cứ trả lời xem chủ thớt phản ứng ra sao rồi mần tiếp. Dù sao cũng đang rảnh mà anh.
Vì chủ thớt nói là code chạy báo lỗi nên em đoán thế. Vào GPE học thêm được khả năng đoán mò. Hic