مساعدة في الترحيل

[محمدعوض]

عندا الضغط على زر ترحيل يتم الترحيل , ولاكن المشكله عند الضغط على زر الترحيل مرتين يتم ترحيل مرتين واذا ضغط زر الترحيل اكثر من مرة يتم الترحيل اكثر من مرة

Copy of التصليحات2.rar

تم تعديل فبراير 7, 2014 بواسطه محمدعوض

[محمود_الشريف]

أخى الكريم

استفسار بسيط

هل تريد الترحيل مع مسح البيانات بعد الترحيل

ام تريد الترحيل بدون تكرار ما يتم ترحيله

النموذج المرفق ترحيل مع المسح

وتقبل منى وافر الإحترام والتقدير

الترحيل مع المسح.rar

[محمدعوض]

اريد الترحيل بدون تكرار ماتم ترحيله سابقا"

[محمدعوض]

واريد عدم مسح المدخلات في الشيت الرئيسه بس ترحيل حسب اسم الشيت وترحيل بدون تكرار ماتم ترحيله سابقا"

[الشهابي]

أخي العزيز / محمد عوض 

لعل أخي العزيز الأستاذ / محمود الشريف  لديه مشاغله للرد عليك 

وإن شاء الله يتوفر له الوقت للرد عليكم 

وحسب ما فهمت من مشاركتكم الأخير استبدل كود الترحيل بهذا الكود وإن شاء الله يحقق مطلوبك 

Sub trheel()
Application.ScreenUpdating = False
Dim cl As Range, i As Integer
For i = 2 To 7
For Each cl In Range("E11:H" & [E10000].End(xlUp).Row)
If cl.Value = Sheets(i).Name Then
 Sheets(i).Range("c2:ap1000").Clear
cl.Offset(0, -2).Resize(1, 22).Copy Sheets(i).Range("c" & Sheets(i).[c10000].End(xlUp).Row + 1)
End If
Next
Next
End Sub
 

فقط أضفت خاصية مسح البيانات من الأوراق المرحل لها  حتى يتم الترحيل إليها مرة أخرى في السطر التالي :

Sheets(i).Range("c2:ap1000").Clear

تقبل تحياتي وتقديري 

وتحية خاصة للأستاذ القدير / محمود الشريف

[محمود_الشريف]

أخى فى الله

أستاذى الكبير / الشهابى

بارك الله فيكم

وزادكم الله من فضله ومن علمه

دمتم فى أمان الله وحفظه

وتقبل منى وافر الإحترام والتقدير

[محمدعوض]

اخي العزيز لو سمحت المساعدة في اكمال الكود عدم مسح المدخلات في الشيت الرئيسه بس ترحيل حسب اسم الشيت وترحيل بدون تكرار ماتم ترحيله سابقا"وشكرا على المساعدة

تم تعديل فبراير 8, 2014 بواسطه محمدعوض

[طنطاوي]

السلام عليكم ورحمة الله

الاساتذة المحترمين هل ممكن المساعدة في بعض التعديلات على هذا الملف وجزاكم الله خير

في ورقة البحث كما هو مبين بالمرفق اذا كان وقت الحضور الساعة 12 وانصرافه الساعة الواحدة المفروض عدد الساعات يكون واحد ولكن النتيجة غير معلومة  

2- في ورقة البحث ارجو اضافة البحث بين تاريخين بالاضافة الي الاسم

وشكرا مقدما

 

student 2013.rar

[الشهابي]

أخي العزيز / محمد عوض 

الكود لايمسح البيانات في الصفحة الرئيسية وإنما يمسح البيانات في الأوراق المرحل لها منعاً للتكرار الذي طلبته 

لاحظ المرفق 

 

Copy of التصليحات2.rar

[محمدعوض]

اخي يوجد مشكلة لا ينقل كل شي بل شيت الرئيسة يتم نقل سطر واحد منهو  وهو يوجد اكثر من سطر في الشيت الرئيسة يتم ترحيل سطر واحد مامشكله 

[الشهابي]

أخي العزيز / محمد عوض 

إليك التعديل التالي في الكود وإن شاء الله يكون سليما 

والعفو

 

Copy of التصليحات2.rar

