مداد_1423

ألف مبروك وإلى الأمام نفع الله بعلمكم وزادكم علماً ورزقكم الصحة ووسع لكم في رزقكم تحياتي

الجدول معمول بالوورد وليس إكسل حولته لك على الوورد بكل سهولة تستطيع النسخ من الوورد إلى الإكسل لو تحب لكن .. لاحظ بعض الخلايا النص طويل جدا أنسب تكون في الوورد تحياتي BOQ.docx

المعادلة شغالة 100% اضغط من لوحة المفاتيح CRTL+` يعني كنترول مع حرف الذال بالعربي واسحب المعادلة إلى آخر صف

جزاك الله خيرا يا أستاذنا (محمد صالح) كفيت ووفيت بارك الله فيك وزادك علما ومتعك بصحتك وعافيتك ورزقك من حيث لا تحتسب قال الرسول صلى الله عليه وسلم (خير الناس أنفعهم للناس)ـ

تحية طيبة للجميع وأسأل الله أن يديم عليكم لباس الصحة والعافية عندي كودين الأول لترحيل حلقة متكررة إلى شيت 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 الكود بالكامل Sub Send_Payslip() Dim OutApp As Object Dim OutMail As Object a = 1 Do While a <= 4 EmpID = Sheet2.Range("A8").Offset(a, 0).Value Sheet3.Range("A8").Value = EmpID Filename = Sheet3.Range("A1").Value & ".pdf" Sheet3.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & Filename Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With OutMail .To = Range("A22").Value .Subject = Range("A1").Value .HTMLBody = Range("A1").Value .Attachments.Add (ThisWorkbook.Path & "\" & Sheet3.Range("A1").Value & ".pdf") .Send End With Set OutMail = Nothing Set OutApp = Nothing a = a + 1 Loop End Sub تحياتي للجميع إرسال إيملات pDF.xlsm

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

شكرا للأساتذة على سرعة الرد

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

تحية طيبة للجميع جربت هذه المعادلة =CONCATENATE(A1;CHAR(10);B1;CHAR(10);C1;CHAR(10);+D1) وما ضبطت أتمنى أجد الحل عند أحد الأساتذة مع العلم أني جربت المعادلة نفسها على جهازين عربي وإنجليزي WINDOWS10 وجربتها على أوفيس 2016 و 365 تحياتي New line.xlsx

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

للرفع

تحية طيبة يا سادة ، وأدعوا الله بالتوفيق أن يديم عليكم لباس الصحة وبعد:- 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 أما المسار الذي قبله متغير كل أسبوع تقريبا فا ليت أحد يتكرم بتعديل الكود ليكون المسار في الكود نفس مسار الملف مع المجلد الداخلي FILES بعبارة أخرى : يكون المسار متغير ، والملف الذي فيه الكود مع مجلد FILES ثابت مثال: Set oFolder = oFSO.GetFolder("\FILES") شكرا لك من مر من هنا ,, وأخص بالشكر والدعاء من ساعدني تحياتي TEST_2.rar

يقول الرسول صلى الله عليه وسلم: (كان الله في عون العبد ما كان العبد في عون أخيه)ـ أسأل الله أن يجزيك خير الجزاء ويسعدك في الدرين ويرزقك من حيث لا تحتسب ولك مني الدعاء والشكر أستاذي بالله الله فيك وكثر من أمثالك ونفع بعلمك تحياتي

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

أستاذ: الرائد77 بارك الله في عمرك وصحتك ورزقك من حيث لا تحتسب كثر الله من أمثالك ونفع بك هنيئا لك زكاة العلم جزاك الله خيرا تحياتي يا كبير