Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("R")) Is Nothing _
And Cells(Target.Row, "C").Value = "CM" Then
Sheets("CM").[b65500].End(xlUp).Offset(1).Resize(, 25).Value = _
Cells(Target.Row, "B").Resize(, 25).Value
End If
End Sub
Dữ liệu của bạn có những cột có thể có số liệu số liệu hoặc không. Nên theo tôi bạn cứ nhập hết số liệu tại sheet1 sau đó lọc thì sẽ tốt hơn. ThânSố liệu nhập vào ở sheet 1!
Số liệu cần tách là ở sheet CM và K1
Có lệnh nào để khi mình nhập số liệu ở sheet 1 thì nghề nào là CM thì nó tự coppy sang sheet CM không ạ! Mong được học hỏi! Cảm ơn nhiều!
Bạn thivantan dùng AutoFilter là rất hợp lý ---> Sao không đưa vào sự kiện Worksheet_Activate cho nó tự động luôn ---> Active sheet nào thì tổng hợp sheet ấyDữ liệu của bạn có những cột có thể có số liệu số liệu hoặc không. Nên theo tôi bạn cứ nhập hết số liệu tại sheet1 sau đó lọc thì sẽ tốt hơn. Thân
Vâng thưa anh. Trong trường hợp này có lẽ đưa vào sự kiện Worksheet_Activate như anh nói là phù hợp với yêu cầu của tác giả. File của tác giả có nhiều Font theo em nghĩ chắc có nhiều người làm chung nên mỗi người gõ một kiểu... ThânBạn thivantan dùng AutoFilter là rất hợp lý ---> Sao không đưa vào sự kiện Worksheet_Activate cho nó tự động luôn ---> Active sheet nào thì tổng hợp sheet ấy
----------
Mà sao file của tác giả dùng nhiều loại font thế nhỉ?
----------cảm ơn, mọi người , nhưng em ko biết nhiều về VBA lắm, vì đây chỉ là file mẫu thôi, chứ còn trong bảng gốc của em có rất nhiều nghề, và phải có nh sheet khác nhau! Mong mọi người giải thích cách làm hộ em với!
Hoặc có cách nào dễ làm hơn cũng được ạ! Cảm ơn mọi ngươờ!