anhtrungtdy
Thành viên mới
- Tham gia
- 15/2/11
- Bài viết
- 1
- Được thích
- 0
Mình đang xây dựng cái phần quản lý xuất nhập kho cho công ty, nhưng mà gà mờ không rành về code VBA lắm, đại khái mục đích mình muốn là khi nhấn vào cbUp dữ liệu như hình dười
thì toàn bộ data đó sẽ đươc chuyển sang bản XUAT Code thì mình xây dựng như thế này
Private Sub cbUpDuLieu_Click()
Dim wxuat As Worksheet, wx As Worksheet
Set wxuat = Worksheets("XUAT")
Set wx = Worksheets("X")
For i = 3 To 120
For j = 7 To 285
For k = 2 To 171
If wx.Cells(k, 4).Value = wxuat.Cells(i, 3).Value And wx.Cells(k, 3).Value = wxuat.Cells(2, j).Value Then
wxuat.Cells(i, j).Value = wx.Cells(k, 5).Value
End If
Next k
Next j
Next i
MsgBox ("da nhap xong")
End Sub
cho nút click đó
nhưng khi chạy cứ hay báo lỗi không đưa ra hết dữ liệu và chạy khá nặng
Ai biết vì sao và cách giải quyết khác tư vấn mình với... Cảm ơn nhiều
thì toàn bộ data đó sẽ đươc chuyển sang bản XUAT Code thì mình xây dựng như thế này
Private Sub cbUpDuLieu_Click()
Dim wxuat As Worksheet, wx As Worksheet
Set wxuat = Worksheets("XUAT")
Set wx = Worksheets("X")
For i = 3 To 120
For j = 7 To 285
For k = 2 To 171
If wx.Cells(k, 4).Value = wxuat.Cells(i, 3).Value And wx.Cells(k, 3).Value = wxuat.Cells(2, j).Value Then
wxuat.Cells(i, j).Value = wx.Cells(k, 5).Value
End If
Next k
Next j
Next i
MsgBox ("da nhap xong")
End Sub
cho nút click đó
nhưng khi chạy cứ hay báo lỗi không đưa ra hết dữ liệu và chạy khá nặng
Ai biết vì sao và cách giải quyết khác tư vấn mình với... Cảm ơn nhiều
