Jump to content
أوفيسنا

مداد_1423

02 Members
  • Content Count

    93
  • Joined

  • Last visited

Community Reputation

28 Excellent

About مداد_1423

  • Rank
    Name

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    HR
  • Interests
    إكسل ـ وورد

Recent Profile Visitors

615 profile views
  1. جزاك الله خيرا يا أستاذنا (محمد صالح) كفيت ووفيت بارك الله فيك وزادك علما ومتعك بصحتك وعافيتك ورزقك من حيث لا تحتسب قال الرسول صلى الله عليه وسلم (خير الناس أنفعهم للناس)ـ
  2. تحية طيبة للجميع وأسأل الله أن يديم عليكم لباس الصحة والعافية عندي كودين الأول لترحيل حلقة متكررة إلى شيت 2 وحفظ الشيت الثاني PDF والكود الثاني من تعديل الأستاذ (الرائد77) عند دمج الكودين يطلع لي خطأ في السطر sned بمعنى أن الترحيل إلى PDF يعمل تمام ولكن المشكلة ما قدرت أرسله على الإيميل الخطأ عند send المطلوب : 1) تصحيح خطأ الإرسال بالإيميل 2) وإذا كان من الممكن استبدال سطر a = 1 Do While a <= 4 بهذا السطر لكي استغني عن تعديل الكود في كل مرة For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row الكود بالكامل
  3. وعليكم السلام ورحمة الله وبركاته الأفضل لك أن تستخدم دالة INDEX مع MATCH وستترك استخدام دالة VLOOKUP ستجد في اليوتيوب شروحات كثير لها وبها تستطيع أن تبحث بنص أو رقم ولا يشترط أن يكون المرجع في أول الصف مرنة جدا ... أنصحك وبشدة وإذا مصمم على الـVLOOKUP أرفق الملف والأساتذة ما يقصرون تحياتي
  4. شكرا للأساتذة على سرعة الرد
  5. الله يفرج همك ويفرحك بما تحب ، ويرزقك من واسع فضله ويمتعك بصحتك كنت أتوقع المشكلة أكبر من ذلك ، شكرا لك انحلت المشكلة وهذا هو المطلوب سلمت وسلم غاليك وبارك الله فيك
  6. تحية طيبة للجميع جربت هذه المعادلة =CONCATENATE(A1;CHAR(10);B1;CHAR(10);C1;CHAR(10);+D1) وما ضبطت أتمنى أجد الحل عند أحد الأساتذة مع العلم أني جربت المعادلة نفسها على جهازين عربي وإنجليزي WINDOWS10 وجربتها على أوفيس 2016 و 365 تحياتي New line.xlsx
  7. ما شاء الله .. الصعب عندك سهل .. الله يزيدك علم ويوفقك .. تعودنا منك على الإبداع عزيزي ... لو يكون الرينج في العامود K أوسع بيكون أفضل وأنفع للسائل ... ولغيره من اللي أعجبهم الكود وينفعهم <<مثلي تحياتي
  8. تحية طيبة يا سادة ، وأدعوا الله بالتوفيق أن يديم عليكم لباس الصحة وبعد:- Sub LoopThroughFiles() Dim oFSO As Object Dim oFolder As Object Dim oFile As Object Dim i As Integer Range("A:A").ClearContents Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder("D:\TEST_2\FILES") For Each oFile In oFolder.Files Cells(i + 1, 1) = oFile.Name i = i + 1 Next oFile End Sub أريد أن يكون المجلد الداخلي فقط ثابت FILES أما المسار الذي قبله متغير كل أسبوع تقريبا فا ليت أحد يتكرم بتعديل الكود ليكون المسار في الكود نفس مسار الملف مع
  9. يقول الرسول صلى الله عليه وسلم: (كان الله في عون العبد ما كان العبد في عون أخيه)ـ أسأل الله أن يجزيك خير الجزاء ويسعدك في الدرين ويرزقك من حيث لا تحتسب ولك مني الدعاء والشكر أستاذي بالله الله فيك وكثر من أمثالك ونفع بعلمك تحياتي
  10. أستاذي ... بعد الرجوع إلى العمل وتجربة الكود يرسل الإيميل الأول في صف رقم 3 وبعدين تظهر رسالة الخطأ .. آسف على هذا الشيء ما كان ودي آخذ من وقتكم أكثر ولكن ما قدرت أحل المشكلة وإن شاء الله تكون بسيطة عليكم
  11. أستاذ: الرائد77 بارك الله في عمرك وصحتك ورزقك من حيث لا تحتسب كثر الله من أمثالك ونفع بك هنيئا لك زكاة العلم جزاك الله خيرا تحياتي يا كبير
  12. تحية طيبة للجميع وأدام الله عليكم لباس الصحة وبعد:- في المرفق كود لإرسال إيميل بالآوتلوك يعمل بكفاءة على الصف 3 أريد حلقة تكرارية لكل صف إلى آخر صف لأن الملف يحتوي في العادة على عشرة صفوف إلى خمسين صف . Private Sub Send_Email() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .to = Range("A3").Value .CC = Range("B3").Value .Subject = Range("C3").Value .HTMLBody = Range("D3").Value .Send End With On Error GoTo 0 Set OutMail = Nothing
  13. أسعدك الله أستاذنا علي .. وبارك في عمرك وفي صحتك وعافيتك وأسأل الله أن يجزيك خير الجزاء ما نقدر نرد فضلك علينا أستاذ علي إلا بالدعاء ، ولك مني الشكر وخالص الدعاء تحياتي يا كبير
  14. تحية طيبة وكل عام وأنتم ومن تحبون بخير:ـ أعاده الله على الجميع في أحسن حال في المرفقات ملف من شيتين فيه إجازات بتواريخ مختلفة .. أريد تقرير في الشيت الثاني بما في الصورة التوضيحية AnnualVacation.xlsx
×
×
  • Create New...