Sub Delete_row()'khai bao bienDim dongcuoi As Bytedongcuoi = Sheet2Cells(RowsCount 2)End(xlUp)RowDim

Add kiểm tra em đoạn code sai ở đâu với ạ. Chạy đến ' Sheets(2).Range(Cells(dongcuoi, 1), Cells(j, 2)).EntireRow.Select . thì báo lỗi application defined or subject defined error

chào bạn ở đây bạn muốn làm gì nhỉ? có phải xoá dòng theo điều kiện không?

Vâng đúng rồi Add

Chào bạn bạn có thể dùng cách sau

Option Explicit
Sub xoadongcodieukien()
    Dim dc&, i&
    dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
    For i = dc To 2 Step -1
        If (Sheet1.Range("A" & i) = Sheet1.Range("C1").Value) Then
            Sheet1.Rows(i).Delete
        End If
    Next i
End Sub

Sub Input_Customer()

'Khai bao bien

Dim dongcuoi_1 As Integer

dongcuoi_1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row

Dim dongcuoi_2 As Integer

dongcuoi_2 = Sheet4.Cells(Rows.Count, 1).End(xlUp).Row

Dim i As Integer

'Logic

For i = 16 To dongcuoi_1

Sheets(4).Range("A" & dongcuoi_2).Value = Sheets(2).Range("C10").Value

Sheets(4).Range("B" & dongcuoi_2).Value = Sheets(2).Range("C11").Value

Sheets(4).Range("C" & dongcuoi_2).Value = Sheets(2).Range("C12").Value

Sheets(4).Range("D" & dongcuoi_2).Value = Sheets(2).Range("C13").Value

Sheets(4).Range("E" & dongcuoi_2).Value = Sheets(2).Range("C14").Value

Sheets(4).Range("F" & dongcuoi_2).Value = Sheets(2).Range("A" & i).Value

Sheets(4).Range("G" & dongcuoi_2).Value = Sheets(2).Range("B" & i).Value

Sheets(4).Range("H" & dongcuoi_2).Value = Sheets(2).Range("C" & i).Value

Sheets(4).Range("I" & dongcuoi_2).Value = Sheets(2).Range("D" & i).Value

Sheets(4).Range("J" & dongcuoi_2).Value = Sheets(2).Range("E" & i).Value

Sheets(4).Range("M" & dongcuoi_2).Value = Sheets(2).Range("F" & i).Value

 Next i

Sheets(2).Range("C10:C14").ClearContents

Sheets(2).Range("A16:G" & dongcuoi_1).ClearContents

'Thong bao

MsgBox "INFORMATION CUSTOMER INPUT IS FINISH"

End Sub

Đoạn code này cũng bị lỗi tương tự Add

Chào bạn, bạn đang muốn ghi dữ liệu vào nhiều dòng đúng không? và thông báo lỗi đang ở đâu vậy bạn?

Chào bạn bạn có thể đẩy file lên giúp gitiho không?

Do bạn khai báo biến dòng cuối là loại Integer, mà biến này tối đa chỉ có khoảng 32 nghìn thôi.

Có khả năng giá trị dòng cuối vượt quá 32 nghìn dòng thì sẽ lỗi.

Bạn nên dùng biến loại Long sẽ tốt hơn.