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

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

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد ..................................................... ********************** نقدم اليوم درسا فى شرح كيفية استخدام conditional formatting فى البحث وتظليل الخليه التى تطابق نطاق البحث كما فى الصوره كما تشاهد فى الصوره اننا لدينا جدول بيانات به مجموعه من الاعمده وان الخليه D14 مظلله باللون الاصفر وذلك لانها كما يتضح فى الصوره تطابق الخليه C6 ولمعرفة كيفية تنفيذ ذلك تابع الشرح فى الصوره الاتيه قم بانشاء جدول بيانات كما فى الصوره الاولى ثم قم بتحديد الجدول بالكامل بداية من B8:E14 ثم اتبع الشرح الموجود فى الصوره =AND($C$6<>"",$C$6=B8) الان قم بتطبيق المثال على ملف من عندك وقم بتغير الاسم الموجود فى الخليه C6 الى اى اسم موجود داخل الجدول وستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى. ........................................... الدرس القادم. كيفية استخدام conditional formatting فى البحث وتظليل السطر الخاص بالخليه التى تطابق نطاق البحث

أخي الكريم جرب الكود بهذا الشكل : Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Dim T As Long Set ws = Worksheets("Feuil1") iRow = ws.Cells(Rows.Count, 8).End(xlUp).Row + 1 ws.Cells(iRow, 8).Value = Me.TextBox1.Value ws.Cells(iRow, 9).Value = Me.TextBox2.Value ws.Cells(iRow, 10).Value = Me.TextBox3.Value ws.Cells(iRow, 11).Value = Me.TextBox4.Value ws.Cells(iRow, 12).Value = Me.TextBox5.Value Me.TextBox1 = "" Me.TextBox2 = "" Me.TextBox3 = "" Me.TextBox4 = "" Me.TextBox5 = "" T = ws.Cells(Rows.Count, 8).End(xlUp).Row TextBox1 = Val(Cells(T, 8)) + 1 Me.TextBox1.SetFocus End Sub Private Sub UserForm_activate() Dim ws As Worksheet Dim T As Long Set ws = Worksheets("Feuil1") T = ws.Cells(Rows.Count, 8).End(xlUp).Row TextBox1 = Val(Cells(T, 8)) + 1 Me.TextBox2.SetFocus End Sub تقبل تحياتي

الأخ الحبيب رجب جاويش تسلم على المعادلة الجميلة الأخ الحبيب علاء رسلان معادلة في منتهى الجمال الأخ السائل أحمد حبيبه إليك الملف التالي .. فيه حل كل من الأخ رجب جاويش و الأخ علاء رسلان ، إضافة إلى معادلة صفيف أخرى ومعادلة عادية أخرى .. يعني حلين جنب الحلين .. بس متنسناش بدعوتين Show Price Based On Two Conditions.rar

ربما كان المطلوب Book11 salim.rar

السلام عليكم تفضل أخى معادله بشروط.rar

بسم الله الرحمن الرحيم لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها &&&&&&&&&&& فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم ****************** بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok /////////////////// طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك $$$$$$$$$$$$$$$$ و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح فيديو لشرح كيفية استعمال الأداة ولا ينقصني سوى دعاؤكم ينصح بالاشتراك في القناة وتفعيل جرس التنبيه ليصلكم كل جديد ومفيد وقت صدوره MasNoPass.rar New_MasNoPass.rar

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى Split Workbook في مجلد .. المصنف يحتوي على 4 أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result) في ورقة العمل المسماة Main يوجد زر أمر ، بالنقر عليه يتم عمل الكود ، ويبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ثم يقوم الكود بإغلاقه .. أسطر الكود مشروحة داخل الكود .. Sub SplitWorkbook() 'تعريف المتغير من النوع النصي Dim xPath As String 'تعريف المتغير من النوع ورقة عمل Dim SH As Worksheet 'تعيين المتغير لتساوي قيمته مسار المصنف الحالي xPath = Application.ActiveWorkbook.Path 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each SH In ThisWorkbook.Sheets 'نسخ ورقة العمل SH.Copy 'حفظ ورقة العمل بنفس الاسم ونفس المسار Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'إغلاق المصنف الجديد والذي أصبح هو المصنف النشط Application.ActiveWorkbook.Close False 'الانتقال لورقة العمل التالية Next 'تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub * ملحوظة : يجب ألا تكون هناك ورقة عمل بنفس اسم المصنف Split Workbook ، حتى لا يحدث مشكلة أثناء تنفيذ الكود أو لتجنب هذه المشكلة يمكن إضافة هذا السطر On Error Resume Next أرجو أن ينال الملف رضاكم ، وتستفيدوا منه في المقام الأول ... دمتم في رعاية الله وطاعته .. وهذا رابط لقناتي على اليوتيوب (في انتظار آرائكم حول القناة كبداية لمرحلة جديدة ..) My Channel أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا

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

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

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

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

