Tiêu đề phạm quy: Vấn đề code VBA (1 người xem)

[GTK-PM]

Mình có file xuất nhập tồn kho trong file " KHO " đã đính kèm mình muốn nhờ các cao thủ sửa giúp mình code VBA dưới đây để phù hợp với sheet: BC_NGAY, BC_HANGMUC, BC_LOAIVATTU vì file bên dưới mình dùng hàm nên rất bất tiện trong theo dõi nên mình muốn dùng code VBA để thống kê . Mong các bạn giúp đỡ
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F2]) Is Nothing Then
Dim Sh As Worksheet, Rng As Range, sRng As Range
Dim MyAdd As String

Set Sh = ThisWorkbook.Worksheets("NhatKy")
[b8].Resize(13, 5).ClearContents
Set Rng = Sh.Range(Sh.[F6], Sh.[F6].End(xlDown))
Set sRng = Rng.Find(Target.Offset(1).Value, , xlValues, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
With [B21].End(xlUp).Offset(1)
.Value = sRng.Offset(, -4).Value '"SoCT"'
.Offset(, 1).Value = sRng.Offset(, -2).Value 'Ngày NX'
.Offset(, 2).Value = sRng.Offset(, 2).Value 'DVT'
If sRng.Offset(, -3).Value = "N" Then
.Offset(, 3).Value = sRng.Offset(, 1).Value 'LuongNhap'
Else
.Offset(, 4).Value = sRng.Offset(, 1).Value 'LuongXuat'
End If
End With
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Else
MsgBox "Nothing"
End If
End If
End Sub

 

[GTK-PM]

Rất mong sớm nhận hồi âm

 

[GTK-PM]

Hoặc ai có code VBA nào thì cho mình xin để mình hoàn thiện file bảng tính với.

 

[GTK-PM]

Vấn đề Code VBA

Mình có file xuất nhập tồn kho trong file " KHO " đã đính kèm mình muốn nhờ các cao thủ sửa giúp mình code VBA dưới đây để phù hợp với sheet: BC_NGAY, BC_HANGMUC, BC_LOAIVATTU hoặc tạo cho mình xin code mới bởi vì file bên dưới mình dùng hàm nên rất bất tiện trong theo dõi nên mình muốn dùng code VBA để thống kê . Mong các bạn giúp đỡ
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F2]) Is Nothing Then
Dim Sh As Worksheet, Rng As Range, sRng As Range
Dim MyAdd As String

Set Sh = ThisWorkbook.Worksheets("NhatKy")
[b8].Resize(13, 5).ClearContents
Set Rng = Sh.Range(Sh.[F6], Sh.[F6].End(xlDown))
Set sRng = Rng.Find(Target.Offset(1).Value, , xlValues, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
With [B21].End(xlUp).Offset(1)
.Value = sRng.Offset(, -4).Value '"SoCT"'
.Offset(, 1).Value = sRng.Offset(, -2).Value 'Ngày NX'
.Offset(, 2).Value = sRng.Offset(, 2).Value 'DVT'
If sRng.Offset(, -3).Value = "N" Then
.Offset(, 3).Value = sRng.Offset(, 1).Value 'LuongNhap'
Else
.Offset(, 4).Value = sRng.Offset(, 1).Value 'LuongXuat'
End If
End With
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Else
MsgBox "Nothing"
End If
End If
End Sub


File cần sửa: http://www.mediafire.com/download/117o3lpgmxcyxs8/KHO.xlsm
Code file tham khảo : http://www.mediafire.com/download/a5xxr5ev609n77a/TheKho.xls

 

[Ba Tê]

Mình có file xuất nhập tồn kho trong file " KHO " đã đính kèm mình muốn nhờ các cao thủ sửa giúp mình code VBA dưới đây để phù hợp với sheet: BC_NGAY, BC_HANGMUC, BC_LOAIVATTU hoặc tạo cho mình xin code mới bởi vì file bên dưới mình dùng hàm nên rất bất tiện trong theo dõi nên mình muốn dùng code VBA để thống kê . Mong các bạn giúp đỡ
Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [F2]) Is Nothing Then
Dim Sh As Worksheet, Rng As Range, sRng As Range
Dim MyAdd As String

Set Sh = ThisWorkbook.Worksheets("NhatKy")
[b8].Resize(13, 5).ClearContents
Set Rng = Sh.Range(Sh.[F6], Sh.[F6].End(xlDown))
Set sRng = Rng.Find(Target.Offset(1).Value, , xlValues, xlWhole)
If Not sRng Is Nothing Then
MyAdd = sRng.Address
Do
With [B21].End(xlUp).Offset(1)
.Value = sRng.Offset(, -4).Value '"SoCT"'
.Offset(, 1).Value = sRng.Offset(, -2).Value 'Ngày NX'
.Offset(, 2).Value = sRng.Offset(, 2).Value 'DVT'
If sRng.Offset(, -3).Value = "N" Then
.Offset(, 3).Value = sRng.Offset(, 1).Value 'LuongNhap'
Else
.Offset(, 4).Value = sRng.Offset(, 1).Value 'LuongXuat'
End If
End With
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Else
MsgBox "Nothing"
End If
End If
End Sub


File cần sửa: http://www.mediafire.com/download/117o3lpgmxcyxs8/KHO.xlsm
Code file tham khảo : http://www.mediafire.com/download/a5xxr5ev609n77a/TheKho.xls

Rất nhiều người không làm việc cùng ngành nghề với bạn, do đó, nếu không nói rõ yêu cầu thì rất khó giúp đúng ý bạn.
Ví dụ những cột nào là do bạn nhập thủ công, cột nào lấy dữ liệu của cột nào sheet nào....
Tôi làm thí thí theo cách hiểu của tôi, có gì không đúng ý thì nói rõ từng mục nhé.
Code tham khảo thì không dám đọc và sửa đâu, mỗi người có cách giải quyết vấn đề khác nhau, hiểu được ý người khác khó lắm.

 

[SA_DQ]

Bạn xem & kiểm tra số liệu của trang 'BC TongHop'

 

[GTK-PM]

Bạn xem & kiểm tra số liệu của trang 'BC TongHop'

Cảm ơn sự giúp đỡ của bạn, nhưng bạn ơi mình đã xem, code chỉ xem đc trong 7 ngày thôi à. Nếu xem quá 7 ngày là không hiện đc.
Bạn có thể giúp đỡ mình, viết cho mình xin code sheet BC_HangMuc và BC_LoaiVatTu đckhông

 

[GTK-PM]

Xin chân thành cảm ơn sự góp ý của bạn, mình sẽ cẩn thận hơn khi viết bài ! Mình đã xem cách viết code của bạn, về cơ bản là đúng ý tưởng của mình rồi. Nhưng mình muốn nhờ bạn sửa hộ mình là, khi bấm Marco thì chỉ hiện những loại vật tư nào có số liệu nhập xuất tồn còn vật tư không có số liệu thì không hiện ra bảng nữa. ( Trong sheet BC_NGAY, BC_TONGHOP, BC_HangMuc )

 

[ChanhTQ@]

[Thongbao]Cảm ơn sự giúp đỡ của bạn, nhưng bạn ơi mình đã xem, code chỉ xem đc trong 7 ngày thôi à. Nếu xem quá 7 ngày là không hiện đc.
Bạn có thể giúp đỡ mình, viết cho mình xin code sheet BC_HangMuc và BC_LoaiVatTu đckhông[/thOngbao]