wissamkh

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

السلام عليكم ورحمة الله وبركاته لدي ملف اكسل واقوم بتصدير معلومات منه الى 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.P

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

الملف الذي أعمل عليه شبيه بالملف المرفق الخلاية ذات الحدود هي التي ترحل الى الجدول في الصفحة الثانية 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