توكل

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

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

Sub Mail_ActiveSheet() 'Working in Excel 2000-2013 Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim OutApp As Object Dim OutMail As Object With Application .ScreenUpdating = False .EnableEvents = False End With Set Sourcewb = ActiveWorkbook 'Copy the ActiveSheet to a new workbook ActiveSheet.Copy Set Destwb = ActiveWorkbook 'Determine the Excel version and file extension/format With Destwb If Val(Application.Version) < 12 Then 'You use Excel 97-2003 FileExtStr = ".xls": FileFormatNum = -4143 Else 'You use Excel 2007-2013 Select Case Sourcewb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If .HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If End With ' 'Change all cells in the worksheet to values if you want ' With Destwb.Sheets(1).UsedRange ' .Cells.Copy ' .Cells.PasteSpecial xlPasteValues ' .Cells(1).Select ' End With ' Application.CutCopyMode = False 'Save the new workbook/Mail it/Delete it TempFilePath = Environ$("temp") & "\" TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .to = "tawakoolah@gmail.com" .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = "Hi there" .Attachments.Add Destwb.FullName 'You can add other files also like this '.Attachments.Add ("C:\test.txt") .Send 'or use .Display End With On Error GoTo 0 .Close savechanges:=False End With 'Delete the file you have send Kill TempFilePath & TempFileName & FileExtStr Set OutMail = Nothing Set OutApp = Nothing With Application .ScreenUpdating = True .EnableEvents = True End With End Sub

NumberFormat = "00 ######" لزيادة أصفار إلى يسار الرقم إستخدم هذا التنسيق:

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

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

شكراً لكل من الأخ محمود والأخ عمرو

غفر الله لميتكم وأسكنه فسيح جناته وألهمكم الصبر والسلوان وخلفكم في مصيبتكم خيراً منها إنا لله وإنا إليه راجعون

أخي الكريم إليك هذا المرفق الذي يحل لك المشكلة التي ذكرت، وللأمانة هو كود مجمع وليس من كتابتي ولكن جمعته من المنتدى ومن أكواد أخرى تقبل تحياتي تلوين الخلية النشطة-1.rar

فكرة رائع أستاذ طارق دائماً نتعلم من خبراتكم

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

أخي بن علية بارك الله فيك أظن أن السؤال هو هل يمكن جعل سطر معين من الصفحة كذيل للصفحة فمثلاً أنت تستطيع أن تجعل سطر أو عدة أسطر تظهر في عنوان الصفحة والأخ السائل يريدها أن تظهر في أسفل الصحة، وعذراً منك أخي

ما شاء الله تبارك الله جزاك الله خير الجزاء

ما شاء الله عليكما وجزاكما الله عني كل خير وأحسن |إليكم وفرج عنكما لقد تعلمت منكما الشيء الكثير

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

جزاك الله خيراً وجعله في موازين حسناتك عمل كله إبداع

الإحبة الأكارم السلام عليكم ورحمة الله وبركاته لدي عمود Aيحتوي على أكواد الأصناف وأنا أريد جمع نتائج هذه الأصناف ولكنها متغيرة بمعنى أني أريد أن أجمع الربع الأول مثلاً للأصناف A ,و للأصناف B وكذلك C هل يمكن عمل ذلك بالمعادلات وليس بالأكواد علماً أنني قمت بحمعها بواسطة الكود ولكنني أريد عم ذلك بالمعادلات مرفق ملف SUM.rar

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

تفضل أخي هذا هو طلبك في المرفق ساعة.rar

أخي الكريم هاتان الدالتان إضافيتان أي أن الإخوة في المنتدى هم الذين كتبوا أكوادهما فيجب أن يكون كود الدالة موجوداً في ملف الإكسل الذي تعمل عليه حتى تستطيع إستخدامهما أو أن تنسخ كود الدالتين إلى personal folder في محرر الفيجول بسيك حتى تستطيع إستعمالهما في أي ملف إكسل على جهاوك

ماشاء الله كان ربنا يبارك فيك

أخي إليك الحل المطلوب في المرفق IF(OR).rar

أخي الكريم إليك المطلوب حسب مافهمت منك Row, Coulomn, Color.rar

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

المبدع الأستاذ عبد الله جعل الله هذا العلم في موازين حسناتك و والديك