Code auto filter (1 người xem)

[vuongtoituonglai]

Gửi cả nhà GPE!
Mình đang gặp vấn đề sau nhờ các bạn giúp dùm.
1. Nhập mã số NVL vào ô F6 nếu là chữ thì sẽ tự động đổi thành chữ IN HOA
2. Khi nhập mã số NVL vào ô F6 nếu mã nào tìm không thấy thì hiện thông báo"VUI LÒNG XÁC NHẬN LẠI MÃ NVL CẦN TÌM" (dựa vào dữ liệu từ ô B8 trở xuống để tìm)
3. Tự động filter cho những loại có số 1 tại ô A8 trở xuống(khi nhập mã NVL vào ô F6 sau đó nhấn phím Enter thì tự động Filter số 1 lên).

 

[hhoang_56]

1. Nhập mã số NVL vào ô F6 nếu là chữ thì sẽ tự động đổi thành chữ IN HOA

Mới làm quen với VBA, nên thử góp 1 phần code xem sao

[GPECODE=vb]Private Sub Worksheet_Change(ByVal Target As Range)
Dim aaa As String
aaa = Range(

 

[vuongtoituonglai]

Code không chạy được bạn nhé, bạn kiểm tra lại dùm mình. Cảm ơn

 

[vuongtoituonglai]

Xin nhờ các cao thủ ra tay giúp đỡ mình vấn đề này với .

 

[nmhung49]

Mở cửa số VBE: Alt+F11
Double vào Sheet1 chép đoạn code này vào

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" Then
 Range("$A$7:$L$50").AutoFilter 2, [F6].Value 'Thay đổi Range("$A$7:$L$50") nếu dữ liệu nhiều hơn
End If
End Sub

 

[vuongtoituonglai]

Mở cửa số VBE: Alt+F11
Double vào Sheet1 chép đoạn code này vào

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" Then
 Range("$A$7:$L$50").AutoFilter 2, [F6].Value 'Thay đổi Range("$A$7:$L$50") nếu dữ liệu nhiều hơn
End If
End Sub

Cảm ơn bạn nhé, chúc ngày mới gặp nhiều niềm vui nhé bạn.

 

[vuongtoituonglai]

Mở cửa số VBE: Alt+F11
Double vào Sheet1 chép đoạn code này vào

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" Then
 Range("$A$7:$L$50").AutoFilter 2, [F6].Value 'Thay đổi Range("$A$7:$L$50") nếu dữ liệu nhiều hơn
End If
End Sub

Bạn xem lại dùm mình ở chổ khi mình gõ chữ thường vào thì không tự chuyển thành chữ IN HOA được. Cảm ơn

 

[vuongtoituonglai]

Bạn xem lại dùm mình ở chổ khi mình gõ chữ thường vào thì không tự chuyển thành chữ IN HOA được. Cảm ơn

Các bạn am hiểu về code thêm vào dùm mình đoạn code cho ô F6 mặc định là chữ In Hoa.

 

[nghiaphuc]

Các bạn am hiểu về code thêm vào dùm mình đoạn code cho ô F6 mặc định là chữ In Hoa.

Cái vụ in hoa thì bạn thêm 3 câu lệnh này vào trước câu lệnh Filter trong bài #5:

Application.EnableEvents = False
[F6].Value = UCase([F6].Value)
Application.EnableEvents = True

 

[vuongtoituonglai]

Cái vụ in hoa thì bạn thêm 3 câu lệnh này vào trước câu lệnh Filter trong bài #5:

Application.EnableEvents = False
[F6].Value = UCase([F6].Value)
Application.EnableEvents = True

Các bạn xem giúp giùm mình chổ này nhé:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" Then
Application.EnableEvents = False
[F6].Value = UCase([F6].Value)
Application.EnableEvents = True
Range("$A$7:$L$50").AutoFilter 2, [F6].Value
End If
End Sub
Code này là của bài #5 và #9 gộp lại nhưng đang gặp 1 vấn đề.
Tại ô F6 chỉ tự động đổi chữ thường sang chữ Hoa và tự động Filter khi mình gõ giá trị từ bàn phím, dữ liệu copy dán vào ô F6 thì không đổi được nhờ các anh chị và các bạn nghiêng cứu giùm mình chổ này.
Cảm ơn nhiều.

 

[vuongtoituonglai]

Các bạn xem giúp giùm mình chổ này nhé:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$6" Then
Application.EnableEvents = False
[F6].Value = UCase([F6].Value)
Application.EnableEvents = True
Range("$A$7:$L$50").AutoFilter 2, [F6].Value
End If
End Sub
Code này là của bài #5 và #9 gộp lại nhưng đang gặp 1 vấn đề.
Tại ô F6 chỉ tự động đổi chữ thường sang chữ Hoa và tự động Filter khi mình gõ giá trị từ bàn phím, dữ liệu copy dán vào ô F6 thì không đổi được nhờ các anh chị và các bạn nghiêng cứu giùm mình chổ này.
Cảm ơn nhiều.

Cả nhà GPE ơi, nghiêng cứu dùm mình chỗ này đi

 

[vuongtoituonglai]

Cả nhà GPE ơi, nghiêng cứu dùm mình chỗ này đi

Cảm ơn thầy ndu đã nhắc nhở. Em có ý kiến thế này khi một thành viên nêu lên một vấn đề mà không thấy được giúp đỡ khi ấy cảm giác không biết nội dung nêu lên thì mọi người có hiểu hay không vì số lần đọc rất nhiều nhưng không thấy giúp đỡ nên đành phải nêu lại.
Một lần nữa cảm ơn thầy ndu.

 

[Quang_Hải]

Cảm ơn thầy ndu đã nhắc nhở. Em có ý kiến thế này khi một thành viên nêu lên một vấn đề mà không thấy được giúp đỡ khi ấy cảm giác không biết nội dung nêu lên thì mọi người có hiểu hay không vì số lần đọc rất nhiều nhưng không thấy giúp đỡ nên đành phải nêu lại.
Một lần nữa cảm ơn thầy ndu.

Không ai trả lời là vì code đã hoàn toàn chính xác, chẳng có sai nên sửa chỗ nào.

 

[vuongtoituonglai]

Không ai trả lời là vì code đã hoàn toàn chính xác, chẳng có sai nên sửa chỗ nào.

Cảm ơn bạn quanghai1969.
Mình đâu có nói là code bị sai, code chỉ hoạt động khi mình nhập vào từ bàn phím sau khi nhập phải Enter, Còn khi copy từ 1 cell khác dán vào cell F6 thì Code không hoạt động. Theo mình suy đoán do không thực hiện Enter nên Code không hoạt động.

 

[Quang_Hải]

Cảm ơn bạn quanghai1969.
Mình đâu có nói là code bị sai, code chỉ hoạt động khi mình nhập vào từ bàn phím sau khi nhập phải Enter, Còn khi copy từ 1 cell khác dán vào cell F6 thì Code không hoạt động. Theo mình suy đoán do không thực hiện Enter nên Code không hoạt động.

Có copy dán vào thì vẫn chạy. Chắc chắn.

 

[vuongtoituonglai]

Có copy dán vào thì vẫn chạy. Chắc chắn.

Mình gửi file nhờ anh quanghai1969 kiểm tra dùm nhé.
Copy bất kì một mã của cột B8 trở xuống dán vào ô F6 nhé anh

 

[Quang_Hải]

Mình gửi file nhờ anh quanghai1969 kiểm tra dùm nhé.
Copy bất kì một mã của cột B8 trở xuống dán vào ô F6 nhé anh

Chẳng qua là vì bạn trộn cell nên khi copy dán vào nó tương tác đến cả 1 vùng thì code đâu có biết ô nào đâu mà hoạt động

 

[vuongtoituonglai]

Chẳng qua là vì bạn trộn cell nên khi copy dán vào nó tương tác đến cả 1 vùng thì code đâu có biết ô nào đâu mà hoạt động

Cảm ơn anh quanghai1969.
Đúng như anh nói. Nếu mình vẫn trộn ô từ F6:K6 thì phải chỉnh code thế nào vậy anh.

 

[Quang_Hải]

Cảm ơn anh quanghai1969.
Đúng như anh nói. Nếu mình vẫn trộn ô từ F6:K6 thì phải chỉnh code thế nào vậy anh.

Sửa 1 câu:
If not intersect(target, [F6:K6]) is nothing then

 

[vuongtoituonglai]

Sửa 1 câu:
If not intersect(target, [F6:K6]) is nothing then

Cảm ơn anh quanghai1969.
Mình làm được rồi