جلب بيانات الحاصلين على أقل وأكثرأو يساوى 65%

[abdelwanis]

جلب بيانات من ورقة عمل أخرى.xlsx

[بن علية حاجي]

السلام عليكم

الحل بالمعادلات في المرفق....

بن علية

جلب بيانات من ورقة عمل أخرى.xlsx

[abdelwanis]

جزيت الجنة 

[سليم حاصبيا]

جرب هذا الملف (بعد اذن اخي به علية)

تم تغيير اسماء الصفحات لحسن عمل الكود

الكود

Option Explicit
Sub get_data()
Dim i%, m%: m = 9
Dim Sh As Worksheet: Set Sh = Sheets("Final_Year")
Dim Th As Worksheet: Set Th = Sheets("Natija")
Dim x%: x = Application.Match(Th.Range("d2"), Sh.Rows(7), 0)
Dim My_Rg_To_Copy As Range: Set My_Rg_To_Copy = Sh.Range("a8").CurrentRegion.Columns(x)
Dim last_row%: last_row = My_Rg_To_Copy.Rows.Count + 6
Dim Nisba#

Th.Range("a8").CurrentRegion.Offset(1).ClearContents
     If Not IsNumeric(Th.Range("e4")) Or Th.Range("e4") = vbNullString Then
            Nisba = (65 / 100) * My_Rg_To_Copy.Cells(2)
        Else
            Nisba = (Th.Range("e4") / 100) * My_Rg_To_Copy.Cells(2)
        End If
    For i = 9 To last_row
      If Sh.Cells(i, x) >= Nisba Then
            Th.Cells(m, 2).Resize(1, 6).Value = Sh.Cells(i, 2).Resize(1, 6).Value
            Th.Cells(m, 1) = m - 8
            m = m + 1
       End If
     Next
 Set My_Rg_To_Copy = Nothing: Set Sh = Nothing: Set Th = Nothing
End Sub

الملف مرفق

 

Get data Salim.xls

[abdelwanis]

ما اروعك استاذ سليم . ولكن فين الدرجة . عاوزين عمود بالدرجة التى حصل عليها الطالب 

 

[سليم حاصبيا]

منذ ساعه, abdelwanis said:

ما اروعك استاذ سليم . ولكن فين الدرجة . عاوزين عمود بالدرجة التى حصل عليها الطالب 

 

الدرحة غير موجودة أصلاً في الملف

[abdelwanis]

جلب بيانات من ورقة عمل أخرى.xlsx

تم تعديل فبراير 27, 2018 بواسطه abdelwanis