أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





نقل اوتوماتيك لبيانات جدول إلى جدول آخر

السلام عليكم ورحمة الله وبركاته: اساتذتي الكرام في الملف المرفق جدولين الجدول 1 حاصل بياناته عن طريقة عملية بحث في الخل ..


موضوع مغلق


24-10-2021 08:03 مساء
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 277
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 

السلام عليكم ورحمة الله وبركاته: 
اساتذتي الكرام في الملف المرفق جدولين الجدول 1 حاصل بياناته عن طريقة عملية بحث في الخلية G2 والتي تجلب لي الاسم المطلوب من ورقة Data والتي تحتوي على داتا أكثر من 3000 اسم الغرض منه هو جلب اسم محدد طبعاً بعد عملية البحث عن الاسم والبحث عن اسم آخر يتم مسح العملية السابقة وهنا يأتي دول الجدول 2 ليحتفظ لي بالاسم اللي كان في عملية البحث السابقة وهكذا في كل مرة (طبعاً النظام ماشي تمام التمام) لكن المشكلة التي تقابلني أني أحتاج في كل مرة إلى الذهاب إلى خلايا جدول 1 والدخول في كل خلية وفي نهاية السطر اضغط انتر حتى يتم ترحيل الداتا لجدول 2 فهل من طريقة لجعل الداتا ترحل اوتوماتيك بمجرد ظهور نتيجة البحث في جدول 1 واعتذر عن الإطالة في الشرح وأرجوا أن اكون قد وفقت في إيصال المطلوب
 
 
  تكافل وكرامة 2022..xlsm   تحميل xlsm مرات التحميل :(12)
الحجم :(46.854) KB



أفضل إجابة مقدمة من hassona229 وهي:
وعليكم السلام ورحمه الله وبركاته 
عدل السطر 
If p > 0 Then wsResult.Range("A3").Resize(p, UBound(temp, 2)).Value = temp

ليصبح 
If p > 0 Then
wsResult.Range("A3").Resize(p, UBound(temp, 2)).Value = temp
wsResult.Range("L" & wsResult.Cells(Rows.Count, 12).End(xlUp).Row + 1).Resize(p, UBound(temp, 2)).Value = temp
Else
End If


( كيف اجلب بيانات اعمده محددة 
ما هى الاعمده التى تريد جلبها وفي أي مكان تريد وضع النتائج وما هى شكل النتائج ) والسؤال الثانى ده طبعا هيكون في موضوع تانى 142
عرض الإجابة




25-10-2021 01:40 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif نقل اوتوماتيك لبيانات جدول إلى جدول آخر
وعليكم السلام ورحمه الله وبركاته 
عدل السطر 
If p > 0 Then wsResult.Range("A3").Resize(p, UBound(temp, 2)).Value = temp

ليصبح 
If p > 0 Then
wsResult.Range("A3").Resize(p, UBound(temp, 2)).Value = temp
wsResult.Range("L" & wsResult.Cells(Rows.Count, 12).End(xlUp).Row + 1).Resize(p, UBound(temp, 2)).Value = temp
Else
End If


( كيف اجلب بيانات اعمده محددة 
ما هى الاعمده التى تريد جلبها وفي أي مكان تريد وضع النتائج وما هى شكل النتائج ) والسؤال الثانى ده طبعا هيكون في موضوع تانى 142

25-10-2021 03:21 مساء
مشاهدة مشاركة منفردة [2]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 277
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif نقل اوتوماتيك لبيانات جدول إلى جدول آخر
ما شاء الله تبارك الله أحسنت استاذنا وأبدعت جزاكم الله خيراً وبارك الله لك تعديل ممتاز جعله الله في ميزان حسناتك اللهم آمين

25-10-2021 03:36 مساء
مشاهدة مشاركة منفردة [3]
علي بطيخ سالم
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-09-2018
رقم العضوية : 8086
المشاركات : 277
الجنس : ذكر
تاريخ الميلاد : 30-10-1982
الدعوات : 1
يتابعهم : 7
يتابعونه : 3
قوة السمعة : 1084
عدد الإجابات: 12
 offline 
look/images/icons/i1.gif نقل اوتوماتيك لبيانات جدول إلى جدول آخر
أما عن موضوع جلب اعمدة محددة فهي في نفس نطاق البحث والمقصد أن أتمكن من تبديل البيانات المعطاة يعني مثل بدل من جلب اسم الأم يجلب لي الديانة مثلاً وبدلاً من عمود (الصف) الثاني يجلب لي النوع وهكذا
المقصد هذا السطر
  arr = wsData.Range("A5:e" & wsData.Cells(Rows.Count, 1).End(xlUp).Row).Value     


فبدلاً من نطاقة كامل يتمثل من A5 : E أريد أن أجعله A - B - C- E بحيث أتمكن من تطبيقه على ملفات أخرى

25-10-2021 05:04 مساء
مشاهدة مشاركة منفردة [4]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif نقل اوتوماتيك لبيانات جدول إلى جدول آخر
اطرح سؤالك في موضوع جديد اخى الكريم وبين التفاصيل الكامله 
النطاق المطلوب استخدام بياناته
شكل النتائج المتوقعه للبيانات حتى يتسنى لنا فهم المطلوب جيدا 



الكلمات الدلالية
اوتوماتيك ، لبيانات ، جدول ، جدول ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:17 مساء