Xin giúp code lọc theo điều kiện (1 người xem)

[thanh vien GPE]

Mình có file tổng hợp dữ liệu. Phần Cột R dùng để (chuyển giáo viên từ trường này sang trường khác) cho năm học 2014-2015. Khi chọn tên trường ở hàng (G10) thì danh sách giáo viên tương ứng theo tên trường, Ở Cột I (Nhiệm vụ p/c): Nếu là Hiệu trưởng thì sẽ tự động nằm ở hàng đầu tiên và tiếp theo là phó hiệu trưởng, giáo viên nhân viên .... Mình sắp xếp bộ thì lâu quá.
VD: Mình chuyển Cô Dương Thị Hạnh đang công tác ở trường TH Đa Mi 1 giờ chuyển qua TH Đa Mi 2. Khi lọc tên Trường TH Đa Mi 2 thì cô Dương Thị Hạnh nằm trên Hiệu trưởng. Đúng là nằm sau phó Hiệu trưởng và còn lại là các nhân viên
Pas:
Nay xin Nhờ anh em GPE giúp dùm. Mình xin chân thành cảm ơn

 

[Let'GâuGâu]

Mình có file tổng hợp dữ liệu. Phần Cột R dùng để (chuyển giáo viên từ trường này sang trường khác) cho năm học 2014-2015. Khi chọn tên trường ở hàng (G10) thì danh sách giáo viên tương ứng theo tên trường, Ở Cột I (Nhiệm vụ p/c): Nếu là Hiệu trưởng thì sẽ tự động nằm ở hàng đầu tiên và tiếp theo là phó hiệu trưởng, giáo viên nhân viên .... Mình sắp xếp bộ thì lâu quá.
VD: Mình chuyển Cô Dương Thị Hạnh đang công tác ở trường TH Đa Mi 1 giờ chuyển qua TH Đa Mi 2. Khi lọc tên Trường TH Đa Mi 2 thì cô Dương Thị Hạnh nằm trên Hiệu trưởng. Đúng là nằm sau phó Hiệu trưởng và còn lại là các nhân viên
Pas: VBA=thu2013
Nay xin Nhờ anh em GPE giúp dùm. Mình xin chân thành cảm ơn

bạn tạo ra một cái customer list "hiệu trưởng, hiệu phó, giáo viên...v.v."
sau đó sort cộng I theo list nay
sau đó thì code hoá nó

 

[thanh vien GPE]

cảm ơn bạn nhiều. Mình làm được rồi.

 

[tracyduong535]

Em mới học VBA nên chưa rành lắm, thay vì gõ công thức và kéo để copy, em phải viết code VBA.

Đề bài: Khi bấm nút Value, gán giá trị trong ô E2 vào cột I với hàng nào có giá trị cột H - giá trị F5


Em viết thế này sao vẫn chưa chạy được. Xin các thầy cô giúp em ạ.

Sub cmdValue1()
Dim i, Dong As Integer
Dim ketqua As Boolean
Windows("Geld.xls").Activate
Dong = 1


While Worksheets("taglich 2014").Range("H" & Dong).Value <> ""

If Worksheets("taglich 2014").Range("H" & Dong).Value = Worksheets("taglich 2014").Range("F5").Value Then
ketqua = True
End If

Dong = Dong + 1
Wend

If ketqua Then
i = Dong
Worksheets("taglich 2014").Range("I" & i).Value = Worksheets("taglich 2014").Range("E2").Value

End If
End Sub