đoạn code này em viết nhưng khi chạy nó lại hiện lỗi Else Without If vậy

Thầy ơi, đoạn code này em viết nhưng khi chạy nó lại hiện lỗi Else Without If vậy là bị sai ở đâu ạ.

Private Sub Bt_Luu_Click()

Dim DongCuoi As Long

DongCuoi = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row

If cmb_TenHang.Value <> "" And tb_SoLuong <> "" Then

With Sheets("Data")

.Range("A" & DongCuoi + 1).Value = Me.cmb_TenHang.Value

.Range("B" & DongCuoi + 1).Value = Me.tb_DVT.Value

.Range("C" & DongCuoi + 1).Value = Me.tb_SoLuong.Value

.Range("D" & DongCuoi + 1).Value = Me.tb_DonGia.Value

.Range("E" & DongCuoi + 1).Value = Me.tb_ThanhTien.Value

MsgBox "Da luu thanh cong", vbOKOnly

Unload Me

Uf_Thongtindonhang.Show

Else

MsgBox "Ban chua nhap Ten Hang hoac So Luong"

Exit Sub

End With

End If

End Sub

5 câu trả lời

218 lượt xem

vỗ tay

Nguyễn Thái Trung 15:11 - Nov 01, 2021

Chào bạn bạn dubug để xem lỗi ở đâu nhé. cái này phải chạy mới biết được

vỗ tay

Nguyễn Thái Trung 15:11 - Nov 01, 2021

Em bật lên thì excel tô đậm chữ Else thầy ạ. Em vẫn không biết chỗ đó sai ở đâu cả

vỗ tay

Nguyễn Thái Trung 15:11 - Nov 01, 2021

chào bạn bạn để with trước rồi từ khoá if sau

with.....
  if.....
  else
  end if
end with

vỗ tay

Nguyễn Thái Trung 16:11 - Nov 01, 2021

Dạ vâng khắc phục được rồi ạ. Em cảm ơn thầy!

vỗ tay

Nguyễn Thái Trung 16:11 - Nov 01, 2021

Chúc bạn học tốt cùng gitiho

vỗ tay