[طنطاوي]

الاستاذ الشهابي المحترم

ارجو النظر في طلبي ولك جزيل الشكر

محمد طنطاوي

[الشهابي]

الأخ العزيز / tantawy

في المرة الثانية لا تدخل موضوع على موضوع خاصة إذا لم يكن هنك ترابط بينهما 

وربما لا يطلع عليه الآخرون لمساعدتك

المهم  بالنسبة لموضوعك

 

في ورقة البحث كما هو مبين بالمرفق اذا كان وقت الحضور الساعة 12 وانصرافه الساعة الواحدة المفروض عدد الساعات يكون واحد ولكن النتيجة غير معلومة  

 

السبب في ذلك أنك حدد الوقت 12 مساء ثم حددت الوقت 1 صباحا وهنا 13 ساعة وليست ساعة واحدة والأمر الآخر أنك اتقلت من يوم إلى يوم آخر وهذه تحتاج إلى معادلة خاصة لحساب الوقت 

قمت بتعديل الوقت إلى 1 مساء  والنتيجة مضبوطة إن شاء الله

بالنسبة لطلبك الآخر البحث 

أنت استعملت في هذه الحالة معادلات الصفيف على الرغم إنه ممكن الحساب بمعادلات عادية 

عملت لك ماكروا للتصفية المتقدمة من خلاله يتم البحث بالاسم وبين تاريخين تحددهما  قمت بذلك لأن ملفك يحتوي على أكواد فاستحسن الكود من المعادلة 

والعفو على تأخري الفرد لإنشغالي بعض الشيء

لاحظ المرفق 

student 2013.rar

[طنطاوي]

الاخ الفاضل اولا اشكر اهتمامك

ثانيا اعتذر عن هذا الخطأ

ثالثا انا لست خبيرا في هذا الامر هل تقصد تعديل الوقت على الجهاز ام ماذا ؟ اذا كان التعديل في المستند فاخبرني كيف يتم ذلك

المرفق غير موجود

جزاك الله خيرا

[محمدعوض]

شكرا اخي العزيز جزاك الله خيرا

[محمدعوض]

اخي بس عم بغير اسم Company Name بيتم الترحيل بس المشكله عم بيبقه اول سطر ماعم بينحذف اذا عملت Company Name الكل  نفس اسم عم بيبقه اول سطر ماعم بيترحل  وشكرا 

تم تعديل فبراير 11, 2014 بواسطه محمدعوض

[محمدعوض]

شرح الكود student 2013.rar    ........

Sheets("ÇáÇÏÎÇá").Range("A11:E1678").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("I3:K4"), CopyToRange:=Range("A6:D6"), Unique:=False

[الشهابي]

أخي العزيز / محمد عوض 

إن الترحيل لديك يعتمد أساسأ على الأسماء في العمود الثاني (Company Name)

وأي تغير أو زيادة أسماء  لن يتم الترحيل إليها ولن يحذف البيانات في إجدى الأوراق اللي أسماءها لابد أن تنطبق مع الأسماء في العمود (Company Name)

فإذا اختلفت  أسماء الأوراق عن أسماء العمود (Company Name) لن يتم الترحيل قيها

 

ولكن  ممكن توضح الآلية التي تريدها لعملية الترحيل بشكل مفصل حتى يتم تجنب الأخطاء إن شاء الله 

[محمدعوض]

اخي اريد  الترحيل حسب اسم  العمود (Company Name)  حسب اسم الشيت , ولاكن عندا تغير اسم company name يتم مسح الترحيل السابق . مثلا عند ترحيل على شيت LOGICOM يتم الترحيل وعند تغير اسم بل company name  يتم مسح المعلومات ونقلها الى الشيت الجديد ... مثلا  يكون اسماء  GO MOBILE و CTC  BEIRUT اذا غيرت اسماء  GO MOBILE و CTC  BEIRUTفي company name الى اسم LOGICOM  لايتم مسح السجل يلي بل شيت GO MOBILE و CTC  BEIRUT 

[محمدعوض]

هل بيظبط عمل تقرير يعني  فوم اسم الشيت  من تاريخ الى تاريخ واظهار في شيت التقرير