اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

  • Like 2
رابط هذا التعليق
شارك

منذ ساعه, abdelwanis said:

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

 

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information