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

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

بعد اذن اخي رجب و زيادة قي اثراء الموضوع هذه المعادلة:(ctrl + shift + enter) =INDEX($J$2:$J$9,MATCH($A$6&$B$6,$H$2:$H$9&$I$2:$I$9,0))

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة بحث معقد تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف و الشرح ________________1.rar و لا تنسونا من صالح الدعاء تحياتى

من خلال متابعة الموضوع توصلت إلى أنه يمكن عمل استدعاء لأكثر من 20 مندوب والطريقة : أن نجعل ملفات التكس لكل مندوب مرقمة بأرقام تسلسلية بدلا من ahmad.txt or ali.txt ستكون الملفات هكذا 1.txt و 2.txt و 3.txt وهكذا إلى آخر عدد من المندوبين ثم من ملف ابراهيم استطيع عمل حلقة تكرارية تبدا من 1 إلى آخر ملف ويتم بضغطة واحدة إحضار جميع الملفات هذه هي الفكرة

بصراحة الملف تحفة.. تحياتي أبو البراء

تسلم يااستاذ ياسر متشكر جدا ، انت وفرت عليا وقت وجهد كبير جدا بارك الله فيك

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

دور على السطر في الكود اللي فيه جملة DisplayRightToLeft وشيل السطر دا وهيظبط معاك زي ما إنت عايز

السلام عليكم هذا هو السطر المقصود .Range("A2:S2").AutoFilter Field:=4, Criteria1:=">=" & myDate1, Operator:=xlOr, Criteria2:="<=" & myDate2 تم تغير الجزء xlOr الى xlAnd

السلام عليكم هل تقصد هكذا بحث بين تاريخين.rar

محمد ابو صهيب اخى الفاضل جزاك الله خيرا فى الانتظار

الاستاذ : سليم حاصبيا شكرا جزيلا بارك الله لك ونفع بك

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

السلام عليكم بعد اذن الأساتذة الفضلاء تفضل أخى النقطة الخاصة بالترقيم التلقائى استدعاء بيانات على اساس اسم الصنف.rar

وعليكم السلام كلما ضغطت على زر الامر a2 ، سيتحرك الحقل a2 يمينا ويسارا Private Sub Command3_Click() If Me.a2.Left = 0 Then Me.a2.Left = 6 * 1440 Else Me.a2.Left = 0 End If 'Me.a2.Visible = True 'Me.a1.Visible = False 'Me.a2.SetFocus End Sub جعفر 537.move_control.accdb.zip

جرب هذا الماكرو Sub copy_All() Application.ScreenUpdating = False Dim My_sh As Worksheet Dim My_range As Range Dim k, m, lr, i As Integer k = Sheets.Count m = 3 Set My_sh = Sheets(k) My_sh.Range("a3:m1000").ClearContents For i = 2 To k - 1 With Sheets(i) lr = .Cells(Rows.Count, 1).End(3).Row Set My_range = .Range("a6:k" & lr) End With With My_sh .Cells(m, 1) = Sheets(i).Cells(1, 2) .Cells(m, 2) = Sheets(i).Cells(2, 2) My_range.Copy .Range("c" & m).PasteSpecial xlPasteValues m = m + lr - 4 End With Next My_sh.Activate Range("a3").Select Application.ScreenUpdating = True End Sub

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

السلام عليكم أخى الفاضل نسيت أن أخبرك أنها معادلة صفيف أى لابد من الضغط على مفاتيح ctrl + shift + enter أثناء وجودك داخل المعادلة

السلام عليكم أخى الفاضل استخدم هذه المعادلة =IFERROR(INDEX(J2:J9;MATCH(1;(E3=G2:G9)*(A6=H2:H9)*(B6=I2:I9);0));"")

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

ليس لدي 2016 حاليا و لكن فى 2013 Files options mail message arrvival play sound ربما يكون الوضع مشابها فى 2016

العفو اخي مصطفى تستاهلون كل خير

جزاك الله خيرا

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

السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري

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

السلام عليكم استخدم هذه الاوامر هذا السطر في اول الكود فرضا اسم الورقة "ورقة1" وباسورد الحماية "123" إلغاء الحماية ورقة1.Unprotect Password:="123" وهذا السطر في اخر الكود لإسترجاع حماية الورقة ورقة1.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True