عامر ياسر قام بنشر أغسطس 4, 2016 قام بنشر أغسطس 4, 2016 (معدل) السلام عليكم الشرح موجود داخل الملف قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar تم تعديل أغسطس 4, 2016 بواسطه عامر ياسر
عبدالسلام ابوالعوافي قام بنشر أغسطس 4, 2016 قام بنشر أغسطس 4, 2016 قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar 1
عامر ياسر قام بنشر أغسطس 4, 2016 الكاتب قام بنشر أغسطس 4, 2016 1 ساعه مضت, عبدالسلام ابوالعوافي said: قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar السلام عليكم .... شكرا استاذ عبدالسلام ابوالعوافي لما بذلته في الاجابة لكن عند تغيير الصف لا تتغير بيانات التولد والقيد تبقى ولا تتغير .... هل يمكن استخدام الكود لكوني وضعت زر الاضافة البيانات وزر لحذف البيانات ........... باستحدام الاكواد ............ مع شكري وتقديري لتحملكم العناء في ايجاد الحل
عبدالسلام ابوالعوافي قام بنشر أغسطس 4, 2016 قام بنشر أغسطس 4, 2016 منذ ساعه, عامر ياسر said: عند تغيير الصف لا تتغير بيانات التولد والقيد تبقى ولا تتغير البيانات تتغير اخر الكريم .. لكن لان التواريخ متساوية في كل الشيتات فلن تلاحظ التغير .. جرب وضع تواريخ مختلفة وشاهد النتيجة 1
عامر ياسر قام بنشر أغسطس 4, 2016 الكاتب قام بنشر أغسطس 4, 2016 8 دقائق مضت, عبدالسلام ابوالعوافي said: البيانات تتغير اخر الكريم .. لكن لان التواريخ متساوية في كل الشيتات فلن تلاحظ التغير .. جرب وضع تواريخ مختلفة وشاهد النتيجة عذرا استاذنا الكريم النت انفصل عندنا واردت اجابتك .......... وجدت الخلل عندي كما تفضلت البيانات متشابهة لك تقديري وحترامي هذا هو المطلوب شكرا لحضرتك ابدعت في الاجابة اقدم اعتذاري لكم شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر 1
عامر ياسر قام بنشر أغسطس 4, 2016 الكاتب قام بنشر أغسطس 4, 2016 7 دقائق مضت, سليم حاصبيا said: جرب هذا الكود serch_data salim.rar السلام استاذ سليم حاصبيا شكرا لتفضلك بالاجابة الكود يعمل لكافة الصفوف لشعبة أ ولكن عند اختيار شعبة ب او جـ يعطي الكود خطأ .......... مع تقديري وحترامي لك يا مبدع على كل الاجابات التي تقدمها هي في الحقيقة ابداع من شخص مبدع .............لك كل احترامي
سليم حاصبيا قام بنشر أغسطس 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
عامر ياسر قام بنشر أغسطس 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 شكرا والف شكر استاذ سليم حاصبيا ابدعت هو هذا المطلوب جزاك الله خيرا ً وجعله في ميزان حسناتك شكرا ابدعت في الاجابة شكرا ابدعت في الاجابة شكرا ابدعت في الاجابة شكرا ابدعت في الاجابة
ابو عبدالبارى قام بنشر أغسطس 5, 2016 قام بنشر أغسطس 5, 2016 الأخ الكريم عامر ياسر جرب المرفق التالى لعلة يفى بالغرض به طريقتان للحل abo_abary_قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar
عامر ياسر قام بنشر أغسطس 5, 2016 الكاتب قام بنشر أغسطس 5, 2016 40 دقائق مضت, ابو عبدالبارى said: الأخ الكريم عامر ياسر جرب المرفق التالى لعلة يفى بالغرض به طريقتان للحل abo_abary_قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar شكرا استاذ ابو عبد الباري الكود يعمل حسب ماهو مطلوب ابدعت وجزاك الله خير . ولي طلب من حضرتكم وانت اهل لذلك هل يمكن عمل كود للجدول الصفوف الذي نشرته قبل قليل ولكم الشكر والاحترام ...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.