Mọi người cho em hỏi lỗi này thì sửa như thế nào?
Compile error:
Else without if
[GPECODE=vb]
Sub Loccodetien()
With ActiveSheet '<=> sheet TongHop
'check cac dieu kien
If .CT131_Khachhang.Value = Empty Or _
.CT131_Tuthang.Value = Empty Or .CT131_Denthang.Value = Empty Then
MsgBox ("Ban chua dien ten doi' tuong va thang' can` loc"), vbExclamation, "Thông báo"
Exit Sub
ElseIf .CT131_Tuthang.Value > .CT131_Denthang.Value Then
MsgBox ("Thang' ke^ khai: Tu` thang' den' thang' chua hop ly'"), vbExclamation
Exit Sub
Else
tendoituong = .CT131_Khachhang.Value
FromThang = .CT131_Tuthang.Value
ToThang = .CT131_Denthang.Value
End If
End With
Application.ScreenUpdating = False
Call Clear_CT131
Call Loc_GiathanhSX
Call locdolamy
Application.ScreenUpdating = True
' If Range("SCT_SLrows") >= 1 Then
' ThisWorkbook.Sheets("CT131").Select
' Range("A8").Select
' Range("SCT_tendoituong") = tendoituong 'SCT_tendoituong la` 1 Name
' Range("SCT_FromThang") = FromThang 'SCT_FromThang la` 1 Name
' Range("SCT_ToThang") = ToThang 'SCT_ToThang la` 1 Name
' Call DoBorder
'Call FindSoDu 'dien` so' du* vao` sheet List 'moi them ngay 5-6-14
'Call Updatesocai331 'moi them ngay 7-6-14
MsgBox ("LocTkco xong"), vbInformation, "Thông báo"
Else
MsgBox "Tkno (131, 1122)" & vbNewLine & _
"Ten doi tuong: " & tendoituong & vbNewLine & _
"Thang' Ke^ Khai: Tu` " & FromThang & " den " & ToThang, vbExclamation, "Ko tim` thay'"
End If
End Sub
[/GPECODE]
Compile error:
Else without if
[GPECODE=vb]
Sub Loccodetien()
With ActiveSheet '<=> sheet TongHop
'check cac dieu kien
If .CT131_Khachhang.Value = Empty Or _
.CT131_Tuthang.Value = Empty Or .CT131_Denthang.Value = Empty Then
MsgBox ("Ban chua dien ten doi' tuong va thang' can` loc"), vbExclamation, "Thông báo"
Exit Sub
ElseIf .CT131_Tuthang.Value > .CT131_Denthang.Value Then
MsgBox ("Thang' ke^ khai: Tu` thang' den' thang' chua hop ly'"), vbExclamation
Exit Sub
Else
tendoituong = .CT131_Khachhang.Value
FromThang = .CT131_Tuthang.Value
ToThang = .CT131_Denthang.Value
End If
End With
Application.ScreenUpdating = False
Call Clear_CT131
Call Loc_GiathanhSX
Call locdolamy
Application.ScreenUpdating = True
' If Range("SCT_SLrows") >= 1 Then
' ThisWorkbook.Sheets("CT131").Select
' Range("A8").Select
' Range("SCT_tendoituong") = tendoituong 'SCT_tendoituong la` 1 Name
' Range("SCT_FromThang") = FromThang 'SCT_FromThang la` 1 Name
' Range("SCT_ToThang") = ToThang 'SCT_ToThang la` 1 Name
' Call DoBorder
'Call FindSoDu 'dien` so' du* vao` sheet List 'moi them ngay 5-6-14
'Call Updatesocai331 'moi them ngay 7-6-14
MsgBox ("LocTkco xong"), vbInformation, "Thông báo"
Else
MsgBox "Tkno (131, 1122)" & vbNewLine & _
"Ten doi tuong: " & tendoituong & vbNewLine & _
"Thang' Ke^ Khai: Tu` " & FromThang & " den " & ToThang, vbExclamation, "Ko tim` thay'"
End If
End Sub
[/GPECODE]