abdelwanis قام بنشر فبراير 26, 2018 مشاركة قام بنشر فبراير 26, 2018 جلب بيانات من ورقة عمل أخرى.xlsx رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر فبراير 26, 2018 مشاركة قام بنشر فبراير 26, 2018 السلام عليكم الحل بالمعادلات في المرفق.... بن علية جلب بيانات من ورقة عمل أخرى.xlsx 2 1 رابط هذا التعليق شارك More sharing options...
abdelwanis قام بنشر فبراير 26, 2018 الكاتب مشاركة قام بنشر فبراير 26, 2018 جزيت الجنة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 26, 2018 مشاركة قام بنشر فبراير 26, 2018 جرب هذا الملف (بعد اذن اخي به علية) تم تغيير اسماء الصفحات لحسن عمل الكود الكود 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 2 رابط هذا التعليق شارك More sharing options...
abdelwanis قام بنشر فبراير 27, 2018 الكاتب مشاركة قام بنشر فبراير 27, 2018 ما اروعك استاذ سليم . ولكن فين الدرجة . عاوزين عمود بالدرجة التى حصل عليها الطالب رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر فبراير 27, 2018 مشاركة قام بنشر فبراير 27, 2018 منذ ساعه, abdelwanis said: ما اروعك استاذ سليم . ولكن فين الدرجة . عاوزين عمود بالدرجة التى حصل عليها الطالب الدرحة غير موجودة أصلاً في الملف رابط هذا التعليق شارك More sharing options...
abdelwanis قام بنشر فبراير 27, 2018 الكاتب مشاركة قام بنشر فبراير 27, 2018 (معدل) جلب بيانات من ورقة عمل أخرى.xlsx تم تعديل فبراير 27, 2018 بواسطه abdelwanis رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.