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

بسم الله ما شاء الله اللهم في هذه الأيام المباركات اغفر و سامح و تجاوز عن سيئات كل من ساهم و يساهم في حل مشكلات الآخرين جزاكم الله خيراً

السلام عليكم و رمضان كريم بالاضافةالى ما تقدم به الاخ الغالي ياسر احببت ان اورد معادلتين اضافيتين زيادة في الثراء الموضوع: المعادلة الاولى: =REPLACE(B1,1,FIND("-",B1),"") الثانية =SUBSTITUTE(B1,MID(B1,1,FIND("-",B1)),"") في كلا المعادلتين افترض ان اسم الصنف و رقمة في الخلية B1

أخي الكريم محمد أهلاً ومرحباً بك في المنتدى بين إخوانك يرجى تغيير اسم الظهور للغة العربية جرب المعادلة التالية .. ويرجى فيما بعد إرفاق الملف نفسه وليس صورة للعمل عليه ، ولمزيد من كيفية التعامل مع المنتدى يرجى زيارة رابط التوجيهات في الموضوعات المثبتة في صدر المنتدى =TRIM(MID(A1,FIND("-",A1)+1,LEN(A1))) تقبل الله منا ومنكم صالح الأعمال

كل عام وأنت بخير أخي الكريم * لا يوجد مرفق ثان اسمه مستخلص نهائي * وهل المستخلص الجديد سيكون ورقة عمل (شيت) بنفس الملف أم ملفا جديدا؟ * برجاء تحديد خانة الجاري والسابق من خلال اسم الخلايا يعني A1, B2 وهكذا يفضل عرض المطلوب بكل تفاصيله بأسلوب بسيط حتى يتمكن الزملاء من مساعدتك والوقت الذي يقضى في تفسير المطلوب يمكن أن يتم تنفيذه فيه بل وأقصر

الأخ mohadin السلام عليكم يمكنك وضع الدالة ضمن قوسين من شريط الأدوات السفلي المشار له <> كود =IF(TEXT(hom!$N6;0)="true";INDEX($B$7;(MATCH($B6;hom!$B$6:$B$4785;)))) قمت بذلك رغبة بمساعدتك للعمل في المرات القادمة برجاء تعديل اسمك للعربية التي هي اللغة الأم للغات العالم وكذلك حضارتنا أم حضارات العالم. والسلام عليكم ورحمة الله وبركاته.

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

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

زيادة في اثرء الموضوع يمكن استعمال اح هذين الكودين: Sub salim() i = 2 Do While Range("a" & i) <> "" Range("B" & i) = "=" & Range("a" & i) i = i + 1 Loop End Sub

السلام عليكم ورحمة الله محاولة بسيطة في الاكسل ارجوا ان تنال اعجابكم الله اكبر.rar

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

بارك الله فيك وجزاك الله خيراً أخي الغالي زوهير إن شاء الله ننتظر المزيد من إبداعاتك

السلام عليكم و رحمة الله وبركاته رمضان كريم أستاذي الفاضل ياسر خليل فعلاً و الله هذا ما فعلته من مكتبتي الخاصة - تصدير - فتح ملف أبا اسماعيل - استيراد - تغيير بعض الكلمات في محرر الأكواد تحياتي / عبد العزيز البسكري

اتفضل يا اخى الكريم المثال على اوفيس 2003 no ctrl p2.rar

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

و عليكم السلام و رحمة الله و بركاته نرحب بك كعضو جديد بيننا و نستميحك عذرا بقراءة هذا الموضوع http://www.officena.net/ib/index.php?showtopic=60147 التوجيهات للأعضاء الجدد و ستستغرق فى قرائته حوالى 5 دقائق فقط و توفر بعد ذلك العديد من الدقائق الثمينة لك و لنا جميعا و فضلا لا أمرا يرجى تغيير الأسم الى اللغة العربية ، بخصوص ملفك المرفق هناك شئ غير مضبوط بالصيغ الموجودة بالورقة ( المطابقة اليومية ) عمود الأنتاج اليومى على سبيل المثال لا الحصر و كذلك طلبك مبهم و شرحك محير يرجى ذكر ورقة المصدر و ورقة الهدف ( التقارير اليومى - المطابقة اليومية ) و اضافة بعض البيانات و النتائج المتوقعة و كذلك تحديد لنطاق العمل ( شهر واحد للتقارير اليومى ام مفتوح - يوم واحد أم فترة من الى ) كلما كان طلبك دقيقا و موضح بصورة مبسطة كلما كان أفضل منعا للاستفسار لمعرفة مرادك و تلبية طلبك بطريقة صحيحة ، ربما كان هناك من هو أقدر على سبر غوامض طلبك و الى ذلك يرجى موافاتنا بمزيد من الايضاح ليتمكن أحد من مساعدتك بشكل صحيح و مرضى .. دمت بخير و أعزك الله .

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

