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

السلام عليكم ورحمة الله تعالى وبركاته مقدمة : لكى ننتقل من الخلية A1 مثلا الى آخر خلية بها بيانات فى نفس الصف الاول يكون بالطريقة الاتية : Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column).Select لكى ننتقل من الخلية A1 مثلا الى آخر خلية بها بيانات فى نفس العمود الاول يكون بالطريقة الاتية : Range("A" & Cells.Rows.Count).End(xlUp).Select ماذا لو كنا لا ندرى فى أى خلية نحن ...... اذن الانتقال سيكون من الخلية النشطة الى آخر خلية بها بيانات فى صفها أو عمود ها كيف نستخدم الخلية النشطة فى الوصول الى آخر خلية بها بيانات فى صفها أو عمود ها ؟ قبل الاجابة على السؤال نحاول نفهم الآتى : طبعا احنا عارفين أن اى خلية ليها صف وليها عمود ماشى لو عندنا الخلية النشطة هى $A$1 كيف نحصل على رقم الصف وكيف نحصل على اسم العمود من التركيبة $A$1 علامتى الدولار والحرف والرقم سنعتمد على الدالة MID وبنيتها كالتالى ( النص الذى سنستخرج منه + نقطة البداية + عدد الاحرف المطلوبة ) ( MID( text ; start position ; Number of characters وظيفتها استخلاص جزء من نص بداية من نقطة محددة فيه وعدد محدد من الحروف ضع النص $A$1 فى خلية ولتكن A1 نحصل على رقم الصف بالمعادلة =MID(A1; 4; 1048576) نحصل على اسم العمود بالمعادلة =MID(A1; 2; 1) المعادلة دى ستعطيك اسم العمود وهو A كيف نستفيد من ذلك فى الانتقال من الخلية النشطة الى آخر خلية بها بيانات فى صف أو عمود الخلية النشطة ؟ بسيطة : بص على سطر الكود الأول فيه الرقم 1 ومكرر مرتين ويمثل رقم الصف تعالى نشيل رقم الصف ونضع ما يساويه بالمعادلات Cells(Mid(ActiveCell.Address, 4, 1048576), Cells(Mid(ActiveCell.Address, 4, 1048576), Columns.Count).End(xlToLeft).Column).Select هذا السطر يستخدم فى الانتقال من الخلية النشطة الى آخر خلية بها بيانات فى نفس صف الخلية النشطة بص كمان على سطر الكود الثانى ستجد فيه "A" اسم العمود شيل اسم العمود وضع المعادلة التى هتطلع لنا اسم العمود Range(Mid(ActiveCell.Address, 2, 1) & Cells.Rows.Count).End(xlUp).Select هذا السطر يستخدم فى الانتقال من الخلية النشطة الى آخر خلية بها بيانات فى نفس عمود الخلية النشطة ناس هتقول ايه فائدة ده كله ؟ هقوله جرب المرفق التالى وأنت تعرف ممكن يعملوا ايه ! ملحوظة 1 : ده مش معناه أن السطرين دول وبس ممكن يعملوا ما فى المرفق ملحوظة 2 : فى المرفق تم اضافة الخاصية Offset على السطرين . find last entry in Rows and columns by mokhtar .rar والسلام عليكم ورحمة الله تعالى وبركاته

انا قبلت التحدي و اليك المعادلة اللازمة لهذا الشيء انسخها الى الخلية F2 واسحب نزولاً =SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*1+(SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*E2)

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

الأخ الكريم اسكندراني قمت بشرح الكود بشكل سريع عله يفيدك في التعديل كما قمت بتغيير الأرقام بأسماء الأعمدة المشار إليها لتسهيل عملية التعديل عليك حتى تستطيع أن تعدل على ملفك بنفسك Sub Ali_Tr() 'تعريف المتغيرات Dim Shr As Worksheet Dim Wsh As Worksheet Dim Rng As Range Dim LR, II, Rww%, IM, RW Dim MOf, Amel, AGra Dim MOf1, Amel1, AGra1 'تعيين قيمة للمتغير ليساوي ورقة العمل الأولى المطلوب العمل عليها Set Wsh = Sheet1 With Wsh 'تعيين آخر صف به بيانات في ورقة العمل الأولى LR = .Cells(.Rows.Count, 1).End(xlUp).Row 'إلى آخر خلية بها بيانات في العمود الخامس [D3] مسح النطاق بدايةً من الخلية .Range(.Cells(3, "D"), .Cells(LR, "E")).ClearContents End With 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each Shr In ThisWorkbook.Worksheets 'إذا لم يكن اسم ورقة العمل يساوي اسم ورقة العمل الأولى يتم تنفيذ الأسطر التالية 'أي أنه يتم استثناء ورقة العمل الأولى من تلك الأسطر بينما تنفذ الأسطر على بقية الأوراق If Not Shr.Name = Wsh.Name Then 'بدء التعامل مع ورقة العمل التي انطبق عليها الشرط بأنها ليست الورقة الأولى With Shr 'حلقة تكرارية من الصف الثالث إلى آخر صف به بيانات For II = 3 To .Cells(.Rows.Count, 1).End(xlUp).Row 'إذا لم تكن الخلية في العمود الرابع في الصف المحدد في الحلقة التكرارية فارغة 'فإذا لم تكن فارغة يتم تنفيذ الأسطر التالية [D] أي أنه يتم اختبار الخلية في العمود 'أما إذا كانت فارغة يتم الانتقال للصف التالي لاختبار الخلية التالية في العمود الرابع If .Cells(II, "D") <> "" Then 'تعيين قيمة للمتغير ليساوي رقم الصف Rww = .Cells(II, "B").Row 'حلقة تكرارية من الصف الثالث إلى آخر صف به بيانات في الورقة الأولى For IM = 3 To Wsh.Cells(Wsh.Rows.Count, 1).End(xlUp).Row 'إذا كانت الخلية في العمود الثاني في أوراق الموظفين تساوي الخلية في العمود الثاني 'أي أنه يتم المقارنة بين اسم العميل في ورقة الموظف والورقة الأولى فإذا تطابق الاسم 'ينفذ التالي If .Cells(Rww, "B") = Wsh.Cells(IM, "B") Then 'إذا كانت الخلية في العمود الرابع في الورقة الأولى ليست فارغة يتم تنفيذ التالي If Wsh.Cells(IM, "D") = "" Then 'تعيين قيمة للمتغير ليساوي رقم الصف الذي يحوي اسم العميل من الورقة الأولى RW = Wsh.Cells(IM, "B").Row 'الخلية في العمود الرابع في الصف الذي يحوي اسم العميل في الورقة الأولى يساوي الخلية في العمود الرابع في الصف المحدد في الحلقة التكرارية Wsh.Cells(RW, "D") = .Cells(IM, "D") 'الخلية في العمود الخامس في الصف الذي يحوي اسم العميل في الورقة الأولى يساوي اسم ورقة عمل الموظف Wsh.Cells(RW, "E") = .Name 'أما إذا كانت الخلية في العمود الرابع في الأولى تساوي قيمة الخلية في العمود الرابع في ورقة الموظف ElseIf Wsh.Cells(IM, "D") = .Cells(Rww, "D") Then 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الخامس ليحمل اسم الموظف 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الثاني ليحمل اسم العميل MOf1 = .Cells(IM, "E"): Amel1 = .Cells(IM, "B") 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الرابع ليحمل الإجراء 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الخامس في الورقة الأولى ليحمل اسم الموظف AGra1 = .Cells(IM, "D"): MOf = Wsh.Cells(IM, "E") 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الثاني في الورقة الأولى ليحمل اسم العميل 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الرابع في الورقة الأولى ليحمل الإجراء Amel = Wsh.Cells(IM, "B"): AGra = Wsh.Cells(IM, "D") 'إظهار رسالة في حالة التضارب في إدخال البيانات 'أي أنه عند اتخاذ إجراء لعميل عند أكثر من موظف تظهر رسالة تفيد بذلك MsgBox "البند المسمى :" & " " & Amel & " موجود مسبقاً في ورقة : " & " " & MOf & vbCrLf & " بالاجراء :" & " " & AGra & vbNewLine & " " & " وكرر في ورقة :" & " " & .Name & " " & " للعميل : " & Amel1 'التخطي للانتقال لصف جديد GoTo Skipper End If End If Skipper: 'الانتقال للصف التالي في الورقة الأولى Next IM End If 'الانتقال للصف التالي في ورقة الموظف المعنية Next II End With End If 'الانتقال لورقة الموظف التالية Next Shr End Sub أرجو أن ينفعك الأمر تقبل تحياتي

السلام عليكم جرب هات الطريقه '******************************** ' رابط الدوماين الذي تريد التحقق منه Private Const Ur As String = "https://www.colomos.com" Sub Check_Url() MsgBox IIf(Check_Domin(Ur), "غير شاغر", "شاغر") End Sub Function Check_Domin(Url As String) As Boolean Dim Win_Htp As Object Dim R_a As Variant On Error GoTo Nex Set Win_Htp = CreateObject("WinHttp.WinHttpRequest.5.1") With Win_Htp DoEvents .Open "GET", Url, False .Send R_a = .StatusText End With Set Win_Htp = Nothing If R_a = "OK" Then Check_Domin = True Exit Function Nex: End Function

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

فنون وأساليب التنبؤ باستخدام الاكسيل السلام عليكم ورحمة الله وبركاته موضوع اليوم استخدام الدوال ذات الدالة الأسية ( الاتجاهات الغير خطية الأسية ) فى التوقع او التنبؤ واتناول فيه الدالة Growth بالطريقة الرياضية والبيانية استخدام طريقة التمهيد الأسى Exponential Smoothing فى التوقع باستخدام الطريقة الرياضية وادوات تحليل البيانات solver ___________________ارجو ان يفيد الجميع ________________________ تناولت فى الموضوع السابق استخدام الاتجاهات الخطية فى التنبؤ واستخدمت الدوال forecast و trend و slope و intercept وتناولنا الطرق الرياضية والبيانية رابط الموضوع السابق http://www.officena.net/ib/topic/64412-فنون-وأساليب-التنبؤ-باستخدام-الاكسيل/ الجزء الثانى .rar

السلام عليكم تم التعديل السبب تفعيل حمايه للورقه تم التعديل جرب المرفق مصروفات-111.rar عذرا اخي وائل لم ارى ردك الا بعد المشاركه

أخي ابو عمر جرب الملف التالي Search_by any_letters.zip

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

انا بحب التحدى ياعم صقر انا احط ايدي علي المشكلة تلاقيني فريره بس احط ايدي علي المشكلة بس انا كسبت التحدي test.rar هاااااااا انا قد التحدي المشكلة الفاصلة بس تعمل بحث واستبدال وتحط علاة ال فاصلة وتنزل مكانها . بوينت دي

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

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

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

اخواني الكرام اضع بين ايديكم الجزء الاول من شرح الترحيل وبإنتظار تعليقاتكم واستفسارتكم ابواحمد الجزء الاول من الشرح ملف شرح الجزء الاول الترحيل.rar الجزء الثاني من الشرح ملف شرح الجزء الثانى الترحيل2.rar الجزء الثالث من الشرح (ترحيل القيم - ترحيل محدوود) ملف شرح الجزء الثالث الترحيل3.rar الجزء الرابع من شروحات الترحيل ملف شرح الجزء الرابع ترحيل حسب اسم الشيت.rar لا تنسوني أخوتي من الدعاء لي بظهر الغيب

دروس إكسيل (صوت و صورة)

السلام عليكم ورحمة الله وبركاته إخوانى وأحبائى الأعزاء أستاذتى وأعضاء هذا المنتدى العظيم تحية طيبة ووبعد يوجد لدى تقرير مبيعات تفصيلى يوجد به داتا معينه صممت بجواره Rank يقوم بتقييم المندوبين حسب مبيعاته مالى وعدد عملاء وعدد أصناف وعدد عملاء مكررة أى عدد زيارت ناجحة الرجاء من سيادتكم النظر إلى الرابط التالى وبه المرفق وعزرا لعدم إرفاقه بالمنتدى لكبر حجمه أريد من سيادتكم كود برمجى ينفذ المطلوب بالمرفق ولسيادتكم خالص الشكر والتقدير http://www.4shared.com/rar/iABxXqB0ce/Report.html

أخي الحبيب مختار موضوع رائع ومتميز بارك الله فيك وجزاك الله كل خير تقبل وافر تقديري واحترامي

جرب هذا الملف التقييم النهائي salim.zip

تمام كدا 2.rar

أتفضل المرفق لعلة يلبي الطلب تحياتي مصروفات-9.rar

الله عليك يا أ / سليم ما شاء الله تبارك الله زادك الله من العلم الكثير والكثير جزاك الله خير

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

اخ ياسر العربي حل جميل وهذا لتغير الفاصله في مدى الارقام Sub A() Dim R As Range For Each R In Range("B2:D" & Cells(Rows.Count, 2).End(xlUp).Row) R.Replace [i1], "." Next End Sub

لم اطلع على المرفق بسبب الاصدار جرب هذا الحل : الصق هذا السطر في رأس الكود تستخدم هذه العبارة للقفز على الاخطاء المنطقية .. ان جازت التسمية On Error Resume Next

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

غيرت الكلام ليه انا كنت خلصته ليك اهو اتفضل Drive Edit3.rar

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

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

مثال : ضع الكود التالى فى حدث الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Not Range("A1").Find("اخضر") Is Nothing Then Range("A1").Offset(0, 1).Interior.ColorIndex = 4 Else Range("A1").Offset(0, 1).Interior.Pattern = xlNone End If End Sub اكتب كلمة اخضر فى A1 ستجد أن الخلية B1 صارت خضراء ثم اخذف الكلمة ستجد الخلية استعادت لونها العادى والا أرفق ملفا ضع فيه تصورك والنتائج المرجوة تحياتى

السلام عليكم شاهد المرفق خلاصه_111.rar

تفضل اخى الحبيب الملف يعمل مع الصفوف جرب وعلمنى اوفسينا2.zip

اخي العزيز اعتمدت الكود الرائع لانه يفي باحتياجي شاكرا جهدكم مع امتناني واحترامي

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

حسبي الله ونعم الوكيل

تفضل اخي الغالي المطلوب عند ادخال اسم عميل موجود مسبقا تأتي رسالة تفيد انه موجود او رقم البطاقة ايضا ولكن قمت بحجز خليتين فوق رؤوس الاعمدة باللون الاصفر ان كنت تحتاج النطاق دا لعمل اي شئ فلتخبرنا وقبل ما انسى يرجى تغيير اسم الظهور في المنتدى للغة العربية لسهولة التعامل Drive Edit3.rar

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

stocktaken 2015-3.rar

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

السلام عليكم ابو سليمان انظر المرفق ممكن يكون طلبك اكبر واصغر قية مع الاسم.rar

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

السلام عليكم اخى الكريم يمكنك استخدام المعادلة التالية =SUMPRODUCT(((D5:D20="محمد")+(D5:D20="سامي")+(D5:D20="عبد الله")+(D5:D20="وليد"))*E5:E20)

السلام عليكم ورحمة الله أخواني الكرام، بارك الله فيكم جميعا على كل هذا المجهود وجازاكم الله خيرا... ولإثراء الموضوع أكثر، في الملف المرفق (ملف الأخ الكريم سليم) تجدون تعديلا بسيطا على معادلتي الأخوين الكريمين (ياسر و سليم)، حيث يتم البحث على البيانات بالحروف الأولى منها مهما كان عددها وليس بالضرورة الحرف الأول فقط... أخوكم بن علية Find Salim + Yasser.zip

رائع اخي ياسر زيادة في اثراء الموضوع معادلة اخرى (بدون IFERROR) . و تستطيع وضعها في اي مكان من الصفحة و لبس من الضروري الصف الثاني Find Salim + Yasser.zip

السلام عليكم تفضل اعتقد هذا طلبك بالتوفيق 3جمع و ترحيل بشرط.rar

السلام عليكم لم نرى لك رد على العموم شاهد المرفق اذا هذا ماتريد ارفق ملفك لنطبق عليه الفكره لاتنسى اولاً تضغط ملف الاكسل ومن ثم ترفعه في ردك تحياتي Ali_On.rar

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

جزاك الله كل خير ... وان شاء الله تدوم الأفرح ..

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