اذهب الي المحتوي
أوفيسنا

wissamkh

عضو جديد 01
  • Posts

    21
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

2 Neutral

عن العضو wissamkh

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    موظف

اخر الزوار

553 زياره للملف الشخصي
  1. شكرا لك اخي الكريم نعم انا كنت اريد تعديل هذه الجزئية. قمت بتجربة تعديل ونجحت اصبحت هكذا Path = "f:\delivery\" fname = Range("G8").Value .Attachments.Add (Path & fname & ".pdf")
  2. 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
  3. السلام عليكم ورحمة الله وبركاته أخواني أريد مساعدة في ارسال الملف عبر الايميل مباشرة بعد الحفظ والنحويل الى اكسل الملف المرفق فيه فقط تحويل الملف الى pdf وحفظه بإسم يتغير تلقائيا بعد كل تعديل على البيانات أريد عند الحفظ إرسال الملف مباشرة عبر الايميل وجدت طريقة لكن يجب فيها تحديد اسم الملف بالضبط، أنا اريد ال vba ياخد الاسم تلقائيا مع كل تغيير وشكرا لكم emailtest.xlsm
  4. طبعا كل الشكر للاستاذ الكريم على المساعدة ولكن عذرا وانا اشاهد الفيديو حصل مشكلة بالاتصال واغلقت الصفحة لاعود لاحقا ولكن تأخرت
  5. السلام عليكم ورحمة الله وبركاته لدي ملف اكسل واقوم بتصدير معلومات منه الى pdf اسم الملف يكون هو تاريخ يوم التصدير ولكن أريد اذا قمت بتصدير الملف أكثر من مرة في نفس اليوم لا يمحي الملف الأول ويضع مكانه الثاني أريد وضع بجانب التاريخ مثلا رقم 1 و 2 هذا ملف مرفق مثال على الكود وشكرا لكم سلفا export.xlsm
  6. السلام عليكم عندي هذا الكود لترحيل بيانات الى عدة صفحات (كل صف يرحل الى صفحة معينة حسب بيانات الخلية(اسم الصفحة مرتبط بإسم الخلية) أريد إضافة عليه كود لترحيل كل البيانات أيضا الى صفحة واحدة. بحيث يصبح الترحيل كل صف الى الصفحة الخاصة به وايضا الى صفحة البيانات الكاملة هذا الكود اللي عندي 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
  7. الملف الذي أعمل عليه شبيه بالملف المرفق الخلاية ذات الحدود هي التي ترحل الى الجدول في الصفحة الثانية bookk.xlsm
  8. شكرا لكم أخواني الاعزاء على المساعدة. لاحظت في الملف المرفق أخي سليم أن الكود هو يبدأ من خلية و بعدها 6 خلايا متتالية. أنا الملف الذي أعمل عليه، الخلاية المخصصة للترحيل ليست متتالية، يعني مثلا ممكن أن تكون الخلايا هكذا (c4,d12,e5,k16) هل يمكن تحديد الشرط لكل خلية على حدة.
  9. السلام عليكم ورحمة الله وبركاته لدي هذا الكود لترحيل بيانات من خلية الى خلية اخرى وأستعمله لعدة خلايا أريد تعديل الكود أنه بحال كانت خلية من الخلايا المرحلة فارغة يتم تعبئتها تلقائيا بأي نص حتى لا تتداخل بيانات الاسطر في الترحيل التالي. يوجد ملف مرفق لشرح المقصود وشكرا لكم Book1.xlsm
  10. للرفع تم التعديل على الملف وتم وضع سطرين لتجربة الحالة المطلوبة في الشيت 2 السطر الأول بالجدول هو في حال كانت جميع الخلايا المرحلة من الشيت 1 ذات محتوى نص معين أما السطر الثاني هو في حال كانت بعض الخلايا فارغة لا أريدها عندما تترحل الى الجدول في الشيت 2 أن تبقى فارغة، أريد تعبئتها بأي نص أو رمز boooookk.xlsm
  11. أخي يمكنك تعبئة الخلاية المحددة بما تشاء، فهي الخلايا التي سترحل الى الصفحة الثانية عند الضغط على save as pdf سوف ترحل الخلايا
  12. عذرا أخي لم أفهم الكود جيدا أخي هذا الملف المرفق هو نموذج عن ما أعمل به ال sheet1 الخلاية اللي محددة هي التي سوف ترحل الى الصفحة الثانية أريدها بحال كانت فارغة عند الترحيل، تلقائيا يكتب أي شيء مكانها في صفحة الترحيل في المكان المخصص لها boooookk.xlsm
×
×
  • اضف...

Important Information