Jump to content
أوفيسنا

wissamkh

01 New pie
  • Content Count

    18
  • Joined

  • Last visited

Community Reputation

1 Neutral

About wissamkh

  • Rank
    Name

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    موظف
  1. طبعا كل الشكر للاستاذ الكريم على المساعدة ولكن عذرا وانا اشاهد الفيديو حصل مشكلة بالاتصال واغلقت الصفحة لاعود لاحقا ولكن تأخرت
  2. السلام عليكم ورحمة الله وبركاته لدي ملف اكسل واقوم بتصدير معلومات منه الى pdf اسم الملف يكون هو تاريخ يوم التصدير ولكن أريد اذا قمت بتصدير الملف أكثر من مرة في نفس اليوم لا يمحي الملف الأول ويضع مكانه الثاني أريد وضع بجانب التاريخ مثلا رقم 1 و 2 هذا ملف مرفق مثال على الكود وشكرا لكم سلفا export.xlsm
  3. السلام عليكم عندي هذا الكود لترحيل بيانات الى عدة صفحات (كل صف يرحل الى صفحة معينة حسب بيانات الخلية(اسم الصفحة مرتبط بإسم الخلية) أريد إضافة عليه كود لترحيل كل البيانات أيضا الى صفحة واحدة. بحيث يصبح الترحيل كل صف الى الصفحة الخاصة به وايضا الى صفحة البيانات الكاملة هذا الكود اللي عندي 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
  4. الملف الذي أعمل عليه شبيه بالملف المرفق الخلاية ذات الحدود هي التي ترحل الى الجدول في الصفحة الثانية bookk.xlsm
  5. شكرا لكم أخواني الاعزاء على المساعدة. لاحظت في الملف المرفق أخي سليم أن الكود هو يبدأ من خلية و بعدها 6 خلايا متتالية. أنا الملف الذي أعمل عليه، الخلاية المخصصة للترحيل ليست متتالية، يعني مثلا ممكن أن تكون الخلايا هكذا (c4,d12,e5,k16) هل يمكن تحديد الشرط لكل خلية على حدة.
  6. السلام عليكم ورحمة الله وبركاته لدي هذا الكود لترحيل بيانات من خلية الى خلية اخرى وأستعمله لعدة خلايا أريد تعديل الكود أنه بحال كانت خلية من الخلايا المرحلة فارغة يتم تعبئتها تلقائيا بأي نص حتى لا تتداخل بيانات الاسطر في الترحيل التالي. يوجد ملف مرفق لشرح المقصود وشكرا لكم Book1.xlsm
  7. للرفع تم التعديل على الملف وتم وضع سطرين لتجربة الحالة المطلوبة في الشيت 2 السطر الأول بالجدول هو في حال كانت جميع الخلايا المرحلة من الشيت 1 ذات محتوى نص معين أما السطر الثاني هو في حال كانت بعض الخلايا فارغة لا أريدها عندما تترحل الى الجدول في الشيت 2 أن تبقى فارغة، أريد تعبئتها بأي نص أو رمز boooookk.xlsm
  8. أخي يمكنك تعبئة الخلاية المحددة بما تشاء، فهي الخلايا التي سترحل الى الصفحة الثانية عند الضغط على save as pdf سوف ترحل الخلايا
  9. عذرا أخي لم أفهم الكود جيدا أخي هذا الملف المرفق هو نموذج عن ما أعمل به ال sheet1 الخلاية اللي محددة هي التي سوف ترحل الى الصفحة الثانية أريدها بحال كانت فارغة عند الترحيل، تلقائيا يكتب أي شيء مكانها في صفحة الترحيل في المكان المخصص لها boooookk.xlsm
  10. شكرا لك أخ سليم على المساعدة القيّمة.
  11. السلام عليكم ورحمة الله وبركاته لدي هذا الكود لترحيل بيانات من خلية الى خلية اخرى وأستعمله لعدة خلايا أريد تعديل الكود أنه بحال كانت خلية من الخلايا المرحلة فارغة يتم تعبئتها تلقائيا بأي نص حتى لا تتداخل بيانات الاسطر في الترحيل التالي. وشكرا لكم 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
  12. السلام عليكم عندي ملف ايصالات قبض ودفع وتتم فيه عملية ترحيل معلومات الايصال بعد الحفظ الى جدول في صفحة خاصة وفي نفس الوقت يتم حفظ الايصال بصفحة مستقلة أيضا. أريد كود VBA لربط الخلية التي تتضمن رقم الايصال بالصفحة الخاصة بالايصال المرحل عند كل عملية ترحيل جديدة وبشكل تلقائي عند ملئ البيانات وحفظ الايصال تنتقل المعلومات تلقائيا الى صفحة sheet1 ويتم حفظ الايصال بشيت مستقلة وفي الشيت 1 عند رقم الايصال، أريد ربطه تلقائيا بصفحة الايصال الخاصة به إيصال قبض.xlsm
×
×
  • Create New...