mody_mhashem قام بنشر يوليو 19, 2016 مشاركة قام بنشر يوليو 19, 2016 السلام عليكم و رحمة الله و بركاتة لدى ملف ارجو من الاخوة الافاضل مساعدتى بة و لكم جزيل الشكر حاولت و فشلت فمازلت اتعلم منكم المطلوب : ترحيل البيانات من جدول الادخال بالشيت لجدول الدفعات بنفس الشيت و الترتيب بالتاريخ و اسم المشترك ولكم الشكر Book2.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 20, 2016 مشاركة قام بنشر يوليو 20, 2016 تفضل الحل Filter_for_me.rar 1 رابط هذا التعليق شارك More sharing options...
ابو عبدالرحمن البغدادي قام بنشر يوليو 20, 2016 مشاركة قام بنشر يوليو 20, 2016 جزيت خيرا رابط هذا التعليق شارك More sharing options...
mody_mhashem قام بنشر يوليو 20, 2016 الكاتب مشاركة قام بنشر يوليو 20, 2016 (معدل) السلام عليكم و رحمة الله و بركاته جزيل الشكر لك اخى سليم على سرعة الرد و استجابة لمطلبى ملفك المرسل الى جيد و بقوم بالمطلوب ....لكن عند تحميل الملف و تشغيلة لم استطيع تطبيقة علي الملف الاصلى الموجود لدى فقد تغييرت الصفوف و الاعمدة عما كنت قد اشرت اليها بالملف الاول فعند تطبيق ما اضفتة لم تفلح معى ارجو منك تثبيت الصفوف و الاعمدة كما هى موجوده حتى استطيع التطبيق حيث ان باقى الخلايا بها معادلات و عند تغييرها كيف اقوم بذلك ؟ قمت بارفاق ملف به تحديد الاماكن قدر المستطاع ( اللون الازرق بة معادلات من اماكن اخرى بالشيت ) ملحوظة الترتيب بالتاريخ الاول ثم بالاسم مع تثبيت التاريخ جزيت خير الجزاء و شكرا لمجهودك المبذول Book1.rar تم تعديل يوليو 20, 2016 بواسطه mody_mhashem الاضافة رابط هذا التعليق شارك More sharing options...
mody_mhashem قام بنشر أغسطس 2, 2016 الكاتب مشاركة قام بنشر أغسطس 2, 2016 السلام عليكم و رحمة الله و بركاته هل من مساعدة و شكرا رابط هذا التعليق شارك More sharing options...
ابو عبدالبارى قام بنشر أغسطس 2, 2016 مشاركة قام بنشر أغسطس 2, 2016 3 ساعات مضت, mody_mhashem said: السلام عليكم و رحمة الله و بركاته هل من مساعدة و شكرا الأخ الكريمmody_mhashem بعد السلام عليكم جرب المرفق التالى لعلك تجد فيه غايتك abo_abary_Book1.rar رابط هذا التعليق شارك More sharing options...
mody_mhashem قام بنشر أغسطس 3, 2016 الكاتب مشاركة قام بنشر أغسطس 3, 2016 السلام عليكم و رحمة الله و بركاته الاخ العزيز ابو عبد البارى جزاك الله خير الجزاء و بارك لك فى علمك الملف المرفوع من سيادتكم تمام . و لكن تم التعديل علية لكى يتم عمل المطلوب ( التعديل تم على الفرز و الترتييب و مسح النطاق المرحل ) شكرا لمجهودك المبذول . مرة اخرى جزاك الله خيرا و شكرا لك رابط هذا التعليق شارك More sharing options...
ابو عبدالبارى قام بنشر أغسطس 3, 2016 مشاركة قام بنشر أغسطس 3, 2016 الأخ الكريمmody_mhashem بعد السلام عليكم الحمد لله اننا توصلنا للحل بعد التعديل الذى اضفتة على الكود هل من الممكن ان تشرح لنا هذا التعديل رابط هذا التعليق شارك More sharing options...
mody_mhashem قام بنشر أغسطس 4, 2016 الكاتب مشاركة قام بنشر أغسطس 4, 2016 (معدل) السلام عليكم و رحمة الله و بركاتة الاخ العزيز ابو عبد البارى أشكرك جزيل الشكر عل متابعة الموضع جزاك الله خيرا و شكرا لك و اوضح لك ما تم من تعديل كما يلى 1 - تحديد نطاق الترحيل قمت بالتعديل علية من Range("p3:s" & last).Copy الى Range("p3:s17" & last).Copy 2 - كود الفلتر من Range("e21:i" & last1).Sort Key1:=Range("g21"), Order1:=xlAscending, Key2:=Range("f21"), Order2:=xlAscending الى Range("e21:i" & last1).Sort Key1:=Range("f21"), Order1:=xlAscending, Key2:=Range("g21"), Order2:=xlAscending 3 - اضافة كود مسح النطاق المرحل و لمسح النطاق المرحل قمت باضافة الكود التالى فى الاخر Range("p3:s17" & last).ClearContents فأصبح الكود Private Sub abo_abary() last = Cells(Rows.Count, "p").End(xlUp).Row last1 = Cells(Rows.Count, "f").End(xlUp).Row Range("p3:s17" & last).Copy Cells(last1 + 1, 6).PasteSpecial xlPasteValues Cells(last1 + 1, 5).Value = last1 - 20 last1 = Cells(Rows.Count, "f").End(xlUp).Row Range("e21:i" & last1).Sort Key1:=Range("f21"), Order1:=xlAscending, Key2:=Range("g21"), Order2:=xlAscending Application.CutCopyMode = False Range("p3:s17" & last).ClearContents End Sub ارجوا من الله ان يكون التعديل الذى قمت بة صحيح ولك حق توجيهى ان كنت اخطئ فى شى جزاك الله خيرا و شكرا لك تم تعديل أغسطس 4, 2016 بواسطه mody_mhashem الاضافة 1 رابط هذا التعليق شارك More sharing options...
ابو عبدالبارى قام بنشر أغسطس 4, 2016 مشاركة قام بنشر أغسطس 4, 2016 58 دقائق مضت, mody_mhashem said: السلام عليكم و رحمة الله و بركاتة الاخ العزيز ابو عبد البارى أشكرك جزيل الشكر عل متابعة الموضع جزاك الله خيرا و شكرا لك و اوضح لك ما تم من تعديل كما يلى 1 - تحديد نطاق الترحيل قمت بالتعديل علية من Range("p3:s" & last).Copy الى Range("p3:s17" & last).Copy 2 - كود الفلتر من Range("e21:i" & last1).Sort Key1:=Range("g21"), Order1:=xlAscending, Key2:=Range("f21"), Order2:=xlAscending الى Range("e21:i" & last1).Sort Key1:=Range("f21"), Order1:=xlAscending, Key2:=Range("g21"), Order2:=xlAscending 3 - اضافة كود مسح النطاق المرحل و لمسح النطاق المرحل قمت باضافة الكود التالى فى الاخر Range("p3:s17" & last).ClearContents فأصبح الكود Private Sub abo_abary() last = Cells(Rows.Count, "p").End(xlUp).Row last1 = Cells(Rows.Count, "f").End(xlUp).Row Range("p3:s17" & last).Copy Cells(last1 + 1, 6).PasteSpecial xlPasteValues Cells(last1 + 1, 5).Value = last1 - 20 last1 = Cells(Rows.Count, "f").End(xlUp).Row Range("e21:i" & last1).Sort Key1:=Range("f21"), Order1:=xlAscending, Key2:=Range("g21"), Order2:=xlAscending Application.CutCopyMode = False Range("p3:s17" & last).ClearContents End Sub ارجوا من الله ان يكون التعديل الذى قمت بة صحيح ولك حق توجيهى ان كنت اخطئ فى شى جزاك الله خيرا و شكرا لك الأخ الكريمmody_mhashem بعد السلام عليكم اجمل ما فى الموضوع انك استطعت النتعديل بنفسك على الملف المثل يقول ( علمنى ان اصطاد خير من أن تعطينى سمكة ) رابط هذا التعليق شارك More sharing options...
mody_mhashem قام بنشر أغسطس 4, 2016 الكاتب مشاركة قام بنشر أغسطس 4, 2016 السلام عليكم و رحمة الله و بركاتة الاخ العزيز ابو عبد البارى جزاك الله خيرا و كما اشرت فى مشاركتى الاولى ( حاولت و فشلت فمازلت اتعلم منكم ) فالمحاوله تاتى اولا اما ان تنجح او تفشل فنعود للتعلم و المحاوله حتى النجاح فلابد من صقلها بالتعلم و منكم نتعلم جزاك الله خير الجزاء و بارك لك فى علمك و شكرا لك رابط هذا التعليق شارك 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.