ترحيل على كود ترحيل

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوة الاعزاء.....

مرفق كود ترحيل من اكثر من شيت

المشكله تكمن عند الضغط على زر الترحيل اكثر من مره لو عن طريق الخطاء يتم ترحيل البيانات مره أخرى

هل من حل لمنع تكرار الترحيل ... بحيث اذا تم الترحيل مره وتم اضافه بيانات أخرى ... يتم ترحيل هذه البيانات فقط

واذا لم يصح ذلك

هل يمكن اضافه في الكود بحيث عن الترحيل يتم مسح لبيانات من المصدر وليس مسح المعادلات

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

 

Sub tarheel()

Dim sh(9)

mysh = "عام"

sh(1) = "الاتوبيس": sh(2) = "طائرة": sh(3) = "مطروح": sh(4) = "تعديل"

 

For I = 1 To Sheets.Count

    For j = 1 To 4

        If Sheets(I).Name = sh(j) Then

            With Sheets(I)

                LR = .[b35].End(xlUp).Row

                dt = .[F3]

                If LR = 4 Then GoTo 1

                With .Range("B5:H" & LR)

                      s = .Rows.Count

                      .Copy

                End With

            End With

            Sheets(mysh).Activate

                nr = [i99999].End(xlUp).Row + 1

                Cells(nr, "I").PasteSpecial Paste:=xlPasteValues

                Range("H" & nr & ":H" & nr + s - 1) = dt

                Range("P" & nr & ":P" & nr + s - 1) = sh(j)

                sh(j) = "finish"

        End If

1:    Next j

Next I

X = [H100000].End(xlUp).Row + 1

Cells(X, "G").Select

End Sub

[بن علية حاجي]

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

 

أخي الكريم، قد تم سابقا إنشاء كود في ورقة "عام" لمسح مضمون الأوراق الأربعة (طائرة-أوتوبيس-مطروح-تعديل) يكفي في هذه الحالة إضافة إلى كود الترحيل أمر تنفيد كود المسح الذي تم تسميته "Delete_Datas" وقد تم التعديل على الكود في الملف المرفق...

 

أخوك بن علية

 

الملف المرفق : مانفست كلابشة_Ali10.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخ العزيز  ... بن علية حاجى 

جزاك الله خير .... تم المطلوب ...

ويبقى سوال .....

هل من حل لمنع تكرار الترحيل ... بحيث اذا تم الترحيل مره وتم اضافه بيانات جديده  اضافة ال ى البيانات القديمى ... يتم ترحيل البيانات الجديده فقط دون القديمة ؟

شاكر لك سعيك لمساعده الجميع

[طارق محمود]

السلام عليكم

ل من حل لمنع تكرار الترحيل ... بحيث اذا تم الترحيل مره وتم اضافه بيانات جديده  اضافة ال ى البيانات القديمى ... يتم ترحيل البيانات الجديده فقط دون القديمة ؟

 

 

نعم يوجد حل ، ولكن بمساعدة

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

وعندما تضع بيانات جديدة ، لن تكون هذه الخلية ملونة

وقبل الترحيل سيتم عمل مراجعة بالكود للون تلك الخلية وبعد الترحيل سيلونها الكود

 

مثال آخر سيضع الكود في خلية مقابلة للبيانات (في عمود بعيد عنهم) رقم أو كلمة

وقبل الترحيل سيتم عمل مراجعة لتلك الخلية وبعد الترحيل سيضع  بها الكود الرقم أو الكلمة

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى العزيز طارق

هل لك ان توضح ذلك  على مرفق اخى بن علية

ليتضح الامر

شاكراً لك سعيك لمساعده الجميع

[ا بو سليمان]

هم  هم  ههههههههههههههم   هم هم  اخيرا  وجت الكووووووووووود   

مشكوووووووووووورين

[بن علية حاجي]

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

 

أخي الكريم حمادة، الفكرة كما ذكرها أخي الحبيب طارق وكنت أعمل على ذلك... تم التعديل على الكود بما يوافق المطلوب حيث يتم إضافة كلمة "تم الترحيل" في خلايا العمود L في الشيتات الأربعة بعد عملية مباشرة بعد الترحيل وبالمقابل تم أيضا التعديل على أكواد المسح (بإضافة مسح العمود L)... أرجو أن لا يكون في الملف أخطاء (كود الترحيل المعدل) فقد حاولت تجربة كل الحالات الواردة ووو.... 

 

أرجو أن يفي هذا التعديل بالغرض المطلوب...

 

أخوك بن علية

 

الملف المرفق : مانفست كلابشة_Ali11.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى العزيز بن علية ... اخى العزيز طارق ....

يعجز لسانى عن تقديم الشكر    .. والتقدير  عما قدمتموه .... من مجهود ووقت

اسال الله العظيم رب العرش العظيم  ان يجعل ذلك في ميزان حسناتكم

اسال الله العظيم رب العرش العظيم  ان يجعل ذلك في ميزان حسناتكم

اسال الله العظيم رب العرش العظيم  ان يجعل ذلك في ميزان حسناتكم

شاكراً للجميع المساعده

[۩◊۩ أبو حنين ۩◊۩]

اخى العزيز بن علية

لا اعلم لماذا لا يعمل كود الترحيل ( مرفق الملف الذى لا يمل به الترحيل بعد اخر اضافه من حضرتك )

هل المشكله من عندى

ام ماذا

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

مانفست كلابشة_Ali13.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى العزيز بن علية ...

الملف يعمل بصورة جيده .... لم افهم  ما في العمود L

ومن هنا ليس لماكرو  delete_data  اى معنى

ويقى السوال الاخير..... وسامحنى على الاطاله

اذا ما تم محو بيانات صف في عام  ابتداء من التاريخ الى العودة ( b to h )

هلى يتم رفع البيانات التى تليه الى مكانه حتى لا يبقى صف فارغ ؟؟؟؟؟؟

جزاك الله خير

[بن علية حاجي]

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

 

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

بالنسبة لطلبك الأخير قمت بالتعديل أولا على معادلات العمود G في شيت "عام" ثم على كود الترحيل بحيث يقوم بعد عملية الترحيل بفرز البيانات المرحلة أو التي تم التعديل عليها (بحذف صف أو صفوف من العمود H إلى العمود P -عمود "اسم الشيت"- وليس العمود b كما كتبتَ في ردك)... لذا بعد حذف بيانات صف أو صفوف من العمود H إلى العمود P في شيت "عام" انقر على زر "الترحيل" لفرز البيانات دون ترك فراغات في الصفوف المتبقية بعد الحذف...  

 

أرجو أن يعجبك هذا التعديل....

 

بالنسبة للعبارة في ردك السابق "لم أفهم ما في العمود L" هل هو تساؤل؟؟؟

 

أخوك بن علية

 

الملف المرفق : مانفست كلابشة_Ali13_Bis.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى العزيز بن علية

جزاك الله خير ....... ما قدمته من حلول فوق ما طلبت

وكل اضافه منك تعلمنى اكثر

شكرا لك على مجهودك

انا الذى ما فهمت ما في العمود  L    اعزرنى

شاكراً للجميع على على  المساعده

[۩◊۩ أبو حنين ۩◊۩]

اخى العزيز

المرفق هو اخر تعديل قد اضفت به بعض الاضافات 

لذا ارجو من حضرتك ضبطه من تاحيه عدم التكرار  وملئ الصف اذا ما حذف من العام ....كالملف الذى ارسلته اخيرا

حيث لا استطيع ضبطة مثله

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

مانفست كلابشة بدون تكرار.rar