مهند محسن

أخى الكريم ....المطلوب ليس بالسهل او الهين فلا يمكن عمل المطلوب

وعليكم السلام-يجب عليك تفادى العمل على فورم وليست بوكس به أكثر من 10 أعمدة ... لأن هذا يقوم بعمل بطء بالملف وتثقيله

كده تمام اوى .... يجب غلق الموضوع لأنه كده اخذ أكثر من وقته وحجمه

أستاذ محمد ...لما انت اصلاً منزعج هكذا على الرغم ان طريقة عرضك وكثرة الأسئلة وعدم توضيح المطلوب بكل دقة تجعل جميع الأساتذة ينفرون من مساعدتك وهلا قدمت المساعدة لأحد من قبل حتى تنزعج بهذه الطريقة ... اخى الكريم لا تكون أنانياً ,فطالما انك دائما فى احتياج لمساعدة الأخرين فيجب عليك ان تبدأ اولا بنفسك وتمد يد العون والمساعدة لكل من يحتاج المساعدة طالما فى استطاعتك هذا ,حتى ولو لم تكن فى استطاعتك المساعدة يكفيك حتى شرف المحاولة او البحث فى اى مكان عن حل مشكلة غيرك .. وحب لغيرك كما تحب لنفسك او اكثر جميعا هنا بالمنتدى نتسم بهذا فكن مثل الجميع لو سمحت والجميع هنا يعمل فقط لوجه الله ولا يتقاضون اجراً بالمنتدى فدائماً وأبدا عليك إلتماس وتقديم العذر للناس جميعا فانت لا تعلم ولا تعرف شيء عن أوقاتهم فالكل يسعى الى كسب قوته وقوت أولاده من عمله الأساسى وليس من المنتدى **أحب أن أكون أكرم الناس قال صلى الله عليه و سلم : لا تشك من أمرك شيئاً إلى الخلق تكن أكرم الناس . ** أحب أن أكون خير الناس .قال صلى الله عليه و سلم : كن نافعاً للناس تكن خير الناس . ** أحب أن أكون أعدل الناس . قال صلى الله عليه و سلم : أحب للناس ما تحب لنفسك تكن أعدل الناس . **أريد أن أكون أعلم الناس . قال صلى الله عليه و سلم اتق الله تكن أعلم الناس . جزاك الله كل خير

طيب فـــين الجدول الذى تتحدث عنه , من فضلك ارفع ملف موضح عليه المطلوب بكل دقة حيث ليس هناك عمل يقوم على التخمين ونبهنا من قبل مئات المرات ... لا تنجح اى مشاركة الا برفع ملف موضح عليه المطلوب بكل دقة وذلك تجنباً لعدم اهدار وقت الأساتذة دون جدوى او اهمية وبما انك لم تقم برفع ملف , فما هو السبب فى عدم استخدامك خاصية البحث بالمنتدى فبه طلبك : تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) كود تلوين صف نشط وهذا ايضا رابط خارجى كود لتلوين الخلية الفعالة – Active Cell

الموضوع ليس بالسهل او الهين فإن كان سهلا لقمت انت بعمله بنفسك

أستاذ هيثم الرملى فــــين الضغط على الإعجاب لهذه الإجابة ؟!!!💙

وعليكم السلام-اهلا بك فى المنتدى بارك الله فيك وزادك الله من فضله

اده يعنى ايه ؟!! وهل يعقل ان تنتظر المساعدة من احد بهذه الطريقة ؟!!!! لابد من رفع ملف مدعوم بشرح كافى عن المطلوب

شكرا لك استاذى الكريم على تعبك معى هحاول اوفق هذا مع ملفى ان شاء الله بارك الله فيك وزادك الله من فضله

شكرا لك استاذى الكريم على محاولة المساعدة ولكن مازالت المشكلة قائمة كما ترى

شكرا لك استاذى الكريم لرد حضرتك...فقط تظهر معى هذه الرسالة عندما يتم الضغط على أيقونة ترحيل من الفورم

طبعا بالتأكيد كل هذه البرامج تكون بمقابل مادى وليست مجانية مثل هذا البرنامج وبالفعل يمكنك عمل أوردر به لشرائه ePLUM Enterprise Scale Manager

وعليكم السلام وكيف تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب ؟!!!

وعليكم السلام لا تنتظر المساعدة من احد بدون رفع ملف وشرح وافى وكافى للمطلوب

وعليكم السلام-لا يمكن عمل مشاركة على جوجل لملف به ماكرو واكواد

بالتأكيد لا يمكن عمل هذا الا ببرامج مدفوعة الأجر وليست مجانية... من فضلك ابحث عن هذه البرامج

وعليكم السلام-تفضل OROWB1.xlsx

بالطبع وبالتأكيد لا يمكن عمل ذلك

لا تنتظر المساعدة من أحد بدون رفع ملف موضح فيه كل المطلوب .... فلا يمكن العمل على التخمين كما انه يعتبر اهدار واضاعة وقت الأساتذة دون جدوى او فائدة

وعليكم السلام-اهلا بك بالمنتدى , ولما نصعب العمل على أنفسنا .... يمكنك عمل لصق للبيانات فى ملف واحد حتى يتم البحث وهذا يكون ادق واسهل طبعا

وعليكم السلام-لا تنتظر المساعدة من احد بدون رفع الملف نفسه به شرح وتوضيح كل المطلوب

طبعا لا يمكن عمل هذا !!!

السلام عليكم اساتذتى وأحبائى الكرام أرجو التلطف على مساعدتى فى ضبط وتعديل كود الترحيل من الفورم الى شيت الإكسيل لكى يتم الترحيل بصورة طبيعية, وهذا هو الكود Private Sub ButtonNew_Click() Dim Ad As String Dim c As Integer Dim xx As Long '''''''''''''''''''' For c = 1 To ContColmn Ad = Cells(1, c).Address(0, 0) If Len(Trim(Me.Controls(Ad).Value)) = 0 Then MsgBox "العنوان: " & Me.Controls("xx" & c).Caption & " فارغ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "خلية فارغة" Me.Controls(Ad).SetFocus Exit Sub End If Next '''''''''''''''''''''' Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheet2 Lr = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 For c = 1 To ContColmn Ad = Cells(1, c).Address(0, 0) .Cells(Lr, c).Value = Me.Controls(Ad).Value Next End With Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic A1.Value = Application.WorksheetFunction.Max(Sheets(2).Range("A2:A5000")) + 1 MsgBox "تم الترحيل بنجاح" End Sub نموذج بحث وترحيل وتعديل11.xlsm

وعليكم السلام-ما تطلبه ليس بالسهل او الهين فالطلبات كثيرة جدا ومستحيل ان يقوم بها احد , فأنت لا تعرف مدى انشغال الأساتذة