Giúp mình fix lỗi "run time error '1004' application-defined or object-defined error"

[tuanna20992]

mình có 1 đoạn code bị lỗi trên

Sub ThemTenNguoiNopThue()
    Sheets("DATA").Activate
    ActiveSheet.Range("E1").End(xlDown).Offset(1, 0).Select
    ActiveCell.Value = Worksheets("PhiXe").Range("I7").Value
End Sub

báo lỗi tại dòng "ActiveSheet.Range("E1").End(xlDown).Offset(1, 0).Select". Mn xem giúp mình với
Mục đích là mình muốn lưu tên người nộp thuế xe vào 1 cột riêng

 

[snow25]

mình có 1 đoạn code bị lỗi trên

Sub ThemTenNguoiNopThue()
    Sheets("DATA").Activate
    ActiveSheet.Range("E1").End(xlDown).Offset(1, 0).Select
    ActiveCell.Value = Worksheets("PhiXe").Range("I7").Value
End Sub

báo lỗi tại dòng "ActiveSheet.Range("E1").End(xlDown).Offset(1, 0).Select". Mn xem giúp mình với
Mục đích là mình muốn lưu tên người nộp thuế xe vào 1 cột riêng

Bạn thử.

Sub ThemTenNguoiNopThue()
    Dim lr As Long
    With Sheets("data")
         lr = .Range("E" & Rows.Count).End(xlUp).Row + 1
         .Range("E" & lr).Value = Worksheets("PhiXe").Range("I7").Value
    End With
End Sub

 

[SA_DQ]

Thử vầy xem sao:

Sub ThemTenNguoiNopThue()
 With Sheets("DATA")
    If .[e2].Value = "" Then
        .[e2].Value = Worksheets("PhiXe").Range("I7").Value
    Else
        .Range("E1").End(xlDown).Offset(1, 0).Value = Worksheets("PhiXe").Range("I7").Value
    End If
 End With
End Sub

 

[tuanna20992]

Thử vầy xem sao:

Sub ThemTenNguoiNopThue()
With Sheets("DATA")
    If .[e2].Value = "" Then
        .[e2].Value = Worksheets("PhiXe").Range("I7").Value
    Else
        .Range("E1").End(xlDown).Offset(1, 0).Value = Worksheets("PhiXe").Range("I7").Value
    End If
End With
End Sub

Cảm ơn bác