Lệnh Else If báo lỗi Else without if

[Phương Phương mito]

Em có đoạn code sau mà nó cứ báo lỗi "Else without if" là sao ạ.

Sheet8.Select

lastRow = Sheet8.Cells(1, "A").End(xlDown).Row

For m = 2 To lastRow

If Cells(m, "AV").Value = Sheet3.Range("M1") Then Cells(m, "Aw").Value = Sheet3.Range("N1")
Else
Cells(m, "Aw").Value = Sheet3.Range("N2")

End If

Next m

 

[giaiphap]

Em có đoạn code sau mà nó cứ báo lỗi "Else without if" là sao ạ.

Sheet8.Select

lastRow = Sheet8.Cells(1, "A").End(xlDown).Row

For m = 2 To lastRow

If Cells(m, "AV").Value = Sheet3.Range("M1") Then Cells(m, "Aw").Value = Sheet3.Range("N1")
Else
Cells(m, "Aw").Value = Sheet3.Range("N2")

End If

Next m

Sửa lại thé này.

    If Cells(m, "AV").Value = Sheet3.Range("M1") Then
        Cells(m, "Aw").Value = Sheet3.Range("N1")
    Else
        Cells(m, "Aw").Value = Sheet3.Range("N2")
    End If

 

[snow25]

Em có đoạn code sau mà nó cứ báo lỗi "Else without if" là sao ạ.

Sheet8.Select

lastRow = Sheet8.Cells(1, "A").End(xlDown).Row

For m = 2 To lastRow

If Cells(m, "AV").Value = Sheet3.Range("M1") Then Cells(m, "Aw").Value = Sheet3.Range("N1")
Else
Cells(m, "Aw").Value = Sheet3.Range("N2")

End If

Next m

Cắt cái Cells(m, "Aw").Value = Sheet3.Range("N1") xuống dòng đi.

 

[Ba Tê]

Em có đoạn code sau mà nó cứ báo lỗi "Else without if" là sao ạ.

Sheet8.Select

lastRow = Sheet8.Cells(1, "A").End(xlDown).Row

For m = 2 To lastRow

If Cells(m, "AV").Value = Sheet3.Range("M1") Then Cells(m, "Aw").Value = Sheet3.Range("N1")
Else
Cells(m, "Aw").Value = Sheet3.Range("N2")

End If

Next m

Sau Then gõ Enter.

Em có đoạn code sau mà nó cứ báo lỗi "Else without if" là sao ạ.

Sheet8.Select

lastRow = Sheet8.Cells(1, "A").End(xlDown).Row

For m = 2 To lastRow

If Cells(m, "AV").Value = Sheet3.Range("M1") Then Cells(m, "Aw").Value = Sheet3.Range("N1")
Else
Cells(m, "Aw").Value = Sheet3.Range("N2")

End If

Next m

 

[Phương Phương mito]

Sau Then gõ Enter.

Được rồi ạ, em cảm ơn các anh !