abo mohamad قام بنشر مارس 27, 2010 مشاركة قام بنشر مارس 27, 2010 شوفولنا حل اكرمكم امولى عزوجل[attachment=30728:مشكله بسيطه رابط هذا التعليق شارك More sharing options...
احمد فضيله قام بنشر مارس 28, 2010 مشاركة قام بنشر مارس 28, 2010 بعد اذنك ممكن ترفق الملف و الله المستعان رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مارس 28, 2010 مشاركة قام بنشر مارس 28, 2010 الأخ abo mohamad السلام عليكم =========== هذا ماحدث عندى بالضبط ثانيا : أرجو ان اعرف برناج الشرح الذى استخدمته رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مارس 28, 2010 مشاركة قام بنشر مارس 28, 2010 (معدل) السلام عليكم ورحمة الله شوفولنا حل اكرمكم امولى عزوجلمشكله بسيطه.rarللقراءة فقط وهو مصحح، هذا ما تبين لي من شريط العنوان [Read-Only] [Repaired] ترحيل... وأعتقد أنه لا يمكن تفيير مضمون هذا الملف مادام للقراءة فقط... قم بتسجيل الملف باسم جديد قبل تنفيذ الماكرو واعمل على هذا الملف الجديد (أو قم بفتح الملف الأصلي بعد خفظ أمان الماكرو في ملف جديد)... إن لم يتم حل المشكل فالرجاء وضع الملف الأصلي (الإكسل) في ملف مرفق ليتسنى لنا ونتمكن من حله... والله أعلم تم تعديل مارس 28, 2010 بواسطه hben رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مارس 28, 2010 مشاركة قام بنشر مارس 28, 2010 السلام عليكم =========== نزلت برنامج SCREXESetup إذا كان هو البرنامج الذى استخدمته فى الشرح . فبرجاء شرح كيفية استخدامه بنفس البرنامج ( الذى اسخدمه لاأخ / أبو أحمد رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر مارس 28, 2010 الكاتب مشاركة قام بنشر مارس 28, 2010 (معدل) الأخ abo mohamad السلام عليكم =========== هذا ماحدث عندى بالضبط ثانيا : أرجو ان اعرف برناج الشرح الذى استخدمته اخى واستاذى الغالى / دغيدى المشكله انى عايز اعرف الكود الخاص بالترحيل لكى استخدمه فى عملى الخاص هذا كل ما اريده وكذلك طريقه نسخه ووضعه فى ورقة عمل جديده لو ممكن تساعدنى بحيث فى مثال بسيط من عند حضرتك توضح فيه الترحيل من شست الى اخر اما بخصوص برنامج العرض فسيادتك تامر واحنا ننفذ فهذا هو رابط البرنامج http://www.screen-record.com/ (وجزاكم الله خيرا ) ( بس مين ابو احمد؟؟؟؟؟؟) تم تعديل مارس 28, 2010 بواسطه abo mohamad رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر مارس 28, 2010 الكاتب مشاركة قام بنشر مارس 28, 2010 السلام عليكم ورحمة الله شوفولنا حل اكرمكم امولى عزوجلمشكله بسيطه.rarللقراءة فقط وهو مصحح، هذا ما تبين لي من شريط العنوان [Read-Only] [Repaired] ترحيل... وأعتقد أنه لا يمكن تفيير مضمون هذا الملف مادام للقراءة فقط... قم بتسجيل الملف باسم جديد قبل تنفيذ الماكرو واعمل على هذا الملف الجديد (أو قم بفتح الملف الأصلي بعد خفظ أمان الماكرو في ملف جديد)... إن لم يتم حل المشكل فالرجاء وضع الملف الأصلي (الإكسل) في ملف مرفق ليتسنى لنا ونتمكن من حله... والله أعلم هذا هو الملف جزاك الله خير اخى الكريم كل ما اتمناه ان اصل الى الكود الخاص بالترحيل لانى فى اشد الحاجه لمعرفة هذا الكون لاستخدمه فى مجال عملى وجزاك الله خير ترحيل.rar رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مارس 28, 2010 مشاركة قام بنشر مارس 28, 2010 الأخ أبو محمد abo mohamad السلام عليكم =========== أشكركم على ردكم وعلى شرح البرنامج بالنسبة ملف الترحيل لا يوجد به ماكرو وبالتالى لايوجد كود ترحيل أبو محمد و أبو أحمد واحد رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر مارس 28, 2010 الكاتب مشاركة قام بنشر مارس 28, 2010 الأخ أبو محمد abo mohamad السلام عليكم =========== أشكركم على ردكم وعلى شرح البرنامج بالنسبة ملف الترحيل لا يوجد به ماكرو وبالتالى لايوجد كود ترحيل أبو محمد و أبو أحمد واحد طيب لو تكرمت اخى الكريم كيف اكوم بعمل معادله للترحيل او كود لو ممكن ممكن تدلنا وجزاك الله خير رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر مارس 28, 2010 مشاركة قام بنشر مارس 28, 2010 (معدل) السلام عليكم ورحمة الله أخي الكريم أبو محمد، الكود موجود في الملف ويعمل جيدا وهو مسجل في Module1... وهو كما يلي: Sub KH_START() Dim R As Integer, M As Integer, N As Integer, O As Integer Sheets("محمود").Range("A5:ap1000").ClearContents Sheets("منير").Range("A5:ap1000").ClearContents Sheets("خالد").Range("A5:ap1000").ClearContents M = 5: N = 5: O = 5 Application.ScreenUpdating = False For R = 1 To 1000 If Cells(R, 4) = "محمود" Then Range("A" & R).Resize(1, 5).Copy Sheets("محمود").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 ElseIf Cells(R, 4) = "منير" Then Range("A" & R).Resize(1, 5).Copy Sheets("منير").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False N = N + 1 ElseIf Cells(R, 4) = "خالد" Then Range("A" & R).Resize(1, 5).Copy Sheets("خالد").Range("A" & O).PasteSpecial xlPasteValues Application.CutCopyMode = False O = O + 1 End If Next MsgBox ("الحمد لله عملية الترحيل تمت بنجاح...") Application.ScreenUpdating = True End Sub وتجده أيضا في ملف "الترحيل" (الملف المرفق) في ورقة "شرح" يمكنك نسخه من هناك انطلاقا من الخلية التي تحوي الأمر Sub KH_START إلى الخلية التي تحوي End Sub ولصقه في ملفك على شكل Module (ماكرو)... ولكن الكود لا يعمل إلا مع الثلاثة (محمود-منير-خالد)... أخوك بن علية ترحيل.rar تم تعديل مارس 28, 2010 بواسطه hben رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر مارس 28, 2010 الكاتب مشاركة قام بنشر مارس 28, 2010 السلام عليكم ورحمة الله أخي الكريم أبو محمد، الكود موجود في الملف ويعمل جيدا وهو مسجل في Module1... وهو كما يلي: Sub KH_START() Dim R As Integer, M As Integer, N As Integer, O As Integer Sheets("محمود").Range("A5:ap1000").ClearContents Sheets("منير").Range("A5:ap1000").ClearContents Sheets("خالد").Range("A5:ap1000").ClearContents M = 5: N = 5: O = 5 Application.ScreenUpdating = False For R = 1 To 1000 If Cells(R, 4) = "محمود" Then Range("A" & R).Resize(1, 5).Copy Sheets("محمود").Range("A" & M).PasteSpecial xlPasteValues Application.CutCopyMode = False M = M + 1 ElseIf Cells(R, 4) = "منير" Then Range("A" & R).Resize(1, 5).Copy Sheets("منير").Range("A" & N).PasteSpecial xlPasteValues Application.CutCopyMode = False N = N + 1 ElseIf Cells(R, 4) = "خالد" Then Range("A" & R).Resize(1, 5).Copy Sheets("خالد").Range("A" & O).PasteSpecial xlPasteValues Application.CutCopyMode = False O = O + 1 End If Next MsgBox ("الحمد لله عملية الترحيل تمت بنجاح...") Application.ScreenUpdating = True End Sub وتجده أيضا في ملف "الترحيل" (الملف المرفق) في ورقة "شرح" يمكنك نسخه من هناك انطلاقا من الخلية التي تحوي الأمر Sub KH_START إلى الخلية التي تحوي End Sub ولصقه في ملفك على شكل Module (ماكرو)... ولكن الكود لا يعمل إلا مع الثلاثة (محمود-منير-خالد)... أخوك بن علية جزاك الله الف خير انا عاجز عن الشكر رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر مارس 28, 2010 مشاركة قام بنشر مارس 28, 2010 السلام عليكم ============ اخى ابو محمد الملف الذى ارفقته انت موجود به الكود بالفعل الذى ارسلته لك من قبل " ازاى مش موجود" او انك تقصد كيفية لصقه فى ملف اخر ولا ايه رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر مارس 28, 2010 مشاركة قام بنشر مارس 28, 2010 السلام عليكم =========== الاخ ابو محمد اليك طريقة فتح صفحة الاكواد وطريقة نسخ كود من ملف الى ملف كيف نلصق كود فى ملف.rar رابط هذا التعليق شارك More sharing options...
abo mohamad قام بنشر مارس 28, 2010 الكاتب مشاركة قام بنشر مارس 28, 2010 السلام عليكم =========== الاخ ابو محمد اليك طريقة فتح صفحة الاكواد وطريقة نسخ كود من ملف الى ملف الله يبارك فيك وجزيك خير وزادك الله من علمه دا اللى كنت عايزه من ايام بارك الله فيك اخى الكريم رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر مارس 28, 2010 مشاركة قام بنشر مارس 28, 2010 السلام عليكم =========== اخى ابو محمد " سعادة مجيب السؤال تكون اكثر من سعادة السائل " اسأل دائما والله الموفق لكل من يريد الثواب . الكل فى خدمة الكل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.