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

اخى العزيز بن علية حاجي لا يكفينى الا الدعاء لك فى ظهر الغيب اسال الله العظيم ان يجعل ذلك فى ميزان حسناتك تم ضبط الامر فى شيت المغادرين والقادمين جزاك الله خير

السلام عليكم اخى العزيز اولا جزاك الله خير على المجهود الرائع معى ولاكن يوجد مشكله في شيت المغادرين والعائدين حيث يوجد استدعاء خطاء في خانه عوده خانه I حيث انها تستقى من شيت عام من خانه p الخطاء موجود في شيت المغادرين والعائدين جزاك الله خيرا شاكر لك حسن تعاونك

جزء ثانى مانفست كلابشه بدون تكرار3.part2.rar

جزء اول مانفست كلابشه بدون تكرار3.part1.rar

السلام عليكم المرفق بعتزر على الخطاء السابق سوف يتم ارسال الملف على مرتين

الاخ العزيز هذا هو طلبى فعلا جزاك الله خير

السلام عليكم الساده الكرام برجاء ضبط كود الترحيل بما يتناسب بترحيل وسيله العوده كما في كل شيت في مكانها الصحيح في شيت العام وكذا اشم الشيت التى تم الترحيل من في عام مه اضافه تحذير عند استخدام زر المسح جزاكم الله كل الخير مانفست كلابشه بدون تكرار3.part2.rar

الساده الافاضل الاخوة الاعزاء السلام عليكم ارجو اضافه تنبيه ( تحذير عند المسح ) في هذا الكود Sub delete_data() Application.ScreenUpdating = False Range("B5:B35" & ",F5:F35" & ",H5:H35" & ",L5:L35").ClearContents Application.ScreenUpdating = True End Sub

السلام عليكم ورحمة الله أخي الكريم، جزاك الله خير أخوك أحمد محمد

السلام عليكم اخى العزيز شاكر لك مجهودك جزاك الله خيرا

السادة الكرام... الاخوة الاعزاء السلام عليكم ورحمه الله وبركاته ارجو من يدلنى على كود طباعة الغرض منه طباعه ورقه واحده حدودها a1 :h37 هذه الورقة بحدودها موجده في عدد 5 شيت اسم كل شيت كاتى A B C D E اريد كود يطبع الخمس ورقات كل ورقه من الشيت الخاص به جزاكم الله خيرا

السلام عليكم ورحمة الله أخي الكريم بن علية حاجى جزاك الله خيرا

السلام عليكم ورحمة الله أخي الكريم بن علية حاجى ما فهمته ان اضع هذا السطر مكان range سؤال ماذا يعنى SpecialCells(xlCellTypeConstants, 23 وما قيمة الرقم 23 جزاك الله خيرا

مثال على ما اريده اخى العزيز اصل الملف يتعزر على ارساله كل ما اريده محو البيانات دون المعادلات في نفس النطاق لعدد 22 شيت يوجد معادلات في شيتات ولا يوجد في اخرى في نفس النطاق المراد محوه جزاك الله خير Book1.rar

هلى يمكن التعديل على كود مسح الخليا فى النطاق الموضح بالكود ...... بحيث يمسح محتوى الخلايا فقط دون المعادلات Sub delete_1() Application.ScreenUpdating = False prompt = "هل حقا تريد مسح البيانات ؟؟ أنتبة .. لا يةجد ترجع عن المسح!!" Command_buttons = vbYesNo + VbMsgBoxRt1Reading Title = "انتبه... تحذير هام " Range("B5:B100" & ",F5:F100" ).ClearContents Application.ScreenUpdating = True End Sub وكذلك الكود ()Sub delete_2 Application.ScreenUpdating = False prompt = "هل حقا تريد مسح البيانات ؟؟ أنتبة .. لا يةجد ترجع عن المسح!!" Command_buttons = vbYesNo + VbMsgBoxRt1Reading Title = "انتبه... تحذير هام " For Each sh In Worksheets If sh.Name Like "A" Or sh.Name Like "B" _ Or sh.Name Like "C" Or sh.Name Like "D" _ Then sh.Select: Range("B5:B100" & ",F5:F100" ).ClearContents Next Application.ScreenUpdating = True Sheets("Z").Select End Sub

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

السلام عليكم اخى العزيز بن علية جزاك الله خير ....... ما قدمته من حلول فوق ما طلبت وكل اضافه منك تعلمنى اكثر شكرا لك على مجهودك انا الذى ما فهمت ما في العمود L اعزرنى شاكراً للجميع على على المساعده

السلام عليكم اخى العزيز بن علية ... الملف يعمل بصورة جيده .... لم افهم ما في العمود L ومن هنا ليس لماكرو delete_data اى معنى ويقى السوال الاخير..... وسامحنى على الاطاله اذا ما تم محو بيانات صف في عام ابتداء من التاريخ الى العودة ( b to h ) هلى يتم رفع البيانات التى تليه الى مكانه حتى لا يبقى صف فارغ ؟؟؟؟؟؟ جزاك الله خير

اخى العزيز بن علية لا اعلم لماذا لا يعمل كود الترحيل ( مرفق الملف الذى لا يمل به الترحيل بعد اخر اضافه من حضرتك ) هل المشكله من عندى ام ماذا جزاك الله خيرا مانفست كلابشة_Ali13.rar

السلام عليكم اخى العزيز بن علية ... اخى العزيز طارق .... يعجز لسانى عن تقديم الشكر .. والتقدير عما قدمتموه .... من مجهود ووقت اسال الله العظيم رب العرش العظيم ان يجعل ذلك في ميزان حسناتكم اسال الله العظيم رب العرش العظيم ان يجعل ذلك في ميزان حسناتكم اسال الله العظيم رب العرش العظيم ان يجعل ذلك في ميزان حسناتكم شاكراً للجميع المساعده

السلام عليكم الاخ الكريم ...أحمد فؤاد جزاكم الله خير على الافاده

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

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

السلام عليكم الاخوة الاعزاء..... مرفق كود ترحيل من اكثر من شيت المشكله تكمن عند الضغط على زر الترحيل اكثر من مره لو عن طريق الخطاء يتم ترحيل البيانات مره أخرى هل من حل لمنع تكرار الترحيل ... بحيث اذا تم الترحيل مره وتم اضافه بيانات أخرى ... يتم ترحيل هذه البيانات فقط واذا لم يصح ذلك هل يمكن اضافه في الكود بحيث عن الترحيل يتم مسح لبيانات من المصدر وليس مسح المعادلات جزاكم الله كل الخير 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

السلام عليكم الاساتذة الكرام ... الاخوة الكرام هل من مجيب في ذلك الطلب ......؟ جزاكم الله خير