Tự động đưa dữ liệu từ 1.Sheet ra nhiểu Sheet thích hợp (1 người xem)

[mai_kien]

Nhờ giúp đỡ . Em mỗi khi nhập dữ liệu vào Shee t data (tại cột nơi nhận) đ ơ n vị nào có trong cột đ ó tì tự đ ộng đưa sang các Shee t tương ứng trong biểu đó. Em xin chân thành cám ơn !

 

[bebo021999]

Nhờ giúp đỡ . Tự động

Tạo sẵn cho bạn 3 sheet Nvụ, LĐ, S1. Muốn tạo sheet cho S2, làm như sau:
1- Click chuột phải vào tên sheet, chọn Move or Copy
2- Click vào "Create a copy" - OK
3- Đặt tên sheet mới là S2

 

[concogia]

Nhờ giúp đỡ . Em mỗi khi nhập dữ liệu vào Shee t data (tại cột nơi nhận) đ ơ n vị nào có trong cột đ ó tì tự đ ộng đưa sang các Shee t tương ứng trong biểu đó. Em xin chân thành cám ơn !

"Xử" nó bằng VBA, lâu lâu ôn bài hông thôi quên mất cách làm mấy bài này
Thân

 

[ndu96081631]

"Xử" nó bằng VBA, lâu lâu ôn bài hông thôi quên mất cách làm mấy bài này
Thân

Trong sự kiện Workbook_SheetActivate, hình như anh quên biến Sh chính là ActiveSheet chăng? Vì thế không cần phải thêm biến Ws làm gì cho dư
Ẹc... Ẹc...

 

[SA_DQ]

Bạn xem trong file kèm theo của mình

Bấm vô nút 'Chuyển' sau đó coi kết quả

 

[woawoa1303]

SA_DQ có thể hướng dẫn cách làm ko? Thank!

 

[ChanhTQ@]

Cái này hướng dẫn là khó à nha; Hay bạn đọc & dịch thử đoạn mã xem sao

SA_DQ có thể hướng dẫn cách làm ko? Thank!

Option Explicit
Sub gpe()
 Dim Sh As Worksheet, Cls As Range
 Const PC As String = ", "
 Dim Rws As Long, Col As Byte, VTr As Byte
 Dim ShName As String, Nhan As String
 
 Sheets("data").Select:                Set Cls = [b6].CurrentRegion
 Rws = Cls.Rows.Count:                 Col = Cls.Columns.Count
 For Each Sh In ThisWorkbook.Worksheets
1 'Xóa Du Lieu Tai Các Trang Tính Càn Nhap:'
   If Sh.Name <> "data" Then
      Sh.[A8].Resize(Rws, Col).ClearContents
   End If
 Next Sh
2 'Chép Du Lieu Mói:'
 For Each Cls In Range([G6], [g65500].End(xlUp))
   Nhan = Cls.Value & PC
   Do
      VTr = InStr(Nhan, PC)
      If VTr < 2 Then Exit Do
      ShName = Left(Nhan, VTr - 1):       Nhan = Mid(Nhan, VTr + 2, 99)
      Cells(Cls.Row, "A").Resize(, Col).Copy Destination:=Sheets(ShName).[A65500].End(xlUp).Offset(1)
   Loop
 Next Cls
3 'To Màu Cho Diem Dúa:'
 Randomize:                      Rws = 34 + Int(9 * Rnd())
 [A5].Resize(, Col + 1).Interior.ColorIndex = Rws
End Sub