Nhờ các bạn sửa giúp mình code vba tự động copy sheet mới (1 người xem)

[loitaiai]

Trong file của mình có dùng đoạn code sau trong sheet HANG NHAP nhưng nó chỉ đổi tên sheet mới copy mà TEN KH ở cột C2 thì ko đổi đc .Nhờ các bạn giúp đỡ.thank nhiều


Private Sub Worksheet_Change(ByVal Target As Range)

'Danh sach nam o cot B, id = 2
If (Target.Column = 2) Then
Dim sName
sName = ActiveSheet.Name

'Copy Sheet "VI DU C"
Dim ws1 As Worksheet
Set ws1 = Worksheets("VI DU C")

ws1.Copy after:=Worksheets(Worksheets.Count)
'Dat ten lai sheet moi copy = ten ban go vao Cot 2 o tren
ActiveSheet.Name = Target.Value

'focus lai sheet chua danh sach
Sheets(sName).Select
End If

End Sub

 

[viehoai]

Trong file của mình có dùng đoạn code sau trong sheet HANG NHAP nhưng nó chỉ đổi tên sheet mới copy mà TEN KH ở cột C2 thì ko đổi đc .Nhờ các bạn giúp đỡ.thank nhiều


Private Sub Worksheet_Change(ByVal Target As Range)

'Danh sach nam o cot B, id = 2
If (Target.Column = 2) Then
Dim sName
sName = ActiveSheet.Name

'Copy Sheet "VI DU C"
Dim ws1 As Worksheet
Set ws1 = Worksheets("VI DU C")

ws1.Copy after:=Worksheets(Worksheets.Count)
'Dat ten lai sheet moi copy = ten ban go vao Cot 2 o tren
ActiveSheet.Name = Target.Value

'focus lai sheet chua danh sach
Sheets(sName).Select
End If

End Sub

Nghĩa tại sheet mới copy bạn muốn tại C2 có dữ liệu là tên khách hàng?
Nếu vậy bạn dùng thêm câu lệnh
[GPECODE=vb]ActiveSheet.Range("C2").Value = Target.Value[/GPECODE]
trước câu lệnh: ActiveSheet.Name = Target.Value

 

[loitaiai]

Thank bạn nhiều mình làm được rồi.
Nhân tiện cho mình hỏi có code tự động ẩn những dữ liệu ko cập nhật được ko vậy bạn.