Mohammad Shawkey

جزاك الله كل خير استاذ ابو حنين ,,, مجهود رائع ,, ربنا يكرمك بس لو امكن ننفذ نفس الفكرة بس بكود بدل المعادلات يكون اكثر روعة من حضرتك

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

استاذ رجب .. جزاك الله كل خير .. ومتشكر جدا على مساعدة حضرتك .. هذا هو المطلوب

السلام عليكم ورحمة الله وبركاتة برجاء المساعدة فى شرح هذا الكود واظهار ما بة من اخطاء وتعديلة ان كان خطأ المقصود من هذا الكود انى اريد البيانات الموجودة فى العمود الاول من الصف الثانى الى الصف العشرين داخل الكومبو بوكس من الورقة رقم 4 هل هذا صحيح ؟؟ Private Sub ComboBox1_Change() Dim i As Integer For i = 2 To 20 Me.ComboBox1.Value = Sheet4.Cells(i, 1) Next End Sub

برجاء المساعدة

مرفق لسيادتكم الملف المراد العمل من خلاله كما طلب الاستاذ الشهابى ... بالتوفيق ان شاء الله Book1vv.rar

جزاكم الله كل خير .. ان شاء الله سوف انفذ المطلوب وارفقة .. وشكرا جدا على اهتمام حضرتك ونصيحتك

السلام عليكم ورحمة الله وبركاتة احبائى فى الله تحية طيبة وبعد برجاء مساعدتى فى ايجاد كود خاص باستدعاء بيانات من ورقة اكسيل بحيث انى اكتب مثلا اريد البيانات كلها من الفترة 1-9-2012 الى 20-9-2012 فيقوم باحضارها ... وعند تحديد اى فترة يقوم باستدعائهااا وهل يمكن ان استدعى بيانات من اكثر من ورقة ... مثلا اذا كان ورقة رقم 1 هى خاصة بشهر 9 وورقة رقم 2 خاصة بشهر 10 فاذا اردت استدعاء فترة من 20-9-2012 الى 20-10-2012 هل يمكن تنفيذ ذلك .. ولكم منى خالص الامنيات بالتوفيق وزادكم الله من علمة واكرمكم كثيرا Book1vv.rar

الله يكرمك استاذ ابو حنين ... جزاك الله كل خير هذا هو المطلوب ..

السلام عليكم ورحمة الله وبركاتة تحياتى للاساتذة الافاضل انا بفضل ربنا ومساعده حضراتكم قدرت افهم هذا الكود Private Sub CommandButton4_Click() Range("C3") = TextBox1.Value End Sub فهذا الكود يعنى انه عند الضغط على الزر يتم نقل ما فى التيكست بوكس1 الى الورقة رقم 1 فى الخلية C3 ولكن الاضافة التى اتمناها هنا من حضراتكم هى تتمثل فى الاتى 1- كيف للبرنامج ان يفهم من تلقاء نفسة انى اريد نقل ما فى التيكست بوكس الى ورقة رقم 1 وليست ورقة رقم 2 او 4 على سبيل المثال 2- اذا اردت نقل البيانات الموجودة فى التيكست بوكس الى ورقة اخرى غير ورقة رقم 1 هذه ماذا اضيف على هذا الكود 3- هل يمكن اذا كان لدى اكثر من تيكست بوكس ولو يكن تيكست بوكس 1 تيكست بوكس 2 تيكست بوكس 3 ان يتم نقل البيانات الى ورقة رقم واحد فى العمود A ولكن الصفوف تأخذ نفس ترتيب التيكست بوكس ... بحيث ان التيكست بوكس 1 يتم نقل ما فية الا صف رقم 1 فى العمود A والتيكست بوكس 2 يتم نقل ما فية الى الصف رقم اتنين فى نفس العمود واذا كان احدهم خالى وما يلية بة بيانات يتم نقلهم بنفس وضعهم واعتذر عن الاطالة كثير على حضراتكم ولكن اظن ان هذا سؤال قد يفيد الكثير بأمر الله وخاصة المبتدئيين مثلى جزاكم الله خير وزادكم علما

والله الواحد عاجز عن شكر حضرتك ... ربنا يزيدك من علمة يا رب .. وكل سنة وحضرتك طيب والف مليون شكر على مساعدة حضرتك ليا .. ولوعند حضرتك وقت يسمح حتى تعم المعرفة ويسهل عليا وعلى غيرى ان شاء الله فهم هذا الكود جيدا اتمنى من حضرتك تفسيرة جزء جزء مثلا ماذا يعنى هذا الجزء End(xlUp).Row + 1 على سبيل المثال ولحضرتك جزيل الشكر وبجد ربنا يوفقك ويكرمك

جزاك الله كل خير ... بجد ربنا يكرمك ... ومعلش لو تعبت حضرتك معايا وطلبت شرح للكود الجميل اللى حضرتك ضفتة تكون شاكر لو زدتنى علما وعلمتنى اية معنى الكود ... ربنا يكرمك يااااارب

هل من مسااااااااعد؟؟

