Nhờ giúp lấy học sinh có điểm số >10 sang sheet DS (1 người xem)

[diemdiem]

Em có 1 danh sách thi học sinh giỏi của trường em, trong đó có 2 sheet em tô màu vàng, nhớ các anh chị diễn đàn "Lấy những học sinh có điểm thi >=10 ở sh Kết quả thi sang sh đội tuyển khối 11. Tất nhiên là lấy tự động nhé.
Cám ơn các a chị nhiều...Em gửi kèm file

 

[lehuong1409]

Em có 1 danh sách thi học sinh giỏi của trường em, trong đó có 2 sheet em tô màu vàng, nhớ các anh chị diễn đàn "Lấy những học sinh có điểm thi >=10 ở sh Kết quả thi sang sh đội tuyển khối 11. Tất nhiên là lấy tự động nhé.
Cám ơn các a chị nhiều...Em gửi kèm file

1. Không thấy sheets nào màu vàng
2. CÔng thức tại B8

=IFERROR(INDEX('Ket qua thi'!C$5:C$212,SMALL(IF('Ket qua thi'!$G$5:$G$212>=10,ROW('Ket qua thi'!$G$5:$G$212)-ROW('Ket qua thi'!$G$5)+1),'Doi tuyen khoi 11'!$A8)),"")

Kết thúc bằng Ctrl Shift Enter
Rồi fill sang phải và fill xuống

 

[diemdiem]

1. Không thấy sheets nào màu vàng
2. CÔng thức tại B8

Kết thúc bằng Ctrl Shift Enter
Rồi fill sang phải và fill xuống

Có thể nào cho em một cái code không ạ?

 

[lehuong1409]

Có thể nào cho em một cái code không ạ?

bạn sử dụng code này nhé.

Sub Macro1()
Dim dl, kq(1 To 65000, 1 To 8), i, j
Sheets("Doi tuyen khoi 11").Range("A8:G1000").ClearContents
dl = Sheets("Ket qua thi").Range(Sheets("Ket qua thi").[C5], Sheets("Ket qua thi").[C5].End(xlDown)).Resize(, 7)
    For i = 1 To UBound(dl)
  If dl(i, 5) >= 10 Then
                        k = k + 1
                        kq(k, 1) = k
                            For j = 1 To UBound(dl, 2)
                                kq(k, j + 1) = dl(i, j)
                            Next j
End If
                Next i
If k Then Sheets("Doi tuyen khoi 11").Range("A8").Resize(k, 8) = kq


       
End Sub

 

[diemdiem]

sao code không hoạt động được ta?

bạn sử dụng code này nhé.

Sub Macro1()Dim dl, kq(1 To 65000, 1 To 8), i, j
Sheets("Doi tuyen khoi 11").Range("A8:G1000").ClearContents
dl = Sheets("Ket qua thi").Range(Sheets("Ket qua thi").[C5], Sheets("Ket qua thi").[C5].End(xlDown)).Resize(, 7)
    For i = 1 To UBound(dl)
  If dl(i, 5) >= 10 Then
                        k = k + 1
                        kq(k, 1) = k
                            For j = 1 To UBound(dl, 2)
                                kq(k, j + 1) = dl(i, j)
                            Next j
End If
                Next i
If k Then Sheets("Doi tuyen khoi 11").Range("A8").Resize(k, 8) = kq


       
End Sub

sao code không hoạt động được ta?

 

[befaint]

sao code không hoạt động được ta?

Chắc khi chép code qua phần gửi bài bị nhảy 2 lên cùng dòng 1 nên code chưa hoạt động.
Bạn ngắt dòng sau Sub Macro1() là được, thành như vầy:

Sub Macro1()
Dim dl, kq(1 To 65000, 1 To 8), i, j
'.......
End Sub

 

[lehuong1409]

sao code không hoạt động được ta?

bạn sửa lại như anh befaint chỉ hoặc copy lại code mình đã sửa lại