نجوم المشاركات

السلام عليكم ورحمة الله وبركاته لإثراء الموضوع وبعد اذن اخي الاستاذ حمادة عمر جرب الكود التالي للذهاب الي اخر خلية في الورقة المسمى Daily Sub FindFirstCellNextRow() Application.Goto Sheets("" & "Daily").Cells(Sheets("" & "Daily").Cells.SpecialCells(11).Row, 1) End Sub او الكود التالي لاختيار ورقة ثم الذهاب الي اخر خلية فيها Sub FindFirstCellNextRow() Application.CommandBars("Workbook Tabs").ShowPopup Cells(Cells.SpecialCells(11).Row, 1).Activate End Sub في أمان الله

السلام وعليكم ورحمة الله وبركاتة الاخوة الاساتذة الافاضل هذا طلبى الاول من اساتذة الاكسل العباقرة ارجو منكم الاطلاع على الملف المرفق ومساعدتى فى عمل برنامج متكامل لمزارع اغنام التسمين وهذة الفكرة التى اضعها بين ايديكم ارجو تطويرها باستخدام v.b حتى تستوعب عام كامل من المدخلات فارجو منكم مساعدتى فى اتمام هذه الفكرة حتى تعم الفائدة ولسيادتكم جزيل الشكر y_algazar2010@yahoo.com ودة ايميلى للمراسلة او لمزيد من التفاصيل وجزاكم الله خيرا على هذا المجهود الرائع

عدلت لك الملف ليتناسب مع طلبك لعله يكون المطلوب - وتم تطبيق التغيير علي الملف بالكامل نموذج_h.xls

السلام عليكم الاخ الكريم / إبراهيم ابوليله اليك اخي الكريم المطلوب بالمرفق ارجو ان يفي بطلبك باستخدام كود بسيط لعمل ذلك مع موديل التفقيط بالملف Sub sama() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("Sheet1") iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row ws.Cells(iRow - 1, 2).Value = NoToTxt(ws.Cells(iRow - 1, 1).Value, "قرشاً", "جنيهاً") End Sub تفقيط_H+.rar

السلام عليكم و رحمة الله و بركاته النموذج الرئيسي يحوي بيانات الاباء من الجدول father النموذج الفرعي يحوي بيانات الابناء من الجدول son ارغب عندما اقوم بادخال البيانات من خلال النموذج main_frm ان يقوم بادخال البيانات في جدول الاباء و ان يقوم بادخال الرقم الوطني و الاسم الاول و الاسم الاخير فقط في جدول الابناء الهدف منع ادخال احد الاباء في جدول الابناء مثال : العائلة1 : اسم رب الاسرة : محمد عبدالله المروان الرقم الوطني:1006007523 اسم الابن: عبدالرحمن محمد المروان الرقم الوطني: 1006007527 العائلة2 : اسم رب الاسرة: عبد الرحمن محمد المروان الرقم الوطني: 1006007527 لنفترض انني ادخلت بيانات العائلة1 ثم قمت بمحاولة لادخال بيانات العائلة2 ... ارغب ان يعطيني رسالة خطأ ان رب الاسرة مدخل في العائلة رقم 1006007523 و بالعكس ايضا في حال محاولة ادخال ابن و قد ادخل سابقا في بيانات رب الاسرة و شكرا new.rar

السلام عليكم في هذه الدالة و لكن ان تساوي قيمتان تعطيهما نفس المركز . =RANK.EQ(S4,$S$4:$S$23,0) تحياتي

السلام عليكم جرب المرفق ملاحظة : ربما كان من الافضل ان تفصل كلمة فاتورة او سند في عمود و رقمهما في عمود اخر . تحياتي سجلات الحساب1+.rar

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

السلام عليكم الاستاذ العزيز / mahmoud-lee بارك الله فيك استخدام امثل لدالات الاكسيل في القوائم المنسدلة وبالفعل هي قوائم جديدة بحق انت (( عميد المعادلات )) جزاك الله خيرا

السلام عليكم الاخ الكريم / كرتوتي طبعا بعد ردود الحبيب الاستاذ / ابو حنين فلا يوجد ردود ... جزاه الله خيرا وجزيل الشكر للاخ / حسين العصلوجي ... حيث انني معجب بردوده كثيرا ... جزاه الله خيرا وعلي حسب فهمي للطلب سنقوم بزيادة جزء بسيط علي الكود الخاص بـ Private Sub UserForm_activate() ليكون كالتالي Private Sub UserForm_activate() With Sheets("سجل البنك") For r = 2 To 12 ComboBox2.AddItem .Range("O" & r) If .Range("P" & r) <> "" Then ComboBox3.AddItem .Range("P" & r) ComboBox4.AddItem .Range("q" & r) End If Next r End With '======================= ' هذا هو الجزء المضاف للكود لعمل الترقيم التلقائي في الفورم في تكست بوكس 1 ActiveSheet.Select T = Cells(Rows.Count, 1).End(xlUp).Row TextBox1 = Val(Cells(T, 1)) + 1 End Sub واليك الملف المرفق به التعديل المطلوب ... ارجو ان يفي بطلبك وفي انتظار ردك جزاك الله خيرا سجلات الحساب1.rar

الأخ والزميل / إبراهيم ابوليلة مبروك .. المنتدى لن ينسى رواده ..

تابع الشرح انتهى الشرح ارجو ان يكون هذا العمل خالصا لوجه الله تعالى وَقُلْ رَبِّ زِدْنِي عِلْمًا

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

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

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

شكرا للاخ الكريم على الرد السريع لكنه لم يفي بالغرض لان بذلك مثلا لو 237.96 هتتقرب الى 237.75 يعني الراجل بدل ما يروح عليه قرش واحد هيروح عليه 21 قرش انا عاوز دالة تقرب الرقم الاول للكسر الى 5 في حالة كان اكبر من خمسة مثلا 235.79 تقرب الى 235.75 وتحول الكسر الى صفر في حالة الكسر كان بين 1 الى 4 مثلا 235.84 تقرب الى 235.80 وطبعا اذا كان 5 يفضل كما هو