[Hỏi đáp - Giúp đỡ] Hỏi về lỗi 1004

[vn.danhmay]

Chào anh chị bạn
Em đang có một vấn đề rắc rối với code tách dòng ạ.
Em có một bảng dữ liệu kế toán có rất nhiều dòng trống không thể sort được nên em viết code VBA để tách các dòng theo điều kiện ạ

Code em viết như này ạ.

Sub tachdong()

Dim i As Long

For i = 1 To 350000

If Application.Sheets(1).Range("Q" & i).Value = Application.ActiveSheet.Range("A1").Value Then

Application.Sheets(1).Range("A" & i, "Y" & i).Select
Application.Sheets(1).Range("A" & i, "Y" & i).Copy

Application.ActiveSheet.Range("A" & (i + 1)).Select
Application.ActiveSheet.Range("A" & (i + 1)).Paste

End If

Next

End Sub

Nhưng cứ bị lỗi 1004. Anh chị bạn nào biết code của em lỗi chỗ nào có thể chỉ ra giúp em được không ạ. Em chân thành cám ơn ạ

 

[SA_DQ]

Cơ sở dữ liệu là sao hả bác em mới coi được 2 ngày nên không biết ạ

Tham khảo:

 

[vn.danhmay]

Tham khảo:

Em nhìn vẫn chưa hiểu lắm ạ

 

[snow25]

Em nhìn vẫn chưa hiểu lắm ạ

đây là bạn sắp xếp dữ liệu theo kiểu này đấy.khi làm gì thì nó cũng tiện.nhưng bạn được kế thừa cái file 35000 dòng thì thôi khỏi thay đổi.chắc file đó cũng sắp xếp rồi thì nó mới lên đến nhiều như vậy.

 

[be_09]

Em gởi file mẫu ạ
Mong muốn 1: Kiếm những dòng có anh A
Mong muốn 2: Kiếm những ngày bán hàng có anh A

em chỉ mới nghĩ được cú pháp của mong muốn 1

Tiêu đề của bạn vi phạm nội quy, nên sửa là Dùng Advanced Filter để Lọc và tìm kiếm và Add dữ liệu vào sheet khác.
Các bạn không nên trả lời những Topic có tiêu đề vi phạm nội quy vì lâu ngày nó sẽ thành đống rác, các thành viên khác muốn tìm kiếm bài viết tương tự cái cần chắc đỏ cả con mắt.

 

[SA_DQ]

Đến #10 chủ bài đăng mới chịu đưa file lên;
Mà file lại là kiểu ghi chép:

Trong 1 cột mà đến 2 loại dữ liệu: Nào là số liệu ngày-tháng nào là số liệu dạng chuỗi.
Chuyện này sẽ khó trong xử lý

Thêm nữa, ngày A, ngày B là kiểu dữ liệu gì? (DD/MM/yyyy hay MM/dd/yyyy hoặc kiểu gì khác?)

Ngoài ra trong bảng ghi chép dữ liệu bạn bỏ vô số dòng trống; Rồi từ đó đổ lỗi file có nhiều dòng;
Còn chuyện thiết kế 1 CSDL chuẩn chắc không nên bàn ở đây với bạn được.
Tạm biệt!