tạo sheet tự động bằng VB?

[phamhientb]

Em muốn tạo một sheet tự động mà khi xóa tên có trong danh sách này(DSNV) thì ở sheet khác (DS xoá) sẽ tự động cập nhật tên bị xóa đó, với các dữ liệu đã có ở danh sách gốc(DSNV)

 

[tigertiger]

Em muốn tạo một sheet tự động mà khi xóa tên có trong danh sách này(DSNV) thì ở sheet khác (DS xoá) sẽ tự động cập nhật tên bị xóa đó, với các dữ liệu đã có ở danh sách gốc(DSNV)

thì bạn dùng VBA với sự kiện WorkSheet_change

khi xóa -> bạn lưu lại -> và ghi cho sheet xóa

 

[voda]

Bạn thử dùng đoạn code sau:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
   Dim i As Integer, j As Integer
   Dim wB As Worksheet
   i = Target.Row
   k = Target.Column
   Set wB = Sheets("DSXOA")
         Selection.Copy Destination:=wB.Cells(i, k)
End Sub

 

[phamhientb]

Bạn thử dùng đoạn code sau:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
   Dim i As Integer, j As Integer
   Dim wB As Worksheet
   i = Target.Row
   k = Target.Column
   Set wB = Sheets("DSXOA")
         Selection.Copy Destination:=wB.Cells(i, k)
End Sub

[/quote
nhưng khi mình xóa ở các vị trí khác nhau( giả sử ở dòng 1,5,8,10) thì mình muốn khi ở DSXOA sẽ theo thư tự là từ dòng đầu tiên theo thư tự xóa (ví dụ 1,2,3,4...)

 

[voda]

Bạn chỉnh lại như sau:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    Dim i As Integer, k As Integer
    Dim wB As Worksheet
    Set wB = Sheets("DSXOA")
    k = Target.Column
    i = wB.Cells(Rows.Count, k).End(xlUp).row + 1
    Selection.Copy Destination:=wB.Cells(i, k)
End Sub

-Bạn nên đưa file mẫu lên để dễ hình dung hơn .