Cảm ơn sự giúp đỡ của bạn xuan.nguyen82 và anh Ba Tê rất nhiều.
-Trong file của em ,em tạo sheet KO XOA là sheet chuẩn để copy ra các sheet KH . Nhưng công thức tại O8 trở xuống O8=O6 + G8 - I8 - N8 bị sai bây h em sửa lại là : O8=O7 + G8 - I8 - N8 thì file của anh BA TÊ ko save lại đc .Anh Ba Tê xem lại giúp em chút nha.
-Em protect : sheet KO XOA thì ko thêm đc KH , báo lỗi code copy sheet.Các sheet KH khác thì ko thể cập nhật đc.Nhờ anh hướng dẫn em làm phần này.
-Em muốn sử dụng đoạn code gọi khung hội thoại lịch này để sử dụng trong 3 sheet HANG NHAP HANG TRA CK nhưng nó lại nằm bên phải che mất cột MA HANG , bây giờ em muốn chuyển sang trái thì phải chỉnh chỗ nào trong đoạn code.Em đã vào mục DESIGN để tạo khung bên trái rồi nhưng ko đc.
Private Sub Calendar1_Click()
With ActiveCell
.Value = Calendar1
.NumberFormat = "dd/mm/yy"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Calendar1
If Not Intersect(Range("E7:E1000"), Target) Is Nothing Then
Calendar1.Value = Date
.Visible = True
.Top = Target.Top
.Left = Target(, 2).Left
ElseIf Application.CutCopyMode = False Then
.Visible = False
End If
End With
End Sub
P/s : nói thật trình độ về tin học của mình ko có nhiều ,mình nhờ sự giúp đỡ của các bạn trên các diễn đàn và mình tự tìm thêm về excel và code vba mới làm được file này.Nếu có gì sai sót or có những câu hỏi ngớ ngẩn thì mong mọi người bỏ qua.Cảm ơn sự giúp đỡ của tất cả bạn.
