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

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

السلام عليكم ورحمة الله وبركاته

لدي هذا الكود لترحيل بيانات من خلية الى خلية اخرى

وأستعمله لعدة خلايا

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

حتى لا تتداخل بيانات الاسطر في الترحيل التالي.

وشكرا لكم 

Sheets("sheet1").Select
    Range("G8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("D" & Sheets("sheet2").[D1000].End(xlUp).Row + 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

السلام عليكم

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

أريد كود VBA لربط الخلية التي تتضمن رقم الايصال بالصفحة الخاصة بالايصال المرحل عند كل عملية ترحيل جديدة  وبشكل تلقائي

عند ملئ البيانات وحفظ الايصال تنتقل المعلومات تلقائيا الى صفحة sheet1  ويتم حفظ الايصال بشيت مستقلة

وفي الشيت 1 عند رقم الايصال، أريد ربطه تلقائيا بصفحة الايصال الخاصة به

إيصال قبض.xlsm