السلام عليكم ورحمة الله وبركاتة عيد سعيد على الجميع ان شاء الله .. وكل عام وحضراتكم بخير برجاء المساعدة فى اعطائى كود استطيع من خلالة ربط كل ما اقوم بكتابتة فى التيكست بوكس بمجموعة من البيانات فى ملف اخر ... باختصار اريد عندما يظهر لى هذا اليوزر فورم واكتب داخل التيكست بوكس شىء ما واضغط على زر انتر تنتقل هذة البيانات لورقة رقم 1 عمود A صف رقم 1 واذا اردت اضافة قيمة اخرى تدخل فى نفس العمود A فى الصف الذى يلية وهو رقم 2 وهكذااا مرفق لسيادتكم ملف للعمل من خلالة لمن ارد مساعدتى ... اسم المستحدم : Ahmed الرقم السرى : 123 بعد الضغط على انتر سوف تظهر اليوزر فورم المراد العمل من خلالها .. وفقكم الله Book1.rar Book1.rar

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

ربنا يكرمك يا استاذ محمود على مجهودك واهتمامك انك تساعدنى ... هو فعلا حقق المطلوب بس المشكلة ان حضرتك رتبت او وضعت رقم امام كلمة period total ودة انا مش هاعرف اعملة مع حجم البيانات الضخمة اللى ممكن تكون فى الورقة .... انا والله عارف انى تعبت حضرتك معايا بس ان شاء الله ربنا هايكرمك وتقدر تساعدنى بامر الله

استاذ محمود اللى انا محتاجة هو عملية بحث باستخدام الاسم لكن محتاج قيمة واحدة موجودة امام كلمة ثابتة وهى period Total وهى كلمة مكررة مرة واحدة اسفل كل كلمة سوف تدخل فى البحث ... فمثلا لو فرضنا ان احنا قولنا لو لاقيت الكلمة دى فى العمود دة هاتلى القيمة اللى امام اول او اقرب كلمة اسفل كلمة البحث ... دة ممكن ولا صعب ؟؟؟ ياريت يا استاذ محمود تساعدنى فى الموضوع دة حتى لو بحل اخر سواء باستخدام الفلتر او اى شىء استطيع انى اجيب القيمة دى عن طريق ربطها بالاسم

ارجوا من الخبراء مساعدتى .... للاهمية

الف شكر على سرعة الرد وانا ارفقت ملف لحضرتك هام.rar

السلام عليكم ورحمة الله وبركاتة احبائى فى الله كل عام وحضراتكم بخير اتمنى ان تفيدونى فى ايجاد حل لهذه المشكلة التى ترهقنى كثيرا فى عمل النسخ واللصق مما يضيع كثيرا من الوقت .... سؤالى بعد اذن حضراتكم هو يتلخص فى الاتى اذا كان لدى اسم لصنف ما ولو يكن X وهو فى ورقة رقم 1 واريد ان اقول للاكسيل اذا وجدت X فى ورقة رقم 2 احضرلى الارقام التى امام الكلمة Z وهى التى قد تكون اسفل كلمة X بمسافة او عدد من الصفوف بدون ثبات او تحديد ؟ ولكم منى جزيل الشكر والاحترام

ان شاء الله توفق فى شرحة كالعادة .. ونحن فى انتظار حضرتك .. شكرا

ممكن شرح لهذا الكود بعد اذن الاساتذة الافاضل .. هو كود خاص بالترحيل ولكنى اريد فهمة .. فماذا تعنى For i = 1 To 6 مثلا وهكذا ... جزاكم الله كل خير Sub distribute() LR = [B10000].End(xlUp).Row For i = 1 To 6 Asas_Col = i + 140 x = "اساسى " & i y = "الدرجة النهائية 1" C1 = WorksheetFunction.Match(x, [B4:CX4], 0) + 1 C2 = WorksheetFunction.Match(y, Range(Cells(6, C1), Cells(6, C1 + 9)), 0) + C1 - 1 For r = 9 To LR If Cells(r, Asas_Col) > 0 Then With Sheet2 Rw_1 = WorksheetFunction.Match(i, .[F1:F1000], 0) + 36 LR_i = .Range("C" & Rw_1).End(xlUp).Row + 1 .Cells(LR_i, "C") = Cells(r, "B") .Cells(LR_i, "B") = Cells(r, "D") .Cells(LR_i, "D") = Cells(r, C2) End With End If Next r Next i MsgBox ("تم الترحيل بحمد الله") End Sub

جزاك الله كل خير .. تم حل المشكلة الاولى بفضل الله ومساعدتك ... شكرا استاذ عبد الله .. ربنا يجعلة فى ميزان حسناتك يارب انا اسف للاثقال على حضرتك ولكن باقى الموضوع وهو الخاص بواجهة ادخال البيانات .. ممكن حضرتك تشرحهالى او تقولى الكود الخاص بها ..

السلام عليكم ورحمة الله وبركاتة تحية طيبة وبعد برجاء مساعدتى فى جعل واجهة الاكسيل تظهر عند فتح البرنامج مباشرة وبدون الانتظار لحين الضغط فى الورقة حتى تظهر ... وبرجاء اعطائى شرح للمعادلة او الكود الذى سيطبق حتى استطيع تطبية فيما بعد على اكسيل اخر .. كذلك برجاء مساعدتى فى معرفة كيفية وضع تيكست بوكس عند الكتابة بة تحمل الداتا فى اكسيل .. اى بمثابة واجهة للادخالات .. ولكم منى اطيب الامنيات وخالص الدعاء شكرا Book1.rar

جزاك الله خيرا والف شكر على مساعدتك ومجهودك .. شكرا جزيلا هذا هو المطلوب والحمدالله ... ربنا يكرمك