mody_mhashem قام بنشر يوليو 19, 2016 قام بنشر يوليو 19, 2016 السلام عليكم و رحمة الله و بركاتة لدى ملف ارجو من الاخوة الافاضل مساعدتى بة و لكم جزيل الشكر حاولت و فشلت فمازلت اتعلم منكم المطلوب : ترحيل البيانات من جدول الادخال بالشيت لجدول الدفعات بنفس الشيت و الترتيب بالتاريخ و اسم المشترك ولكم الشكر Book2.rar
mody_mhashem قام بنشر يوليو 20, 2016 الكاتب قام بنشر يوليو 20, 2016 (معدل) السلام عليكم و رحمة الله و بركاته جزيل الشكر لك اخى سليم على سرعة الرد و استجابة لمطلبى ملفك المرسل الى جيد و بقوم بالمطلوب ....لكن عند تحميل الملف و تشغيلة لم استطيع تطبيقة علي الملف الاصلى الموجود لدى فقد تغييرت الصفوف و الاعمدة عما كنت قد اشرت اليها بالملف الاول فعند تطبيق ما اضفتة لم تفلح معى ارجو منك تثبيت الصفوف و الاعمدة كما هى موجوده حتى استطيع التطبيق حيث ان باقى الخلايا بها معادلات و عند تغييرها كيف اقوم بذلك ؟ قمت بارفاق ملف به تحديد الاماكن قدر المستطاع ( اللون الازرق بة معادلات من اماكن اخرى بالشيت ) ملحوظة الترتيب بالتاريخ الاول ثم بالاسم مع تثبيت التاريخ جزيت خير الجزاء و شكرا لمجهودك المبذول Book1.rar تم تعديل يوليو 20, 2016 بواسطه mody_mhashem الاضافة
mody_mhashem قام بنشر أغسطس 2, 2016 الكاتب قام بنشر أغسطس 2, 2016 السلام عليكم و رحمة الله و بركاته هل من مساعدة و شكرا
ابو عبدالبارى قام بنشر أغسطس 2, 2016 قام بنشر أغسطس 2, 2016 3 ساعات مضت, mody_mhashem said: السلام عليكم و رحمة الله و بركاته هل من مساعدة و شكرا الأخ الكريمmody_mhashem بعد السلام عليكم جرب المرفق التالى لعلك تجد فيه غايتك abo_abary_Book1.rar
mody_mhashem قام بنشر أغسطس 3, 2016 الكاتب قام بنشر أغسطس 3, 2016 السلام عليكم و رحمة الله و بركاته الاخ العزيز ابو عبد البارى جزاك الله خير الجزاء و بارك لك فى علمك الملف المرفوع من سيادتكم تمام . و لكن تم التعديل علية لكى يتم عمل المطلوب ( التعديل تم على الفرز و الترتييب و مسح النطاق المرحل ) شكرا لمجهودك المبذول . مرة اخرى جزاك الله خيرا و شكرا لك
ابو عبدالبارى قام بنشر أغسطس 3, 2016 قام بنشر أغسطس 3, 2016 الأخ الكريمmody_mhashem بعد السلام عليكم الحمد لله اننا توصلنا للحل بعد التعديل الذى اضفتة على الكود هل من الممكن ان تشرح لنا هذا التعديل
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
ابو عبدالبارى قام بنشر أغسطس 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 بعد السلام عليكم اجمل ما فى الموضوع انك استطعت النتعديل بنفسك على الملف المثل يقول ( علمنى ان اصطاد خير من أن تعطينى سمكة )
mody_mhashem قام بنشر أغسطس 4, 2016 الكاتب قام بنشر أغسطس 4, 2016 السلام عليكم و رحمة الله و بركاتة الاخ العزيز ابو عبد البارى جزاك الله خيرا و كما اشرت فى مشاركتى الاولى ( حاولت و فشلت فمازلت اتعلم منكم ) فالمحاوله تاتى اولا اما ان تنجح او تفشل فنعود للتعلم و المحاوله حتى النجاح فلابد من صقلها بالتعلم و منكم نتعلم جزاك الله خير الجزاء و بارك لك فى علمك و شكرا لك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.