Nhờ Các Anh Chị Giúp. Tự nhập liệu vào ô trống, khác giá trị bên sheet khác. (1 người xem)

[elnino167]

em đang làm 1 file excel bán hàng ạ. bây h em muốn mỗi khi nhập ngày vào ô c6 bên sheet HD. thì excel tự động nhập ngày tháng đó vào ô từ D1 đến BJ1 bên sheet KHO. với điều kiện ô đó trống và ngày đó chưa có.
em không biết vb nhiều nên mong các anh chị giúp đỡ.

 

[nghiaphuc]

em đang làm 1 file excel bán hàng ạ. bây h em muốn mỗi khi nhập ngày vào ô c6 bên sheet HD. thì excel tự động nhập ngày tháng đó vào ô từ D1 đến BJ1 bên sheet KHO. với điều kiện ô đó trống và ngày đó chưa có.
em không biết vb nhiều nên mong các anh chị giúp đỡ.

Giải quyết cái vụ tự động này cần dùng đến VBA, mà cái password VBA thì bạn không cung cấp nên có muốn giúp cũng chịu.

 

[elnino167]

dạ em xin lỗi ạ. để em re up;

 

[nghiaphuc]

dạ em xin lỗi ạ. để em re up;

Bạn click phải tại tên sheet HD, chọn View code và dán thêm đoạn code này vào nhé:
[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
If Target.Address <> "$C$6" And Target.Address <> "$J$6" Then Exit Sub
On Error Resume Next
Set Cll = Sheets("KHO").[D1:BK1].Find(Target.Value, , xlValues, xlWhole)
If Cll Is Nothing Then
Sheets("KHO").[IV1].End(xlToLeft).Offset(, 1) = Target
End If
End Sub[/GPECODE]

 

[elnino167]

dạ. em cảm ơn anh nhiều ạ.