عامر ياسر قام بنشر أغسطس 4, 2016 قام بنشر أغسطس 4, 2016 (معدل) السلام عليكم الشرح موجود داخل الملف قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar تم تعديل أغسطس 4, 2016 بواسطه عامر ياسر
عبدالسلام ابوالعوافي قام بنشر أغسطس 4, 2016 قام بنشر أغسطس 4, 2016 قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar 1
عامر ياسر قام بنشر أغسطس 4, 2016 الكاتب قام بنشر أغسطس 4, 2016 في 4/8/2016 at 16:09, عبدالسلام ابوالعوافي said: قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rarFetching info... Expand السلام عليكم .... شكرا استاذ عبدالسلام ابوالعوافي لما بذلته في الاجابة لكن عند تغيير الصف لا تتغير بيانات التولد والقيد تبقى ولا تتغير .... هل يمكن استخدام الكود لكوني وضعت زر الاضافة البيانات وزر لحذف البيانات ........... باستحدام الاكواد ............ مع شكري وتقديري لتحملكم العناء في ايجاد الحل
عبدالسلام ابوالعوافي قام بنشر أغسطس 4, 2016 قام بنشر أغسطس 4, 2016 في 4/8/2016 at 18:00, عامر ياسر said: عند تغيير الصف لا تتغير بيانات التولد والقيد تبقى ولا تتغير Expand البيانات تتغير اخر الكريم .. لكن لان التواريخ متساوية في كل الشيتات فلن تلاحظ التغير .. جرب وضع تواريخ مختلفة وشاهد النتيجة 1
عامر ياسر قام بنشر أغسطس 4, 2016 الكاتب قام بنشر أغسطس 4, 2016 في 4/8/2016 at 19:06, عبدالسلام ابوالعوافي said: البيانات تتغير اخر الكريم .. لكن لان التواريخ متساوية في كل الشيتات فلن تلاحظ التغير .. جرب وضع تواريخ مختلفة وشاهد النتيجة Expand عذرا استاذنا الكريم النت انفصل عندنا واردت اجابتك .......... وجدت الخلل عندي كما تفضلت البيانات متشابهة لك تقديري وحترامي هذا هو المطلوب شكرا لحضرتك ابدعت في الاجابة اقدم اعتذاري لكم شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر شكراً لك يا مبدع شكرا والف شكر 1
عامر ياسر قام بنشر أغسطس 4, 2016 الكاتب قام بنشر أغسطس 4, 2016 في 4/8/2016 at 20:14, سليم حاصبيا said: جرب هذا الكود serch_data salim.rarFetching info... Expand السلام استاذ سليم حاصبيا شكرا لتفضلك بالاجابة الكود يعمل لكافة الصفوف لشعبة أ ولكن عند اختيار شعبة ب او جـ يعطي الكود خطأ .......... مع تقديري وحترامي لك يا مبدع على كل الاجابات التي تقدمها هي في الحقيقة ابداع من شخص مبدع .............لك كل احترامي
سليم حاصبيا قام بنشر أغسطس 4, 2016 قام بنشر أغسطس 4, 2016 في 4/8/2016 at 20:24, عامر ياسر said: السلام استاذ سليم حاصبيا شكرا لتفضلك بالاجابة الكود يعمل لكافة الصفوف لشعبة أ ولكن عند اختيار شعبة ب او جـ يعطي الكود خطأ .......... مع تقديري وحترامي لك يا مبدع على كل الاجابات التي تقدمها هي في الحقيقة ابداع من شخص مبدع .............لك كل احترامي Expand استبدل الكود بهذا 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/8/2016 at 20:51, سليم حاصبيا 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 Expand شكرا والف شكر استاذ سليم حاصبيا ابدعت هو هذا المطلوب جزاك الله خيرا ً وجعله في ميزان حسناتك شكرا ابدعت في الاجابة شكرا ابدعت في الاجابة شكرا ابدعت في الاجابة شكرا ابدعت في الاجابة
ابو عبدالبارى قام بنشر أغسطس 5, 2016 قام بنشر أغسطس 5, 2016 الأخ الكريم عامر ياسر جرب المرفق التالى لعلة يفى بالغرض به طريقتان للحل abo_abary_قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar 212.05 kB · 97 downloads
عامر ياسر قام بنشر أغسطس 5, 2016 الكاتب قام بنشر أغسطس 5, 2016 في 5/8/2016 at 17:03, ابو عبدالبارى said: الأخ الكريم عامر ياسر جرب المرفق التالى لعلة يفى بالغرض به طريقتان للحل abo_abary_قائمة ديناميكية تقوم بجلب البيانات من الصفوف الدراسية.rar 212.05 kB · 97 downloads Expand شكرا استاذ ابو عبد الباري الكود يعمل حسب ماهو مطلوب ابدعت وجزاك الله خير . ولي طلب من حضرتكم وانت اهل لذلك هل يمكن عمل كود للجدول الصفوف الذي نشرته قبل قليل ولكم الشكر والاحترام ...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.