ياسر خليل أبو البراء

جرب الكود بهذا الشكل . Sub FindSheet() Dim X Dim SH As Worksheet X = InputBox("اكتب اسم الشيت المراد البحث عنه", "Find Sheet") For Each SH In Worksheets If SH.Name Like X Then SH.Activate: Exit For Next SH End Sub

في الخلية E2 اكتب المعادلة =IF(AND(A2="سعيد",B2="فلسطين"),1000,"") يمكنك تحقيق أي عدد من الشروط باستخدام الدالة AND أي أن الشرط يتحقق في حالة تحقق كل الشروط المستخدمه مع الدالة AND

جرب المعادلة بالشكل التالي =IF(A1<200000,A1*1%,IF(A1>200000,SUM(200000*1%,(A1-200000)*2%)))

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

الأخ الفاضل أشرف .. جرب الملف التالي Copy Rows.rar

جرب أن تضع أي رقم من الأرقام المذكورة في الخلية A1 ثم في الخلية B1 جرب المعادلة التالية =(A1/2)+0.5 مفيش غير .. الرقم 7 مركزه = 3 .. لم يتحقق!!

المطلوب غير واضح على الإطلاق يرجى إرفاق ملف وتوضيح المطلوب أخي الساهر

نورت الموضوع بمرورك العطر أخي الحبيب سعد تقبل تحياتي

الأخ الحبيب عبد الله بولنوار بارك الله فيك على مرورك بالموضوع ومحاولة التطبيق تقدم الأخ عمرو طلبة بكود لحل المشكلة .. ولكن يرجى من الأخ الغالي عمرو وضع الاكواد بين أقواس الكود ليظهر الكود بشكل لائق Sub SumRangeB() With Sheets("Sheet1").Range("D1:D" & Cells(Rows.Count, 1).End(xlUp).Row) .Formula = "=SUM(A1:C1)" .Value = .Value End With End Sub وهذا كود آخر باستخدام الحلقة التكرارية ليحقق الهدف Sub SumRangeA() Dim MyRange As Range Dim X, I For I = 1 To Cells(Rows.Count, 1).End(xlUp).Row Set MyRange = Sheet1.Range("A" & I & ":C" & I) X = Application.WorksheetFunction.Sum(MyRange) Range("D" & I) = X Next I End Sub الأخ الحبيب عادل أبو زيد نورت الموضوع بردك الجميل وكلماتك الرقيقة تقبلوا تحياتي

تسلم أخي الغالي يا باشمهندس ياسر نورت الموضوع بتشريفك للموضوع أين حل الاختبار ؟؟ أخبرتك أن تضع الكود في رسالة خاصة محدش مهتم بإنه يحل الاختبار ..............

الأخ الحبيب محمد الخازمي الأخ الغالي عبد الله فاروق مشكور على مروركما العطر ..بارك الله فيكما وجزاكما الله خير الجزاء

الأخ الحبيب رشراش علي . لا يوجد كلمة مستحيل .. فالمستحيل هو ما نصنعه بأيدينا .. والممكن ممكن أن نصنعه بأيدينا إليك الملف المرفق .. من خلال الفورم يمكنك تغيير كلمة السر في الموديول رقم 1 .. والخيال هو بدايته خيال ولكنه قد ينتهي بواقع .. قم بإدخال كلمة السر الجديدة في التكست بوكس ، ليتم تغييرها في الموديول في الحال Change Password In Module Using UserForm.rar

الأخ الفاضل والأستاذ الكبير رؤوف (أبو الإكسيل) ولن يجرؤ أحد أن يأخذ اللقب منك أنت هنا بين أولادك وإخوانك .. فنرجو منك أن تقبلنا تلاميذ لك ،وليست كما ذكرت مرحبا بك في المنتدى ونورت .. وإن شاء الله يستفيد الجميع من خبراتك .. أخوك وتلميذك ياسر أبو البراء

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

اللهمإن الناس يطنون بي خيراً ، وأنت أعلم بي منهم .. فاللهم اجعلني خيراً مما يظنون واغفر لي ما لا يعلمون أخي الحبيب غسان .. مشكور على كلماتك الطيبة وعلى دعائك الطيب المبارك وعلى القول الطيب لعبد الله بن مسعود

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

أخي الكريم صلاح أين الالتزام بالتوجيهات ؟؟؟ أفضل إجابة ..

الحمد لله الذي بنعمته تتم الصالحات متنساش دعواتك للعبد الفقير إلى الله تقبل تحيات أخوك ياسر ..

استخد الكود ببساطة شديدة في الفورم Private Sub UserForm_Initialize() Dim MyRange As Range, X Set MyRange = Feuil1.Range("B3:B15" & Cells(Rows.Count, 1).End(xlUp).Row) X = Application.WorksheetFunction.CountIf(MyRange, "?*") Me.TextBox1.Value = X End Sub

بارك الله فيك أخي الحبيب سليم استخدام رائع للمعادلات

منور الموضوع أخي الفاضل عبد العزيز إن شاء الله تكون استفدت من الفيديو ..راجع موضوعك وراجع الفيديو ...عشان تعرف إن الدنيا قريبة من بعضها تقبل درسي

أخي الحبيب عبد العزيز هل اطلعت على درس الصيد ؟ أم أنك لم تتطلع عليه ؟ وإذا كنت قد اطلعت عليه ولم تدرك شيئا منه يرجى إفادتنا بالجزء المبهم حتى نستطيع أن نرتقي سوياً تقبل صيدي وصنارتي .. منتظرين السمك على ايديك

الأروع هو تشريفك للموضوع أخي الحبيب سليم بارك الله فيك تقبل تحياتي

الأخ الفاضل عبد العزيز إليك الملف المرفق وعلى فكرة طلبك يأكد لي إن اللي بعمله ملوش لازمه .راجع الموضوع اللي لسه نازل طازه http://www.officena.net/ib/index.php?showtopic=60536 عشان تتأكد إني عندي حق .. فين الحكمة اللي بتقول (لا تعطني سمكة ولكن علمني كيف أصطاد) .. علمناكم الصيد ..بس يبدو إنكم مش هاويين صيد .. Convert Formula To VBA.rar

أخي الحبيب أحمد إليك الملف التالي ..وهذا يشمل كل أوراق العمل للنطاق المستخدم فقط .حيث يتم تعطيل الـ Scroll Areas إلا في الخلايا المستخدمة فقط يوضع الكود التالي في موديول Sub SetAllScrollAreas() Dim WS As Worksheet For Each WS In ActiveWorkbook.Worksheets WS.ScrollArea = WS.UsedRange.Address Next WS End Sub ثم يوضع السطر التالي في حدث المصنف Private Sub Workbook_Open() SetAllScrollAreas End Sub تقبل تحياتي Set Scroll Areas In All Sheets.rar