Cập nhật danh mục hàng hóa mới vào Nhập Xuất Tồn (1 người xem)

[kobebryant]

Chào mọi người,
Mình có một bảng Nhập Xuất Tồn kho hiện hữu. Trong kỳ mình có nhập thêm hàng mới vào, đến cuối kỳ mình muốn chỉ update danh mục hàng mới bổ sung thêm vào bảng Nhập Xuất Tồn như file đính kèm mình minh họa.
Với mình muốn nhập liệu nhanh khi ở cột W, mình nhập liệu xong rồi nhấn Enter thì nó chọn tiếp theo ô mình muốn. Ví dụ: mình đang ở W10 sau khi nhập liệu xong, Enter thì nó xuống R11 để mình nhập liệu tiếp cho nhanh khỏi phải di chuyển đến.
Mọi người giúp mình code xử lý với. Xin cám ơn.

 

[HUONGHCKT]

Chào mọi người,
Mình có một bảng Nhập Xuất Tồn kho hiện hữu. Trong kỳ mình có nhập thêm hàng mới vào, đến cuối kỳ mình muốn chỉ update danh mục hàng mới bổ sung thêm vào bảng Nhập Xuất Tồn như file đính kèm mình minh họa.
Với mình muốn nhập liệu nhanh khi ở cột W, mình nhập liệu xong rồi nhấn Enter thì nó chọn tiếp theo ô mình muốn. Ví dụ: mình đang ở W10 sau khi nhập liệu xong, Enter thì nó xuống R11 để mình nhập liệu tiếp cho nhanh khỏi phải di chuyển đến.
Mọi người giúp mình code xử lý với. Xin cám ơn.

Bạn copy đoạn code này và paste vào modul của sheet SAU nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim R&
If Target.Row < 9 Then Exit Sub
If Target.Row >= 9 And Target.Column = 23 Then
Cells(Target.Row + 1, 18).Select
End If
If Target.Row >= 9 And Target.Column = 20 Then
    R = Cells(Rows.Count, 30).End(xlUp).Row
    If Range("AD9:AD" & R).Find(Target) Is Nothing Then
        Range("AD" & R + 1) = Target
        Range("AB" & R + 1) = Application.Max(Range("AB9:AB" & R)) + 1
        Range("AC" & R + 1) = Target.Offset(0, -1)
    End If
End If
End Sub

Tôi đã xóa hàng loạt name rác trong file của bạn.
thử thêm dữ liệu vào các cột của sh SAU và xem kết quả.

 

[kobebryant]

Dạ yêu cầu nhập xong nó nhảy đến vị trí khác ok rồi ạ. Còn cập nhật tên mới em ko thấy lệnh nào để chạy

Update: Tính năng 2, bạn làm dùm mình là nó tự nhảy tên qua luôn mà ko cần một lệnh riêng, kiểu này quá hay. Đã đầy đủ 2 code.
Cám ơn bạn nhiều nhiều.