وقع سهوااً هذا الامر تم معالجة الخطأ ترحيل salim 1.rar

=AND($C$6<>"";OR($C$6=$B8:$E8)) السلام عليكم سجلت الكود بالمشاركة و لكن لا أدرى لما يظهر بشكل غير صحيح من اليمين لليسار و الاقواس مختلطة عموما اخذته كوبى بيست فكتب بشكل صحيح فى الاكسيل أخذت منى الكثير من الوقت لمحاولة جعلها بشكل صحيح بلا جدوى .. ترى ما السبب . الله أعلم . سبقتنى يا أخ ياسر و أنا أحاول و اتضح لى انها لا تظهر بالمعاينة بشكل سليم و عند اعتماد المشاركة ظهرت بشكل صحيح .. دمتم بخير و أعزكم الله .

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

بارك الله فيك أستاذى الفاضل سليم أخى اكرامى وهذا حل آخر للترحيل والفلترة بالأكواد تحياتى ترحيل2.rar

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

الأخ الحبيب محبوب تعبت والله ..بقالي ساعتين عشان أعمل الكود الملعبك ده بس الحمد لله بفضل الله تم المطلوب .. افتح ملف "الأقساط الشهرية 2015" ستجد الكود بداخله .. في ورقة الفهرس يوجد زر امر انقر عليه لتنفيذ الكود .. Sub YasserKhalil() Dim WBK As Workbook Dim SH As Worksheet, WS As Worksheet, Cell As Range Application.ScreenUpdating = False Application.DisplayAlerts = False Set WBK = Workbooks.Open(ThisWorkbook.Path & "\حسابات العملاء 1.xlsx") For Each SH In ThisWorkbook.Sheets If SH.Name <> "الفهرس" Then SH.Range("C6:F99,H6:I99").ClearContents For Each WS In WBK.Sheets If WS.Name <> "الفهرس الرئيسى" Then With WS If IsEmpty(.Range("A6")) Then GoTo 1 For Each Cell In .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp).Row) If Month(Cell.Value) = MonthNumber(SH.Name) Then SH.Range("H" & SH.Cells(99, 8).End(xlUp).Row + 1) = Cell.Value SH.Range("C" & SH.Cells(99, 3).End(xlUp).Row + 1) = .Range("C2").Value SH.Range("E" & SH.Cells(99, 5).End(xlUp).Row + 1) = Cell.Offset(, 2) SH.Range("F" & SH.Cells(99, 6).End(xlUp).Row + 1) = Cell.Offset(, 3) SH.Range("I" & SH.Cells(99, 9).End(xlUp).Row + 1) = .Range("M8").Value End If Next Cell 1 End With End If Next WS End If Next SH WBK.Close SaveChanges:=False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Function MonthNumber(MonthName As Variant) As Variant Select Case MonthName Case "": MonthNumber = "" Case "يناير": MonthNumber = 1 Case "فبراير": MonthNumber = 2 Case "مارس": MonthNumber = 3 Case "ابريل": MonthNumber = 4 Case "مايو": MonthNumber = 5 Case "يونيو": MonthNumber = 6 Case "يوليو": MonthNumber = 7 Case "اغسطس": MonthNumber = 8 Case "سبتمبر": MonthNumber = 9 Case "اكتوبر": MonthNumber = 10 Case "نوفمبر": MonthNumber = 11 Case "ديسمبر": MonthNumber = 12 End Select End Function تقبل تحياتي ولا تنسى أن تحدد المشاركة إذا أعجتك الإجابة كأفضل إجابة (ساعتين مني قصاد ثانيتين منك .. أظن كدا عدل والحمد لله) Three Loops In Two Excel Files By YasserKhalil.rar

