احمد 505

والا زلت انتظر

السلام عليكم ورحمة الله وبركاته اعزائي الكرام حسب ما طلب مني من بعض الاخوة ان اعيد صياغة السؤال فقط كتبت بالمرفق كل ما اريد بإسهاب ارجوا من الله ثم منكم المساعدة العاجلة وشكراً A2.rar

اعزائي الكرام ان شاء الله الطلب واضح الان بالانتظار

اشكرك اخي / ياسر خليل لقد كتبت المطلوب بالمرفق وبكل وضوح واشكرك على الرد A2.rar

يا جماعة ليش مافيه رد بارك الله فيكم الصراحة استغرب عدم الرد في هذا الصرح المتميز والذي اعتبره من افضل مااتابع في شبكة الانترنت

للرفع

السلام عليكم اعزائي ارجوا من الله ثم منكم تعديل الكود المرفق حيث يبداء حالياً من ( العمود B الى العمود K ) المطلوب 1- التعديل حيث يبداء من ( العمود AJ الى العمود AS ) الصف 92 2- الغاء التكرار الموجود في العمودين ( N+O ) وشكراً A2.rar

للرفع

السلام عليكم ورحمة الله وبركاته ارجوا النظر في المرفق ومساعدتي في ايجاد حل اشكركم A2.rar

الاساتذة الكرام مالي لا اجد لسؤالي مجيب فضلا لا امراً اجيبوني

السلام عليكم ورحمة الله اعزائي الكرام أرجوا المساعدة في تعليمي لكي اتعامل مع هذا الكود VAB لانني اريد ان انقله من ورقة اكسل الى ورقة اكسل اخرى المطلوب 1- اريد شرح الطريقة التي تمكنني من نقل الكود من ورقىة الى اخرى. 2- الكود الذي بالمرفق يبدء من العمود B الصف الثالث. 3- اريد ان انقله الى اعمده اخرى مثلا ( العمود AI والصف 92 ). 4- هل الكود مفعل تلقائياً على كامل الصفحة. 5- لماذا معلومات العمودين A+B تتكرر في العمودين التالين C+D ( المفترض تتغير ). 6- ازالة التكرار مع الاحتفاض بالخمس النتائج. 7-هل يمكن ان احتفض بأكثر من نتيجة مثلا ( 10 نتائج ). 8- الغاء معلومات العمودين ( N+O ) والا اعلم ايش الفائدة منها. 9- هل يمكن ان يعوض الكود المستخدم بمعادلة ( لسهولة التعامل معها ). اشكركم جميعاً A2.rar

السلام عليكم ورحمة الله وبركاته أعزائي الكرام أرجوا المساعدة في تعليمي طريقة نقل كود VBA من ورقة الى اخرى المطلوب 1- اريد شرح الطريقة التي تمكنني من نقل الكود. 2- الكود الذى بالمرفق يبدء من العمود B الصف الثاني.. 3- انا اريده أن يبدء مثلاً من AI الصف 92. 4- هل يمكن تفعيل الكود على الصفوف الباقية بطريقة السحب (يعني انا اريد استخدام الكود من الصف 92 الى الصف 1800) أم ان الكود يعمل تلقائي على كامل الورقة. 5- لماذا العمودين A+B تتكرر في العمودين التاليين C+D. 6- ازالة التكرار مع الاحتفاض بالخمس النتائج. 7- هل يمكن ان احتفض بأكثر من خمس نتائج ( 10 مثلاً ). 8- ما الفائدة من العمودين N+O ( ارجوا الغائها ) 9- هل يمكن ان يعوض الكود بمعادلة. اشكركم جميعاً A2.rar

هل من مجيب رجائاً

