Giúp mình tạo một Name động và XNT (2 người xem)

[Võ Thiếu Gia]

Cũng là cái file Xuat kho.
Nhờ các bác tạo giúp mình ở sheet XUAT một Name động và một Sheet Xuất Nhập Tồn theo từng ngày và từng tháng.
Thanks

Có ai giúp mình với. MÌnh thật sự không hiểu phải làm cái file này như thế nào

 

[hoangdanh282vn]

Có ai giúp mình với. MÌnh thật sự không hiểu phải làm cái file này như thế nào

Với yêu cầu của bạn như thế thì chỉ có dùng VBA mà thôi, không thể dùng Name động được. Nếu bạn đồng ý thì mọi người sẽ cố gắng để giúp.

 

[Võ Thiếu Gia]

Với yêu cầu của bạn như thế thì chỉ có dùng VBA mà thôi, không thể dùng Name động được. Nếu bạn đồng ý thì mọi người sẽ cố gắng để giúp.

Vâng, nếu xài VBA cũng được. Nhưng mình không rành VBA.

Mình cũng có ý tưởng là dùng List. Nhưng không biết sao mình làm mà nó nhảy lung tung không theo ý mình được. Các bạn giúp mình với.

Thân

 

[hoangdanh282vn]

Vâng, nếu xài VBA cũng được. Nhưng mình không rành VBA.

Mình cũng có ý tưởng là dùng List. Nhưng không biết sao mình làm mà nó nhảy lung tung không theo ý mình được. Các bạn giúp mình với.

Thân

Đây là code:

Sub worksheet_change(ByVal target As Range)
Dim r As Long, i As Long
Application.CutCopyMode = False
On Error Resume Next
If Range("Lrow").Rows.Count - WorksheetFunction.CountA(Range("B9", target)) <= 2 And target.Column = 2 Then
    target.Offset(1, 0).EntireRow.Copy
    target.Offset(1, 0).EntireRow.Insert shift:=xlUp
    target.Select
End If
Application.CutCopyMode = True
End Sub

Sub Taomoi()
Dim r As Long, i As Long
Dim Lrow As Range
r = Range("Lrow").Rows.Count - 2
If r > 1 Then
    For i = 1 To r
        Rows(i + 8).Delete shift:=xlUp
    Next
Else: [B9].ClearContents: [F9].ClearContents: [I9].Select
End If
End Sub

bạn xem hướng dẫn trong file đính lèm nha