báo lỗi microsoft Visua Basic

[quoc nhat]

Em không biết flie excel của em bị làm sao mà lại bị báo lỗi VB nữa nhờ các anh chị xem giùm em với.
khi ấn combox IN PHIẾU trên sheet 1 lại báo lỗi và không cho phép làm việc nữa.
đây là file quan trọng đối với công việc của em mong các anh chị tận tình giúp em sữa lổi với
Em cảm ơn nhiều

 

[Quang_Hải]

Cảm giác khó chịu lắm, lẽ ra không muốn nói ra.

Cái sheet thekho của bạn đã thay đổi lung tung thì làm sao mà chạy được.
Trước khi thay đổi gì đó lẽ ra phải lưu 1 file lại để dụ phòng tình huống xấu chứ. Bạn đã thay đổi gì thì chắc là bạn biết rõ hơn ai hết, hay là muốn thử sức các thành viên GPE?

 

[quoc nhat]

Cảm giác khó chịu lắm, lẽ ra không muốn nói ra.

Cái sheet thekho của bạn đã thay đổi lung tung thì làm sao mà chạy được.
Trước khi thay đổi gì đó lẽ ra phải lưu 1 file lại để dụ phòng tình huống xấu chứ. Bạn đã thay đổi gì thì chắc là bạn biết rõ hơn ai hết, hay là muốn thử sức các thành viên GPE?

Anh Hải nói đúng quả thực em đã thay đổi sheet thẻ kho nhưng em cũng đã thay đổi điều kiện cho nó rồi mà . Làm như thế vẫn không được sao anh Hải?

 

[quoc nhat]

nhờ các thầy nếu có điều kiện thời gian thì điều chỉnh lại giúp em với chứ em không có ý muốn thử sức các anh chị trên diễn đàn đâu

 

[Quang_Hải]

nhờ các thầy nếu có điều kiện thời gian thì điều chỉnh lại giúp em với chứ em không có ý muốn thử sức các anh chị trên diễn đàn đâu

Bạn kiểm tra và sửa lại dòng code này

For j = 174 To 178 ' cac o chua ma thuoc '
i = WorksheetFunction.Match(Sheet1.Range("A" & j), Sheet4.[B:B], 0)
Sheet4.Cells(i, 8) = Sheet4.Cells(i, 8) + Sheet1.Range("D" & j)
Next

 

[quoc nhat]

Bạn kiểm tra và sửa lại dòng code này

For j = 174 To 178 ' cac o chua ma thuoc '
i = WorksheetFunction.Match(Sheet1.Range("A" & j), Sheet4.[B:B], 0)
Sheet4.Cells(i, 8) = Sheet4.Cells(i, 8) + Sheet1.Range("D" & j)
Next

cảm ơn anh quang hai đã giúp em sửa lỗi VBA
thời gian qua anh đã giúp em rất nhiều em không biết phải cảm ơn anh như thế nào cho hợp lý. Thôi nếu có cơ hội được vào bình dương thì em sẽ tìm và cám ơn anh sau.

 

[quoc nhat]

em có thêm một vấn đề muốn nhờ anh xem giùm là cái manage thông báo số lượng thuốc còn trong kho giờ không báo được nữa anh xem giúp em với luôn

 

[Quang_Hải]

em có thêm một vấn đề muốn nhờ anh xem giùm là cái manage thông báo số lượng thuốc còn trong kho giờ không báo được nữa anh xem giúp em với luôn

Bạn sửa lại đoạn code này

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A174:A178,D174:D178]) Is Nothing Then Exit Sub
    On Error Resume Next
    Dim i As Long
    With Sheet4 'The Kho'
        i = WorksheetFunction.Match(Cells(Target.Row, 1), .[b:b], 0)
        If Cells(Target.Row, 4).Value > .Cells(i, 5).Value Then
            MsgBox ("Chi con ") & .Cells(i, 5)
            Cells(Target.Row, 4) = .Cells(i, 5)
        End If
    End With
End Sub

 

[quoc nhat]

dữ liệu để báo nằm ở cell 11 mà anh

 

[Quang_Hải]

dữ liệu để báo nằm ở cell 11 mà anh

Nếu code đã hoạt động rồi là xong 1 bước. Tiếp theo là kiểm tra và sửa code lại cho phù hợp, file của ai nấy biết mà

xem lại dòng .cells(i,5) xem thế nào. Bạn thay thử số 5 (cột E) bằng số cột tương ứng

 

[quoc nhat]

Vâng em đã thay được rồi cảm ơn anh nhiều!!!!!!!!!!!!!!!!1