احمدزمان

اخي محمد يحيى ملف وغكرة اكثر من رائعة تقبل تحياتي

شفت ازاي ياباشا الحل قبل السؤال

السلام عليكم اضغط الملف وحملة

ASADSDS.rar

السلام عليكم و رحمة الله في المرفق كود للأستاذ القدير الفاضل اكسلجي - ابو عبدالله يعتمد على تسمية نطاق التاريخ باسم Date آمل ان يفي بالغرض Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim DateStr As String On Error GoTo EndMacro If Application.Intersect(Target, Range("date")) Is Nothing Then Exit Sub End If If Target.Cells.Count > 1 Then Exit Sub End If If Target.Value = "" Then Exit Sub End If Application.EnableEvents = False With Target If .HasFormula = False Then Select Case Len(.Formula) Case 4 DateStr = Left(.Formula, 1) & "/" & _ Mid(.Formula, 2, 1) & "/" & Right(.Formula, 2) Case 5 DateStr = Left(.Formula, 1) & "/" & _ Mid(.Formula, 2, 2) & "/" & Right(.Formula, 2) Case 6 DateStr = Left(.Formula, 2) & "/" & _ Mid(.Formula, 3, 2) & "/" & Right(.Formula, 2) Case 7 DateStr = Left(.Formula, 1) & "/" & _ Mid(.Formula, 2, 2) & "/" & Right(.Formula, 4) Case 8 DateStr = Left(.Formula, 2) & "/" & _ Mid(.Formula, 3, 2) & "/" & Right(.Formula, 4) Case Else Err.Raise 0 End Select .Formula = DateValue(DateStr) End If End With Application.EnableEvents = True Exit Sub EndMacro: MsgBox "You did not enter a valid date." Application.EnableEvents = True End Sub وله مشاركة اخرى حول دخال الوقت بدون فواصل بحثت عنها ولم اجدها حاليا أسأل الله العلي العظيم ان يكون بخير و في احسن حال

السلام عليكم اخواني قمنا بعمل ورقة خاصة لتحويل الطلبة بين ارجاء الملف الخانة الأولى تختار نوع حالة الطلبة التي تريد نقلها الخانة الثانية تختار من الفصل الخانة الثالثة الى الفصل يقوم بنقل البيانات مع مسح كل صف يتم نقللة يقوم بفرز الورقة من الفصل آمل ان يفي بالمطلوب الشهابي-ترحيل_بشروط.rar

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

اخواني سعد عابد وياسر الحافظ ده نوركم هو الي احلى جزاكم الله كل خير

السلام عليكم بعد الشكر الجزيل لأخي جمال ارجو مشاهدة هذا الموضوع قد تجد به ماتريد http://www.officena.net/ib/index.php?showtopic=38355

السلام عليكم و رحمة الله وبركاته الأب البار Happy New Year على اعتبار ان هذه سنة جديدة في اوفيسنا وكما ذكر اخي ياسر انك دينمو المنتدى - الله يعطيك الف عافية - اللهم لاحسد وجودك خلال هذا العام لمست منه التواجد المستمر وحسن المتابعة وكريم الخلق و كريم العطاء جزاك الله كل خير وزادك الله من فضله و علمة تقبل خالص تحياتي

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

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

السلام عليكم و رحمة الله وبركاته الأستاذ عماد جزاك الله كل خير على هذا الإبداع الرائع و التنسيق الجميل = = = = = = = اهلاً بعالـي الـهمم * * * من بعد غيبه يعــود بعــودته الأنــس تـــم * * * والفرحة مالها حدود للخيـــر يـا كـم وكـم * * * يسعى ويبذل جهود = = = =

السلام عليكم و رحمة الله وبركاته اخواني الشهابي و jall اعتذر عن التأخير حيث كنت مسافر خارج المدينة لعدة ايام طلبكم ابدأ العمل علية من اليوم ان شاء الله تعالى

اخي الفاضل الكريم بعطائة ابو احمد اذنك معاك دائما الأستاذ عماد ماشاء الله عليك منك نتعلم دائما

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

السلام عليكم و رحمة الله وبركاته اذاكنت تريد الغاية فـ الوصول لها ممكن ولكن بدون هذه الوسيلة المحددة دمت بخير

السلام عليكم الله يعينك انا بعيد عن اليوزر فورم لأنه من وجهة نظري ورقة الإكسل تغني عن اليوزفورم واكثر وهذه وجهة نظر

والله ياأخي حاولت اعدل وما قدرت آسف جدا ارجوو المعذرة لأنني في موضوع الفورمز شوية ضعيف

سبحانك ربنا لاعلم لنا الا ما علمتنا انك انت العليم الحكيم

اخي الكريم النسخة الإنجليزية اكسل 2003 تجدها باسم Remove Page Break تقريبا والله اعلم

السلام عليكم اخي المبدع خبير الأكواد/ عماد الحسامي احترت ماذا اقول ولكن لي ديرتٍ عالي السحاب - - - تفخر بفعل رجالها وانا افخر جدا بأعمالك الرائعة جزاك الله كل خير الأستاذ الكريم جدا / Mas123 ايضا ملف رائع جزاك الله كل خير يعجز اللسان ان يوفيكم حقكم من الثناء

السلام عليكم حدد العمود CJ ثم اختار ادراج ومنه اختار ازالة فواصل الصفحات مع التحية

اخونا الحبيب خالد فينك من زمان زاحشنا جدا وتعليقاتك الجميلة

السلام عليكم ابدعو اخواني هشام و Hpen و هذا حل آخر لإثراء الموضوع =IF(COUNTIF($B$2:$B$99;G7)>0;$B$1;IF(COUNTIF($A$2:$A$99;G7)>0;$A$1;IF(LEN(G7)>1;"Nun";""))) IF_3.rar