محمد الورفلي1 قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 السلام عليكم اريد جلب كل من يحمل كود 103 من الصفحات الاربعة في المرفق جلب بيانات من اكثر من شيت.rar
عادل حنفي قام بنشر أكتوبر 1, 2015 قام بنشر أكتوبر 1, 2015 اخي محمد الخازمي ارجو ان يكون المرفق هو المطلوب تحياتي جلب بيانات من اكثر من شيت.rar 2
محمد الورفلي1 قام بنشر أكتوبر 2, 2015 الكاتب قام بنشر أكتوبر 2, 2015 السلام عليكم شكراً استاذ عادل علي الاجابة الوافية هو المطلوب ........ (( لوسمحت .... ممكن شرح طريقة الكود بارك الله فيك
عادل حنفي قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 اخي الخازمي اليك شرح الكود مسح محتويات المدي Range("c13:E41").ClearContents عمل حلقة استمرارية علي كل شيتات الملفFor i = 1 To Sheets.Count تجنيبب الشيت المفتوح من الحلقة الاسمراريةIf Sheets(i).Name <> ActiveSheet.Name Then عمل متغير لنعرف منه اخرصف في العمود الثالث في شيت الورقة1n = Sheets("æÑÞÉ1").Range("c12").End(xlDown).Row عمل حلفة استمرارية اخري من الصف 13 والي اخر صف العامود السابق ذكره مع افتراض ان هذا العامود عدد الصفوف المستعملة به مـساو لنفس العاامود في بباقي الشيتتات وهنا يمر الكود علي صف صف في العامودFor r = 13 To n ليتحقق الشرط التالي وهو لو ان الخلية في صف من صفوف الشيتات المعمول لها حلقة استمرارية تساوت مع الخلية "d5"If Sheets(i).Cells(r, 4) = [d5] Then عند ذلك يتم ترحيل محتويات الصف من العامود 3 الي العامود 5With Columns(3).Rows(41).End(xlUp).Offset(1, 0) = Sheets(i).Cells(r, 3).Offset(1, 1) = Sheets(i).Cells(r, 4).Offset(1, 2) = Sheets(i).Cells(r, 5)End WithEnd If لاستمرار الحلقة الاستمرارية الثانية علكل صف في الشي حتي ينتهي منهاNextEnd If لاستمرار الحلقة الاستمرارية الاولي والانتقال لشيت اخر حتي ينتهي من كل الشيتاتNext ارجو ان اكون وفقت في الشرح تحياتي 3
محمد الورفلي1 قام بنشر أكتوبر 2, 2015 الكاتب قام بنشر أكتوبر 2, 2015 شكرأ علي الشرح الوافي " استاذ عادل " لي سؤال ..... لقد اثقلت عليك سامحني اذا كان هذا السطر مخصص لتجنيب الشيت المفنوح وهو صفحة الاستدعاء تجنيبب الشيت المفتوح من الحلقة الاسمرارية If Sheets(i).Name <> ActiveSheet.Name Then فما العمل اذا كان لدي اكثر من صفحة في الملف الاصلي .... اريد من الكود ان يستثنيها "" مثلاً صفحة اسمها (( المحاسب )) ويتم فيها حساب الوارد والصادر من جميع الشيتات وكذالك صفحة اخرى بإسم " احصاء العمر "
ياسر خليل أبو البراء قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 أخي الكريم محمدجرب تغير السطر بهذا الشكل If Sheets(i).Name <> ActiveSheet.Name And Sheets(i).Name <> "المحاسب" Then جرب الكود بهذا الشكل النهائي Private Sub CommandButton1_Click() Dim I As Long, N As Long, R As Long Range("C13:E41").ClearContents For I = 1 To Sheets.Count If Sheets(I).Name <> ActiveSheet.Name And Sheets(I).Name <> "المحاسب" And Sheets(I).Name <> "احصاء العمر" Then N = Sheets(I).Range("C12").End(xlDown).Row For R = 13 To N If Sheets(I).Cells(R, 4) = [D5] Then With Columns(3).Rows(41).End(xlUp) .Offset(1, 0) = Sheets(I).Cells(R, 3) .Offset(1, 1) = Sheets(I).Cells(R, 4) .Offset(1, 2) = Sheets(I).Cells(R, 5) End With End If Next End If Next End Sub 2
محمد الورفلي1 قام بنشر أكتوبر 2, 2015 الكاتب قام بنشر أكتوبر 2, 2015 السلام عليكم شكراً للرجل القدير عادل حنفي الذي اعرفه من اعماله من تاريخ 18/2/2014 وهو لايعرفني شكراً لهذا الكود الجميل بارك الله فيك ** طبعاً رجل الاسعاف السريع الذي لايتردد في مساعدة اي شخص في المنتدى الاستاذ ياسر خليل شكراً على الحل 1
عادل حنفي قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 اخي الخازمي لا تتقيل ولا شئ قول ما بخاطرك كما يشرفني معرفتك اخي وسعدت برد اخي ياسر فقد كفي ووفي تحياتي 1
ياسر خليل أبو البراء قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 معلمي الحبيب الغالي عادل أنتم الأساس ولنا النبراس ، ومهمااااااااااااااااااا وصلنا فلن ننسى أبداً فضل الله ثم فضلكم علينا .. فأنتم الأعلام في هذا المجال وأنتم من أطلقتم شرارة الإبداع تقبل وافر تقديري واحترامي
عادل حنفي قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 اخي الحبيب ياسر باكون سعيد جدا عندما ارد عليك حتي و لولم تكتب شيئا لانك تذكرني انت وعدد ليس بالكثيرمن المتواجدون حاليا بايام اسماء نفتقدها جميعا اثرت المنتدي ومازالت اعمالهم ثروة لهذا المنتدي فتحياتي اليك والشكر علي كلماتك 1
سليم حاصبيا قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 بعد اذن الاساتذة الكرام نفس الشيء لكن بالمعادلات جلب بيانات من اكثر من شيت salim.zip 1
عادل حنفي قام بنشر أكتوبر 2, 2015 قام بنشر أكتوبر 2, 2015 اخي سليم حاصبيا اثريت الموضوع بملفك واشدد علي يداك للتمكن من المعادلات تحياتي 1
محمد الورفلي1 قام بنشر أكتوبر 3, 2015 الكاتب قام بنشر أكتوبر 3, 2015 السلام عليكم شكرأ استاذ عادل مشكلة ان شاء الله بسيطة اريد ان يكون احضار البيانات عن طريق شرطين وليس شرط واحد If Sheets(I).Cells(r, 4) = [d5] Then كما فهمت من شرح الكود في المشاركة السابقة ان هذا السطر مخصص للشرط الذي يجلب به البيانات فقد حاولت لكن فشلت اريد توجهكم في الطريقة الصحيحة هذه هي المحاولة If Sheets(I).Cells(R, 4, 5) = [D5:e5] Then
عادل حنفي قام بنشر أكتوبر 3, 2015 قام بنشر أكتوبر 3, 2015 اخي الخازمي سيكون شكل الكود كالتالي If Sheets(I).Cells(r, 4) = [D5] And Sheets(I).Cells(r, 5) = [E5] Then تحياتي 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.