Giúp em viết code trong trường hợp này (1 người xem)

[thanhlong68]

Em có VD này đã muốn hàm dùng số lượng còn lại trừ đi số bị thiếu anh chị giúp em

 

[Quang_Hải]

Em có VD này đã muốn hàm dùng số lượng còn lại trừ đi số bị thiếu anh chị giúp em

Thử code này coi sao

Sub tru_ton()
Dim dl(), ton As Object, i As Long, tim As Object, tam As Double
Sheet2.[f2:f1000].ClearContents
dl = Sheet2.Range(Sheet2.[a2], Sheet2.[a65536].End(3)).Resize(, 6).Value
For i = 1 To UBound(dl)
   Set tim = Sheet3.[a:a].Find(dl(i, 1), , , xlWhole)
   If Not tim Is Nothing Then
      tam = tim.Offset(, 3)
      If tam >= dl(i, 4) Then
         dl(i, 6) = dl(i, 4)
         tim.Offset(, 3) = tam - dl(i, 6)
      ElseIf tam <= dl(i, 4) Then
         dl(i, 6) = tam
         tim.Offset(, 3) = 0
      End If
   End If
Next
Sheet2.[a2].Resize(i - 1, 6) = dl
End Sub

 

[thanhlong68]

Thử code này coi sao

Sub tru_ton()
Dim dl(), ton As Object, i As Long, tim As Object, tam As Double
Sheet2.[f2:f1000].ClearContents
dl = Sheet2.Range(Sheet2.[a2], Sheet2.[a65536].End(3)).Resize(, 6).Value
For i = 1 To UBound(dl)
   Set tim = Sheet3.[a:a].Find(dl(i, 1), , , xlWhole)
   If Not tim Is Nothing Then
      tam = tim.Offset(, 3)
      If tam >= dl(i, 4) Then
         dl(i, 6) = dl(i, 4)
         tim.Offset(, 3) = tam - dl(i, 6)
      ElseIf tam <= dl(i, 4) Then
         dl(i, 6) = tam
         tim.Offset(, 3) = 0
      End If
   End If
Next
Sheet2.[a2].Resize(i - 1, 6) = dl
End Sub

Em cho chạy là nó báo lỗi này liền

Sheet2.[f2:f1000].ClearContents

 

[Quang_Hải]

Em cho chạy là nó báo lỗi này liền

Sheet2.[f2:f1000].ClearContents

Đã up lại file 2003 giúp bạn

 

[thanhlong68]

Em đang dùng exel 2003 anh post bài này em đọc ko đc luôn,

 

[thanhlong68]

Anh ơi, em có nói là nếu số tồn mà sau khi trừ đi nó bằng "0" hoặc bị âm thì xóa mặt hàng đó sẽ bị mất đi trong sheet ton đó anh,

 

[khunglongcodon]

Bạn bỏ cái ô Merge viết hướng dẫn của bạn đi thì code chạy được thôi. Đang Merge ô nên không xóa nội dung được đó mà

 

[thanhlong68]

Em có viết rõ ràng trong VD này nhờ mọi người xem lại giúp. vì nó hơi khó hiểu nên em giải thích lại

 

[Quang_Hải]

Em có viết rõ ràng trong VD này nhờ mọi người xem lại giúp. vì nó hơi khó hiểu nên em giải thích lại

Lỡ rồi thôi cũng cố làm cho xong bài này

 

[pjk4t3]

Cần giúp hoàn thiện file này

bạn nào giúp mình hoàn thiện file bán hàng:

mình muốn tạo 1 nút khi click vào thì các thông tin trong phiếu báo giá sẽ được ghi vào sheet xuất vào các ô tương ứng như :ngày tháng,tên,địa chỉ,tên hàng.....và các thông tin này sẽ được lưu lại ở sheet xuất khi lập 1 phiếu báo giá khác.http://www.mediafire.com/view/?yn5dei5l0b11az6

hoặc ngược lại :
khi nhập các thông tin vào sheet xuất thì các thông tin đó sẽ được hiển thị sang phiếu báo giá để in

thanks!

 

[pjk4t3]

giúp mình với đang loay hoay mãi không được