Cho em hỏi về: Move Sheet Vba - Theo điều kiện

[sonna123]

Hình 1: Minh họa nội dung khi gõ vào ban đầu
Hình 2: Sheets TH. Thực tế khi sử dụng nhập dữ liệu Test.
- Dòng 1: 1; Nội dung 1; A
- Dòng 2: 2;Nội dung 2; B
- Dòng 3: 3; Nội Dung 3;""
Hình 3: Sheets A. Sau khi có dữ liệu.
Hình 4: Sheets B. Sau khi có dữ liệu.
Hình 5: Sheets ID. sau khi có dữ liệu

Mọi người cho em hỏi về vấn đề MOVE SHEET này với ạ!
Em xin nói qua bài toán của em

Sheets (Tổng hợp) em có bảng như "Hình 1". Gồm ID, Nội Dung, Sheets.
1. ID lấy từ Sheets ID (vì em muốn ID tăng lần lượt, Nếu sheets ID =0 thì ID =Sheets ID+1).
2. Nội Dung - (text)
3. Sheets - Khi em gõ A nó di chuyển ID và Nội dung sang SHEETS A. đồng thời xóa luôn dòng ở Sheets tổng hợp.
- Khi em gõ B nó di chuyển ID và Nội dung sang SHEETS B. đồng thời xóa luôn dòng ở Sheets tổng hợp.

Sheets A Lấy dữ liệu từ bảng tổng hợp khi SHEETS = A. Bắt đầu hiện thị từ dòng B2.
Sheets B Lấy dữ liệu từ bảng tổng hợp khi SHEETS = B. Bắt đầu hiện thị từ dòng B2.
Sheets ID Lấy dữ liệu từ ID SHEETS = A.

Em xin cảm ơn!

Bài đã được tự động gộp: 18/3/20

Em gửi đính kèm file cho Mọi người dễ hình dung hơn ạ.

 

[sonna123]

.

 

[HieuCD]

View attachment 233520View attachment 233524View attachment 233521View attachment 233522View attachment 233523
Hình 1: Minh họa nội dung khi gõ vào ban đầu
Hình 2: Sheets TH. Thực tế khi sử dụng nhập dữ liệu Test.
- Dòng 1: 1; Nội dung 1; A
- Dòng 2: 2;Nội dung 2; B
- Dòng 3: 3; Nội Dung 3;""
Hình 3: Sheets A. Sau khi có dữ liệu.
Hình 4: Sheets B. Sau khi có dữ liệu.
Hình 5: Sheets ID. sau khi có dữ liệu

Mọi người cho em hỏi về vấn đề MOVE SHEET này với ạ!
Em xin nói qua bài toán của em

Sheets (Tổng hợp) em có bảng như "Hình 1". Gồm ID, Nội Dung, Sheets.
1. ID lấy từ Sheets ID (vì em muốn ID tăng lần lượt, Nếu sheets ID =0 thì ID =Sheets ID+1).
2. Nội Dung - (text)
3. Sheets - Khi em gõ A nó di chuyển ID và Nội dung sang SHEETS A. đồng thời xóa luôn dòng ở Sheets tổng hợp.
- Khi em gõ B nó di chuyển ID và Nội dung sang SHEETS B. đồng thời xóa luôn dòng ở Sheets tổng hợp.

Sheets A Lấy dữ liệu từ bảng tổng hợp khi SHEETS = A. Bắt đầu hiện thị từ dòng B2.
Sheets B Lấy dữ liệu từ bảng tổng hợp khi SHEETS = B. Bắt đầu hiện thị từ dòng B2.
Sheets ID Lấy dữ liệu từ ID SHEETS = A.

Em xin cảm ơn!

Bài đã được tự động gộp: 18/3/20

Em gửi đính kèm file cho Mọi người dễ hình dung hơn ạ.

Chep sub vào sheet TH

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim shName$, tmp$, ik&, r&
  shName = ",A,B,"
  If Target.Column = 3 Then
    If Target.Count = 1 Then
      tmp = Target.Value
      If InStr(1, shName, "," & tmp & ",") > 0 Then
        Application.EnableEvents = False
        r = Target.Row
        With Sheets(tmp)
          ik = .Range("A" & Rows.Count).End(xlUp).Row + 1
          .Range("A" & ik).Value = ik - 1
          .Range("B" & ik).Value = Cells(r, 1).Value
          .Range("C" & ik).Value = Cells(r, 2).Value
        End With
        With Sheets("ID")
          ik = .Range("A" & Rows.Count).End(xlUp).Row + 1
          .Range("A" & ik).Value = Cells(r, 1).Value
        End With
        Range("A" & r).EntireRow.Delete
        Application.EnableEvents = True
      End If
    End If
  End If
End Sub