الأخ الكريم صلاح الدين جرب الكود التالي وشوف هل يؤدي الغرض أم لا Sub ss() Dim LR As Long Application.ScreenUpdating = False Workbooks.Open Filename:="D:\z.xls" With Workbooks("z") .Sheets("total").Range("A2:P1000").ClearContents With Workbooks("تفاصيل").Sheets("تفاصيل") .Activate .Range("A2:P" & .Cells(Rows.Count, 2).End(xlUp).Row).Copy End With LR = .Sheets("total").Range("A1").CurrentRegion.Rows.Count + 1 .Sheets("total").Range("A" & LR).PasteSpecial xlPasteValues .Save .Close End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتي

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

حيا الله أخوي أبوآلآء بالنسبة لي انا شخصيا ، انت عضو شرف وعلى راسي من زمان بالبركة إن شاء الله جعفر

وعليكم السلام ورحمة الله وبركاته فيما يتعلق بالإجابة على السؤال الأول... لكي يتم الطباعة على الوجهين يجب أن تكون أبعاد الهوامش من الأيمن والأيسر متساوي (شرط أساسي) مثل 2 سم أيمن و2سم أيسر، بذلك سيكون النص في المنتصف ورقم الصفحة مطابق للصفحة الخلفية لها. بالنسبة للسؤال الثاني: لكي ترتبط الصورة بالنص قبلها أو بعدها يجب عند إدراج الصورة والضغط عليها الذهاب إلى قائمة تنسيق واختاري التفاف النص ومن ثَمَّ اختاري (سطري مع النص)، بذلك ستُحل مشكلة أن تذهب الصورة لمكان آخر. جواب السؤال الثالث: جمع بيانات في ملف واحد أفضل من أن يكون في عدة ملفات متفرقة، ولكن إذا كان كل ملف له نمط يختلف عن الآخر فعند جمعهم في ملف واحد سيتغير التنسيق بناءً على الملف المنقول إليه، وعيله يجب نسخ الملف جميعها في ملف واحد، وعند الملف الموجود به صفحات عرضية يمكن تقسيم الملف إلى عدة مقاطع، وذلك بالذهاب إلى قائمة تخطيط الصفحة ومن ثم التوجه إلى قائمة فواصل واختاري (فواصل المقاطع) الصفحة التالية، حينها يمكنك التحكم بالمقطع وجعله عرضي أو طولي أو أي شيء تريدنه. تمنياتنا لكم بالتوفيق. أرجو أن أكون قد أجبت عن المطلوب. دمتم بخير

طيب وايش السبب ياسيد رمهان؟؟ ولو جعلنا الحقل رقم وصار الترقيم هكذا:2015001 بدلا من الشرطة المائلة هل سنتجاوز المشكلة.. اخي راعي الغنم المشكلة ان السيناريو او الخوارزمية هي عد السجلات ثم اضافة 1 وهنا سيتكرر الرقم كما ذكرت في التنبيه فعدد السجلات اصبح 2 بعد الحذف وعند اضافة 1 ستكون القيمة 3 والقيمة 3 موجودة سابقا للسجل الثالث قبل الحذف وهو السجل الثاني بعد الحذف والافضل اخذ اكبر قيمة ثم اضافة 1 وهي خوارزمية الترقيم التلقائي في الاكسس وهنا ستظهر مشكلة الرقم المحذوف لا يعود في القائمة ! لذلك ينصح دائما بان يكون عمود الربط في العلاقات من نوع ترقيم تلقائي ! اما ظهور الارقام الوظيفية بشكل معين فالافضل ان تكون عملية حسابية وتظهر فقط في النماذج والتقارير وقد تكون عن طريق خاصية التنسيق والخاصة بظهور شكل المحتوى في النماذج والتقارير ! بالتوفيق

