احتاج لانتقاء بيانات من خلايا غير متجاورة

[أحمد حجاج]

السلام عليكم

في هذا الملف ثلاثة أوراق 

الاولى لكتابة بيانات الطلاب

والثانية لعمل بحث اجتماعي عن الطلاب استنادا لبعض البيانات الموجودة بالورقة الأولى

والثالثة هي ورقة تحتاج إلى ترحيل مجموعة بيانات من خلايا غير متجاورة 

المطلوب :-

عمل معادلة لإدراج بيانات الطالب المطلوبة في ورقة ( ترحيل ) بمجرد كتابة رقم القيد

شكرا لكم 

قاعدة بيانات.xlsx

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

جرب هذا الملف

Haggag.xlsx

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

يمكنك استعمال هذا الماكرو لنقل الأسماء الى الجداول المحصصة لكل طالب

لان عملية نسخ الجدول ولضقه اكثر من مرة ليست بالأمر السهل خاصة اذا كان عدد الطلاب كبير (50 أو اكثر) 

فقط اضغط على الزر Give Data في الشيت Repport و ترى كل شيء امامك الجداول والاسماء فيها (بدون معادلات)

عندها تملأ الداتا الحاصة لكل تلميذ و بدورها تنتقل الى الشيت ترحيل

الماكرو

Option Explicit
Sub copy_Range()
    Dim S As Worksheet
    Dim R As Worksheet
    Dim i%, k%, x
    Dim Rg_To_Copy
Application.ScreenUpdating = False
    Set S = Sheets("ST_names")
    Set R = Sheets("Repport")
    Set Rg_To_Copy = R.Range("A1:D13")
i = 2: k = 16

R.Range("A16").Resize(1000, 4).Clear
Do Until S.Range("A" & i).Offset(1) = vbNullString
 Rg_To_Copy.Copy
 
 R.Range("A" & k).PasteSpecial (xlAll)
 R.Range("B" & k + 1).Resize(10).ClearContents
 R.Range("D" & k + 1).Resize(10).ClearContents
    With R.Range("A" & k)
    .Offset(1, 1) = x + 2
    .Offset(2, 1) = S.Range("D" & i + 1)
    .Offset(1, 3) = S.Range("F" & i + 1)
    End With
 k = k + 15: x = x + 1: i = i + 1

 Loop
 Application.CutCopyMode = False
 Application.ScreenUpdating = True
 R.Cells(2, 1).Select
End Sub

الملف مرفق  للاطلاع وإبداء الرأي 

 

Haggag_1.xlsm

[أحمد حجاج]

جزاكم الله خيرا يا محترم ، الحقيقة أنا مبتدئ جدا في الإكسيل ولا أفهم جزء كبير من الكود المكتوب ، لكن الملف الذي طرحته أفادني كثيراً ، جزاكم الله خيراً

بقي لي سؤال واحد واعذرني لجهلي

الورقة ( repport ) تأخذ جزء من البيانات من ورقة ( ST_names ) ، بالتالي سأقوم بكتابة باقي البيانات يدوياً .

ماذا أفعل إذا أردت إدراج أعمدة أخرى ( حالة القيد )  مثلا ، في ورقة ( ST_names ) وبعد الضغط على give data في الورقة ( repport ) تدرج البيانات تلقائيا في خلية ( حالة القيد ) كما هو الحال بالنسبة للأعمدة الأخرى ، سألتك لأتعلم ، إن استطعت اكتبلي الخطوات أو دلّني علي شرح استعين به .

الملف المرفق لتوضيح الطلب .

جزاكم الله خيراً .

Haggag_1 (3).xlsm

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

تم معالجة الأمر كما تريد
1- تدرج كل الأسماء (بدون صقوف فارغة) مع البيانات التابعة لها في الشيتت ALL_Names ( ليس من الضروري كل البيانات)
2 -في الشيت Card تضغط على الزر Get The Cards
3- في الشيت  Single_Match  العامود (A)   تختار اي رقم  (أو عدة أرقام) ثم تضغط على الزر Find For_Me
  وذلك للجصول على بيانات منفردة عن تلميذ واحد أو اكثر
  اذا كان الرقم التي اخترته غير موجود في الشيت ALL_Names يبقي الصف فارغاً

Haggag_New.xlsm

[أحمد حجاج]

شكرا جزيلاً يا عبقري ، لك خالص الشكر 

لكن إن كانت الورقة Single_Match تأخذ بياناتها من الورقة ALL_Names فما فائدة الورقة Card ؟؟؟

فالمشكلة أصلا من البداية تتعلق بانتقاء مجموعة بيانات من الجدول المرسوم في الورقة Card وليس من الورقة ALL_Names  ونقلها للورقة Single_Match 

ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ

الملف رااااائع لكن ارجو إن أردت أن تتكرم بالتعديل عليه لتكون البيانات الموجودة بالورقة Single_Match  مأخوذة من الجدول بالورقة Card .

جزاكم الله خيرا

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

   الورقة Card انت اردتها    وانا أعرف انه لا فائدة منها   
    الا اذا اردت ان تطبع بطاقات للتلامذة  (وهذا ما كنت افكر به) لذلك تركتها

البيانات في ALL_Names  هي نفسها  في  Card   (مختلفة بالشكل فقط) فما الفرق من اين تأخذ الورقة Single_Match معلوماتها

[أحمد حجاج]

اشكرك يا محترم ، جزاكم الله خيرا