the-mask-999

يعطيك ألف عافية أخوي محمد هشام، هذا هو الملف المطلوب بالتحديد، وقمت ببعض التعديلات عليه ووسعت نطاق الأعمدة، لأني أضفت أعمدة إضافية للجدول اللي عندي، والحمد لله ظبط معي. ماقصرت جزالك الله خير. عندي سؤال -غير هام- لقيت ماكرو في الملف اللي انت معدل عليه، ولكنه لا يعمل عند القيام بتشغيله. فهل له فائدة أو ماشابه.

Sub Macro1() ' ' Macro1 ماكرو ' ' Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Application.CutCopyMode = False Sheets("data").Range("A2:E8 ").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("الصادر!Criteria"), CopyToRange:=Range("A1:E1"), _ Unique:=False End Sub هذا الماكرو أتمنى إضافة الكود أو النص الذي يتضمن نقل الخلايا التي تحتوي على ارتباط تشعبي ايضاً. ولكم جزيل الشكر،،

أشكرك أخي الكريم محمد هشام على تفاعلك وإجابتك لي، ولكن المشكلة أنا بحاجة لترحيل البيانات وفقاً للملف الملف بمعنى، انا استعملت ماكرو لترحيل البيانات عن طريق (تصفية متقدمة)، أي أنه عند تعديل التصنيف أو الاسم في الصفحة الأولى يتم تغيير البيانات تلقائياً في الصفحات المرحل لها البيانات. ومشكلتي هي في نقل خلايا صف (رقم القيد) التي يرتبط بها ارتباط تشعبي. أرجو الرجوع لملفي المرفق وتعديل مثلاً كلمة الصادر في أحد الصفوف ... فسترى تلقائياً أنه سيتم حذف هذا الصف من صفحة الصادر. مع شكري وتقديري

السلام عليكم ورحمة الله وبركاته: لدي ملف (مرفق) قمت بوضع بيانات في الشيت رقم (1)، وقمت بعمل ترحيل للبيانات لصفحة أخرى، ولكن المشكلة لدي أن الصفحة الأولى تحتوي خلاياها على ارتباط تشعبي، وعند عملية ترحيل البيانات لا يتم نقل الارتباط التشعبي المرتبط بالخلية. فهل من طريقة لحل هذه الإشكالية. طبعاً هدفي هو أنه أنه لدي معاملات في الصفحة الأولى مصنفة لعدة تصنيفات (صادر، وارد، تعاميم)، وفي كل صف مرتبط بارتباط تشعبي، وعند وضع التصنيف يتم نقل الصف تلقائياً للصفحة الخاصة بها. أتمنى أجد الحل. ولكم جزيل الشكر test.xlsm