فعلا الجدول يوجد به لكل اب ابن واحد وهذا الذي يظهر في النموذج يبدو حسب فهمي ان البيانات ناقصة في الجدول ؟ آمل التوضيح

وعليكم السلام ورحمة الله الكود التالي بعد الكتابة فقط ضعه في حدث بعد تحديث الحقل Textbox Textbox = StrConv(Textbox, vbProperCase)

شرف مباركتكم أعظم أستاذي ومعلمي يوسف خالص تحياتي لشخصك الكريم

حول المرفق الى صيغة mdb تحصل على تفاعل اكبر

=IIf( IsNull([textfind]);[CompanyName];Replace([CompanyName];[textfind];"<font color=red>" & [textfind] & "</font>")) كما هو الحال مع كود الاستاذ رمهان لا جديد ولا ينطبق الا على عمود واحد فقط وعند التغير لاكثر من عمود #type #error

لا فرق اطلاقاً لكن اذا كنت تريد استعمال else يستحسن استعمال الامر Cut بدل Copy اليك كيف يكون ذلك Sub reset() Sheets("æÑÞÉ1").Unprotect lrsh2 = Sheets("sheet2").Cells(Rows.Count, 4).End(xlUp).Row + 1 lrd = Cells(Rows.Count, 4).End(xlUp).Row '''''''''''''''''''''''''''''''''''' answer1 = MsgBox("åá ÊÑíÏ ãÓÍ ÇáÈíÇäÇÊ Çã äÞáåÇ Çáì æÑÞÉ ÇÎÑì ÇÖÛØ ßáÇ ááãÓÍ äÚã ááäÞá ", vbYesNo) If answer1 = vbYes Then Range("d2:g" & lrd).Cut Sheets("sheet2").Cells(lrsh2, 4) Application.CutCopyMode = False Else Range("d2:g" & lrd).ClearContents End If Range("b3").Select Sheets("æÑÞÉ1").Protect End Sub

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

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

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

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

الآن فهمت لماذا قلت أن دالة vlookup ربما لا تفى بالغرض، لأن Code Item مكررأكثر من مرة وكل مرة بنتيجة مختلفة، فى تلك الحالة سوف نستخدم دالة vlook2all وهى من ابداع أعضاء المنتدى وتستخدم لهذا الغرض، أنا للأسف لن أستطيع حلها الآن لأننى مشغول للغاية، لكن أعدك أول ما أنتهى من عملى سوف أبدأ فيها فورا بمشيئة الله وغالبا ما سيكون غدا على الأكثر إن شاء الله

تم تجربة الملف الأخير يعمل بنجاح

بعد أذن استاذى الحبيب ياسر خليل من باب اثراء الموضوع والتنوع جرب المرفق ربما يلبى طلبك تم التطبيق فقط على Customer Name كما طلبت فى المشاركة 4 تقبل تحياتى Customers_Form.zip

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

تفضل حل آخر أخى لاثراء الموضوع المستحقون.rar

جرب هذا الشيء المستحقون.rar

تحياتنا لشخصكم الكريم و تمنياتنا لك بوافر الصحة

المعلم الكبيرالأســـــتاذ الفاضل / رؤوف " أبا الأكسيل " نورت الدنيا كلها ونورت جامعتنا المباركة شرف لنا أن تكون أخــــا كبيرا لنا ومعلما جليلا نحتذى به فشرف لنا أن نتتلمذ ونرتوى من بحرعلمكم الفياض أسأل الله تعالى أن يمتعكم بالصحة والعافية تقبل وافراحترامى وتقديرى وجزاكم الله خيرا

اخانا الفاضل رؤوف ابا الاكسيل يسعدنا ويشرفنا جميعا ان تكون معنا وسط اولادك-اخوانك ادام الله عليك الصحه والعافيه وزادك من فضله وعلمه

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

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

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

تم ارفاق الملف مرة أخرى إنشاء شريط أدوات لطباعة التقارير .rar

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

لا يمكن العثور على الملف الرجاء رفع الملف

شكرا أخى الكريم وجارى التحميل