Nhờ kiểm tra lỗi VBA (1 người xem)

[quoc nhat]

Không hiểu sao file em đang làm việc lại bị lỗi nữa.
Do quy định mới của Bộ y tế nên em phải thay lại mẫu phiếu thanh toán mới nên em đã làm lại file và copy y chang toàn bộ các Code của file củ vào file mới, nhưng không hiểu sao Nút " InPhieu" trên sheet 1 lại không được.
Không bấm vào nút đó nó hiện thông báo #400
Vậy em nhờ mọi người kiểm tra giúp em với.
em cảm ơn

 

[hanhpptc]

Không hiểu sao file em đang làm việc lại bị lỗi nữa.
Do quy định mới của Bộ y tế nên em phải thay lại mẫu phiếu thanh toán mới nên em đã làm lại file và copy y chang toàn bộ các Code của file củ vào file mới, nhưng không hiểu sao Nút " InPhieu" trên sheet 1 lại không được.
Không bấm vào nút đó nó hiện thông báo #400
Vậy em nhờ mọi người kiểm tra giúp em với.
em cảm ơn

File của bạn còn thiếu Macro inphieu (mình đoán là Macro sheet). Bạn xem và thông báo lại nhé

 

[chibi]

1. Đoạn này là cột B chứ không phải cột A

 i = WorksheetFunction.Match(Sheet1.Range("[COLOR=#ff0000]A[/COLOR]" & j), Sheet4.[b:b], 0)

2. Tên thuốc không có trong mục nhập thuốc, ví dụ: Eubenmol C 1,5 g

 

[quoc nhat]

cảm ơn mọi người đã giúp đỡ, em sẽ kiểm tra lại

 

[quoc nhat]

1. Đoạn này là cột B chứ không phải cột A

 i = WorksheetFunction.Match(Sheet1.Range("[COLOR=#ff0000]A[/COLOR]" & j), Sheet4.[b:b], 0)

2. Tên thuốc không có trong mục nhập thuốc, ví dụ: Eubenmol C 1,5 g

em đã kiêm tra và biết lỗi ở chổ
Sub InPhieu()
Dim i As Long, j As Long
For j = 29 To 33 ' cac o chua ma thuoc '
i = WorksheetFunction.Match(Sheet1.Range("A" & j), Sheet4.[b:b], 0)
Sheet5.Cells(i, 8) = Sheet5.Cells(i, 8) + Sheet1.Range("E" & j)
Next
dulieu = Array([D6], [H6], [D8], [G45], [i14], [K2], [G34], [K14])
dk = UCase(Left(dulieu(2), 2))
Set found = Sheets("danh sach").[e:e].Find(dk, , , xlWhole)
If Not found Is Nothing Then
With Sheets("danh sach").Cells(found.Row, 2).End(3)
.Offset(1) = dulieu(0)
.Offset(1, 1) = dulieu(1)
.Offset(1, 3) = dulieu(2)
.Offset(1, 4) = dulieu(3)
.Offset(1, 5) = dulieu(4)
.Offset(1, 6) = dulieu(5)
.Offset(1, 9) = dulieu(6)
.Offset(1, 2) = dulieu(7)
End With
End If
'Sheet1.PrintPreview 'Xem truoc khi in'
Sheet1.PrintOut From:=1, To:=1, Copies:=1, Preview:=False
' Neu muon in bao nhieu ban thi sua lai o so trong Copies:=??? '
ThisWorkbook.Save
End Sub



là sheet5 chu khong phai sheet4