بعد اذن اخى محمد ......................... الاخت رنده فقط ضعى هذه المعادله فى الخليه c10 فى شيت ten ثم قومى بسحب المعادله =IF($B10="","",INDEX(hom!$C$6:$C$63,MATCH(ten!$B10,hom!$B$6:$B$63,0))) ثم ضعى هذه المعادله فى الخليه f10 فى شيت ten ثم قومى بسحب المعادله ...................................... هذه محاوله منى على حسب فهمى للمطلوب ................... تقبلو تحياتى

اخى محمد حسن بالفعل اعتزر على الخطأ الذى حدث وقد تم التعديل فى المشاركه رقم 2 تقبل تحياتى

إذهب إلى " قائمة " insert " ثم " name" ثم " define " ثم فى " refers to " ضع هذه الصيغة = EVALUATE($A2) وفى تسمية النطاق " names in workbook " وضعت أسم " gamal " تستطيع أنت تسميتة ماشئت وفى الخلية المراد أظهار النتيجة بها ضع هذه المعادلة =gamal وهو أسم النطاق الذى سبق تسميتة ضرب رقميين 2.rar

حل رائع أستاذ ى الفاضل " ياسر خليل " وأسمحوا لى المشاركة بمعادلتين لتحقيق نفس النتيجة المعادلة الأولى: =LEFT(A2,FIND("*",A2)-1)*RIGHT(A2,FIND("*",A2)-1) ضرب رقمين.rar

قبل أن تطلب الشرح .. هل جربت الكود أخي الفاضل وأدى الغرض أم لا؟ هكذا يجب أن يكون الرد !

أخي الكريم سليم جرب الكود بهذا الشكل Sub DoIt() Dim Cell As Range For Each Cell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) Cell.Offset(, 1) = "=" & Cell.Value Next Cell End Sub إن شاء الله تظبط معاك تقبل تحياتي

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

اخى ابو الياس هذه محاوله منى اتمنى ان تفى بالغرض اذا كان المحاوله ناجحه يرجى قفل الموضوع باختيار افضل اجابه ولا تنسى ان تضغط على محتوى اعجبنى تقبل تحياتى لست بوكس.rar

اخينا عمر ومشاركة مع الاستاذ مارد هل هذا ماتريد؟ جرب واعطنا ملاحظتك للتعديل مع العلم انني افضل ان تكون في جدول مستقل مرتبط وبه عمودي الرقم والتواريخ ! ملاحظة : تم اضافة عمودين وذلك لمعرفة كل سجل وسجلاته المفرودة فقد تحتاجها في نماذج فرعية او تقارير! Set rs0 = CurrentDb.OpenRecordset("select distinct id from AddNwee order by id"): rs0.MoveFirst Do While Not rs0.EOF rs1 = CurrentDb.OpenRecordset("select * from AddNwee where id='" & rs0(0) & "' order by Daterr").GetRows(DCount("*", "AddNwee", "id='" & rs0(0) & "'")) DoCmd.SetWarnings False For i = LBound(rs1) To UBound(rs1, 2) On Error Resume Next xn = 1 For ii = Year(rs1(3, i)) To Year(rs1(3, i + 1)) - 1 DoCmd.RunSQL "insert into AddNwee(id,Degr,Daterr,Reasonn,i_d_p) values('" & rs1(1, i) & "','" & rs1(2, i) & "',#" & DateAdd("yyyy", xn, rs1(3, i)) & "#,'" & rs1(4, i) & "'," & rs1(0, i) & ")" xn = xn + 1 Next ii Next i rs0.MoveNext Loop DoCmd.SetWarnings True بالتوفيق db1.rar

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

واياكم الله يسلمك ويخليك .. وشكرا لك على سؤالك عني في الفترة السابقة انت والاستاذ جمال دغيدي