wissamkh

شكرا لك اخي الكريم نعم انا كنت اريد تعديل هذه الجزئية. قمت بتجربة تعديل ونجحت اصبحت هكذا Path = "f:\delivery\" fname = Range("G8").Value .Attachments.Add (Path & fname & ".pdf")

Sub sendReminderMail() ChDir "f:\delivery\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "f:\delivery\" & Range("G8").Value, openafterpublish:=False Dim OutlookApp As Object Dim Outlookmailitem As Object Dim myattachments As Object Set OutlookApp = CreateObject("outlook.application") Set Outlookmailitem = OutlookApp.CreateItem(0) Set myattachments = Outlookmailitem.Attachments With Outlookmailitem .to = "info@email.com" .Subject = "data" .Body = "the excel data is attached in PDF format" myattachments.Add "f:\delivery\" ""هنا المشكلة لا اريد تحديد اسم معين للملف"" '.send .display End With Set Outlookmailitem = Nothing Set OutlookApp = Nothing End Sub

السلام عليكم ورحمة الله وبركاته أخواني أريد مساعدة في ارسال الملف عبر الايميل مباشرة بعد الحفظ والنحويل الى اكسل الملف المرفق فيه فقط تحويل الملف الى pdf وحفظه بإسم يتغير تلقائيا بعد كل تعديل على البيانات أريد عند الحفظ إرسال الملف مباشرة عبر الايميل وجدت طريقة لكن يجب فيها تحديد اسم الملف بالضبط، أنا اريد ال vba ياخد الاسم تلقائيا مع كل تغيير وشكرا لكم emailtest.xlsm

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

السلام عليكم ورحمة الله وبركاته لدي ملف اكسل واقوم بتصدير معلومات منه الى pdf اسم الملف يكون هو تاريخ يوم التصدير ولكن أريد اذا قمت بتصدير الملف أكثر من مرة في نفس اليوم لا يمحي الملف الأول ويضع مكانه الثاني أريد وضع بجانب التاريخ مثلا رقم 1 و 2 هذا ملف مرفق مثال على الكود وشكرا لكم سلفا export.xlsm

للرفع

السلام عليكم عندي هذا الكود لترحيل بيانات الى عدة صفحات (كل صف يرحل الى صفحة معينة حسب بيانات الخلية(اسم الصفحة مرتبط بإسم الخلية) أريد إضافة عليه كود لترحيل كل البيانات أيضا الى صفحة واحدة. بحيث يصبح الترحيل كل صف الى الصفحة الخاصة به وايضا الى صفحة البيانات الكاملة هذا الكود اللي عندي Sheets(1).Activate For Each f In Range("b16:b65") If f <> "" Then x = f.Value Range(f.Offset(0, 0), f.Offset(0, 5)).Copy Range(f.Offset(0, 7), f.Offset(0, 0)).Copy lr = Sheets(x).Range("b" & Rows.Count).End(xlUp).Row Sheets(x).Activate Range("b" & lr + 1).Select Selection.PasteSpecial xlPasteValues End If Next f Sheets(1).Activate Application.CutCopyMode = False Range("b16:g65").ClearContents هذا هو الملف المرفق عند الضغط على ترحيل ينتقل كل صف الى الصفحة الخاصة به ولكن أريد أيضا أن تنتقل كل الصفوف الى صفحة all ترحيل.xlsm

شكرا جزيلا لك أخ سليم

الملف الذي أعمل عليه شبيه بالملف المرفق الخلاية ذات الحدود هي التي ترحل الى الجدول في الصفحة الثانية bookk.xlsm

شكرا لكم أخواني الاعزاء على المساعدة. لاحظت في الملف المرفق أخي سليم أن الكود هو يبدأ من خلية و بعدها 6 خلايا متتالية. أنا الملف الذي أعمل عليه، الخلاية المخصصة للترحيل ليست متتالية، يعني مثلا ممكن أن تكون الخلايا هكذا (c4,d12,e5,k16) هل يمكن تحديد الشرط لكل خلية على حدة.

السلام عليكم ورحمة الله وبركاته لدي هذا الكود لترحيل بيانات من خلية الى خلية اخرى وأستعمله لعدة خلايا أريد تعديل الكود أنه بحال كانت خلية من الخلايا المرحلة فارغة يتم تعبئتها تلقائيا بأي نص حتى لا تتداخل بيانات الاسطر في الترحيل التالي. يوجد ملف مرفق لشرح المقصود وشكرا لكم Book1.xlsm

للرفع تم التعديل على الملف وتم وضع سطرين لتجربة الحالة المطلوبة في الشيت 2 السطر الأول بالجدول هو في حال كانت جميع الخلايا المرحلة من الشيت 1 ذات محتوى نص معين أما السطر الثاني هو في حال كانت بعض الخلايا فارغة لا أريدها عندما تترحل الى الجدول في الشيت 2 أن تبقى فارغة، أريد تعبئتها بأي نص أو رمز boooookk.xlsm

أخي يمكنك تعبئة الخلاية المحددة بما تشاء، فهي الخلايا التي سترحل الى الصفحة الثانية عند الضغط على save as pdf سوف ترحل الخلايا

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

شكرا لك أخ سليم على المساعدة القيّمة.