Làm Biên Bản Nghiệm thu (1 người xem)

[huynhkienphong]

- Cho toi hỏi file này bị lỗi "time error 13" khi click "ok" 2 lần hoặc "cancel" 2 lần bị lổi như hình
- Mở cột R click chuột phải click "insert row" thì bị lỗi này mong các cao thủ sữa code dùm cám ơn nhiều


Sub CommandButton6_Click()
Dim AddDel As String, ShName As String
Dim DongDau As Long, SoDong As Byte, j As Byte
Sheets("BBNT_kt").Select
AddDel = InputBox("Thêm : 'T'" & Chr(10) & "Xóa: 'X'", "NHAP CHU CAI THICH HOP:", "T")
AddDel = UCase$(AddDel)
DongDau = InputBox("Nhap Vi Tri Dong Can Xu Ly:")
SoDong = InputBox("Nhap Só Dòng Càn Xu Lý:") - 1
For j = 0 To 5
ShName = Choose(j, "BBNT_kt", "YCNT", "NT_NB&CV")
With Sheets(ShName).Rows(DongDau & ":" & DongDau + SoDong)
If AddDel = "T" Then
.Insert Shift:=xlDown
ElseIf AddDel = "X" Then
.Delete
Else
MsgBox ""
End If
End With
Next j
End Sub

 

[dovanhoc84]

1.ok 2 lần nghĩa là vị trí dòng đầu không xác định
trong khi ngay hàng dưới của nó SOdong lại cũng k xác định nên
thao tác tiếp theo không thể thực hiện được nữa. Vậy là lỗi thôi.
để tránh lỗi thì có thể bẫy lỗi

 On Error Resume Next
 Do While DongDau < 1
DongDau = InputBox("Nhap Vi Tri Dong Can Xu Ly:" , "GPE.COM Xin Chài", , 1)
 If DongDau < 1 Then MsgBox ("Nhập lại số")
 Loop 
Do While SoDong < 1
     SoDong = InputBox("Nhap Số Dòng Cần Xử Lý:") - 1
     If SoDong < 2 Then MsgBox ("Nhập lại số") 
Loop

Tôi cho soDong < 2 là vì k hiểu sao ngay từ đầu bạn đã cho nó trừ đi 1

2.Tôi vẫn insert bình thường có thấy báo lỗi gì đâu nhỉ?