السلام عليكم ورحمة الله وبركاته ما شاء الله تبارك الله الصراحة دروس مفيدة جداً جداً جداً والله لم انتبه لهذه الدروس قبل هذا اليوم وقد قررت ان ابداء من الصفر لقد طرحت سؤال في المنتدى للأكسل وتفاجئت بعدم الاجابة فكررت السؤال بصيغة ثانية بعد اسبوع ولم يجيبني احد الصراحة انني تضايقت من عدم الرد ولكن بحثت في المنتدى بالصدفة ووجدت هذه الدروس القيمة وقد قمت بتحميلها كاملة وعرفت عدم إجابتي ( لان السؤال كان في المكان الغير صحيح ) الحقيقة أن الاستاذ ابو حنين قد قام مشكورا بإجابة سؤالٍ لي منذ فتره وقد استخدمت الورقة والكود وكانت فعالة جداً ولكن عندما اردت ان انقلها الى قاعدة البيانات التي استخدمها لم استطع ذلك لعدم معرفتي ( كيف اعدل على الكود ) الكود يبداء من العمود A وأنا اريد أن أستخدمه من العمود AI والصف 92 مع بعض التعديلات المرفقة أرجوا النظر في المرفق والمساعدة في التغيير مع القليل من الشرح أشكرك جزيل الشكر A2.rar

ياحماعة ما يصير كذا والا رد

يا اخوان ارجوا الرد ليش ما فيه رد لحد الان اذا فيه مشكله في السؤال اخبروني

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Or Target.Column = 3 Then If CStr(Cells(Target.Row, 3)) = CStr(Cells(Target.Row, 15)) Then Exit Sub Else Application.DisplayAlerts = False Range(Cells(Target.Row, 2), Cells(Target.Row, 9)).Copy Cells(Target.Row, 4) Range(Cells(Target.Row, 12), Cells(Target.Row, 15)).ClearContents End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 2 Or Target.Column = 3 Then Cells(Target.Row, 14).Value = Cells(Target.Row, 2).Value Cells(Target.Row, 15).Value = Cells(Target.Row, 3).Value End If End Sub احبابي هذا الكود الموجود عندي واريد ان اعرف كيف اغيره بحيث يتوافق مع الاعمدة التي اريد ان انقله اليها

يا جماعة ايش اللي اصل في المنتدى ليش الناس ما بترد احد مات والا شي

السلام عليكم أعزائي ارجوا المساعدة في نقل الكود المرفق الذي قام بمعله الاستاذ/ ابو حنين 1 اريد الطريقة في نقل محتويات الورقه المرفقة بالكود الى ورقة ثانية ( قاعدة بياناتي ) 2- الكود بالمرفق يبداء من العمود B 3- أنا اريد ان اغير العمود ليتماشى مع قاعدة البيانات حسب الترتيب 4- لماذا العمودين A+B تتكرر في العمودين التاليين ( اريد الاحتفاض بالخمس نتائج ولكن دون التكرار ) 5- هل بالامكان تعديل الكود الى معادلة (وتعطي نفس نتائج الكود اشكركم A2.rar

يا قوم اين انتم أبو حنين وينك يالحبيب انقذني من هالورطة

لا أصدق هذا الصمت

أخي الكريم أشكرك عى اهتمامك ومحاولتك الطيبة صحييح طريقتك جداً ممتازة وسوف استخدمها في نموذج أخر الانها ستفيدني ولكن للأسف الطريقة التي ابحث عنها تختلف 1- اريد نفس الورقة التي رفعتها في سؤالي كما هي ( لان طريقتها ممتازة وهي المطلوبة ) لانني اكتب في اول خانتين فقط ( وعند ادخال معلومات جديدية في نفس الخانتين تنتقل المعلومات السابقة الى الخانتين التي تليها ) لكي تكون كمرجع في المستقبل 2- اريد عدم تكرار معلومات الخانتين B+C مع الخانتين التي تليها 3- اريد اذا بالامكان استخدام معادلة بدلاً من الكود 4- اريد الطريقة لنقلها الى قاعدة البيانات تبعي اشكرك

يا جماعة ما فيه حل يعني