عامر ياسر قام بنشر أغسطس 4, 2016 مشاركة قام بنشر أغسطس 4, 2016 (معدل) السلام عليكم الشرح موجود داخل الملف قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar تم تعديل أغسطس 4, 2016 بواسطه عامر ياسر رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر أغسطس 4, 2016 مشاركة قام بنشر أغسطس 4, 2016 قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar 1 رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر أغسطس 4, 2016 الكاتب مشاركة قام بنشر أغسطس 4, 2016 1 ساعه مضت, عبدالسلام ابوالعوافي said: قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar السلام عليكم .... شكرا استاذ عبدالسلام ابوالعوافي لما بذلته في الاجابة لكن عند تغيير الصف لا تتغير بيانات التولد والقيد تبقى ولا تتغير .... هل يمكن استخدام الكود لكوني وضعت زر الاضافة البيانات وزر لحذف البيانات ........... باستحدام الاكواد ............ مع شكري وتقديري لتحملكم العناء في ايجاد الحل رابط هذا التعليق شارك More sharing options...
عبدالسلام ابوالعوافي قام بنشر أغسطس 4, 2016 مشاركة قام بنشر أغسطس 4, 2016 منذ ساعه, عامر ياسر said: عند تغيير الصف لا تتغير بيانات التولد والقيد تبقى ولا تتغير البيانات تتغير اخر الكريم .. لكن لان التواريخ متساوية في كل الشيتات فلن تلاحظ التغير .. جرب وضع تواريخ مختلفة وشاهد النتيجة 1 رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر أغسطس 4, 2016 الكاتب مشاركة قام بنشر أغسطس 4, 2016 8 دقائق مضت, عبدالسلام ابوالعوافي said: البيانات تتغير اخر الكريم .. لكن لان التواريخ متساوية في كل الشيتات فلن تلاحظ التغير .. جرب وضع تواريخ مختلفة وشاهد النتيجة عذرا استاذنا الكريم النت انفصل عندنا واردت اجابتك .......... وجدت الخلل عندي كما تفضلت البيانات متشابهة لك تقديري وحترامي هذا هو المطلوب شكرا لحضرتك ابدعت في الاجابة اقدم اعتذاري لكم شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 4, 2016 مشاركة قام بنشر أغسطس 4, 2016 جرب هذا الكود serch_data salim.rar رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر أغسطس 4, 2016 الكاتب مشاركة قام بنشر أغسطس 4, 2016 7 دقائق مضت, سليم حاصبيا said: جرب هذا الكود serch_data salim.rar السلام استاذ سليم حاصبيا شكرا لتفضلك بالاجابة الكود يعمل لكافة الصفوف لشعبة أ ولكن عند اختيار شعبة ب او جـ يعطي الكود خطأ .......... مع تقديري وحترامي لك يا مبدع على كل الاجابات التي تقدمها هي في الحقيقة ابداع من شخص مبدع .............لك كل احترامي رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 4, 2016 مشاركة قام بنشر أغسطس 4, 2016 26 دقائق مضت, عامر ياسر said: السلام استاذ سليم حاصبيا شكرا لتفضلك بالاجابة الكود يعمل لكافة الصفوف لشعبة أ ولكن عند اختيار شعبة ب او جـ يعطي الكود خطأ .......... مع تقديري وحترامي لك يا مبدع على كل الاجابات التي تقدمها هي في الحقيقة ابداع من شخص مبدع .............لك كل احترامي استبدل الكود بهذا Sub exp() Dim My_Sheet As Worksheet Dim Nme, lr, lr1 As String Dim filter_range, rg_to_copy As Range lr1 = Sheets("قوائم ").Cells(Rows.Count, 1).End(3).Row If lr1 < 12 Then lr1 = 12 Sheets("قوائم ").Range("a12:g" & lr1).ClearContents Nme = Sheets("قوائم ").Range("c7").Value lr = Sheets(Nme).Cells(Rows.Count, 1).End(3).Row Set filter_range = Sheets(Nme).Range("a12:g" & lr) On Error Resume Next Sheets(Nme).Range("A12").AutoFilter field:=7, Criteria1:=Sheets("قوائم ").Range("c8") Set rg_to_copy = filter_range.SpecialCells(12) If rg_to_copy.Rows.Count = 1 Then MsgBox "لا توجد هذه الشعبة" & " " & Sheets("قوائم ").Range("c8") & Chr(10) & "في الصف" & " " & Nme, vbExclamation + vbMsgBoxRight: GoTo ending rg_to_copy.Copy Sheets("قوائم ").Select ActiveSheet.Range("a12").PasteSpecial (xlValues) ending: Application.CutCopyMode = False If Sheets(Nme).autofiltrmode = True Then Sheets(Nme).ShowAllData Sheets("قوائم ").Select ActiveSheet.Range("a12").Select 'Sheets(Nme).AutoFilter End Sub 1 رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر أغسطس 4, 2016 الكاتب مشاركة قام بنشر أغسطس 4, 2016 4 دقائق مضت, سليم حاصبيا said: استبدل الكود بهذا Sub exp() Dim My_Sheet As Worksheet Dim Nme, lr, lr1 As String Dim filter_range, rg_to_copy As Range lr1 = Sheets("قوائم ").Cells(Rows.Count, 1).End(3).Row If lr1 < 12 Then lr1 = 12 Sheets("قوائم ").Range("a12:g" & lr1).ClearContents Nme = Sheets("قوائم ").Range("c7").Value lr = Sheets(Nme).Cells(Rows.Count, 1).End(3).Row Set filter_range = Sheets(Nme).Range("a12:g" & lr) On Error Resume Next Sheets(Nme).Range("A12").AutoFilter field:=7, Criteria1:=Sheets("قوائم ").Range("c8") Set rg_to_copy = filter_range.SpecialCells(12) If rg_to_copy.Rows.Count = 1 Then MsgBox "لا توجد هذه الشعبة" & " " & Sheets("قوائم ").Range("c8") & Chr(10) & "في الصف" & " " & Nme, vbExclamation + vbMsgBoxRight: GoTo ending rg_to_copy.Copy Sheets("قوائم ").Select ActiveSheet.Range("a12").PasteSpecial (xlValues) ending: Application.CutCopyMode = False If Sheets(Nme).autofiltrmode = True Then Sheets(Nme).ShowAllData Sheets("قوائم ").Select ActiveSheet.Range("a12").Select 'Sheets(Nme).AutoFilter End Sub شكرا والف شكر استاذ سليم حاصبيا ابدعت هو هذا المطلوب جزاك الله خيرا ً وجعله في ميزان حسناتك شكرا ابدعت في الاجابة شكرا ابدعت في الاجابة شكرا ابدعت في الاجابة شكرا ابدعت في الاجابة رابط هذا التعليق شارك More sharing options...
ابو عبدالبارى قام بنشر أغسطس 5, 2016 مشاركة قام بنشر أغسطس 5, 2016 الأخ الكريم عامر ياسر جرب المرفق التالى لعلة يفى بالغرض به طريقتان للحل abo_abary_قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar رابط هذا التعليق شارك More sharing options...
عامر ياسر قام بنشر أغسطس 5, 2016 الكاتب مشاركة قام بنشر أغسطس 5, 2016 40 دقائق مضت, ابو عبدالبارى said: الأخ الكريم عامر ياسر جرب المرفق التالى لعلة يفى بالغرض به طريقتان للحل abo_abary_قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar شكرا استاذ ابو عبد الباري الكود يعمل حسب ماهو مطلوب ابدعت وجزاك الله خير . ولي طلب من حضرتكم وانت اهل لذلك هل يمكن عمل كود للجدول الصفوف الذي نشرته قبل قليل ولكم الشكر والاحترام ... رابط هذا التعليق شارك More sharing options...
ابوانس2013 قام بنشر ديسمبر 12, 2016 مشاركة قام بنشر ديسمبر 12, 2016 بارك الله فيك رابط هذا التعليق شارك 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.