ابو اسامة العينبوسي

السلام عليكم هنا ملف فيه لمعانى اللارقام و الرموز التى تستخدم في الاكواد و منها الرقم المشار اليه اعلاه "524288" و هى تعنى ان يكون نص عنوان مربع الحوار الى اليمين باختصار بدل ان تكتتب vbMsgBoxRight تم الترحيل بنجاح", vbMsgBoxRight, "تم الترحيل" و في الملف ايضا الكتير من الرموز و الارقام التى تفيد المستخدم في ال Msgbox L2.rar

السلام عليكم time.rar

السلام عليكم لم افهم المطلوب

السلام عليكم ارفق الملف

السلام عليكم هذا معنى الاتمته توفير الوقت الذى هو راس مال المسلم

السلام عليكم لم افهمها البند الثالث حله هكذا Private Sub Worksheet_Change(ByVal Target As Range) Dim x As String Application.EnableEvents = False x = Application.WorksheetFunction.Weekday(Cells(1, 1)) If x = 1 Or 5 Or 3 Then N = 1 For i = 1 To 9 Range("a1").Offset(i, 0).Value = Cells(1, 1).Value + N N = N + 1 Next End If Application.EnableEvents = True End Sub و اسف لانى لم اتمكن من عمله الا بالكود

السلام عليكم نعم هو ركن من اركان المنتدى خلقا و علما اسال الله ان يشفيه

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

السلام عليكم يجب ضغط الملف قبل ارساله

السلام عليكم ________Xl0000004.rar

السلام عليكم ليس هذا الكود هناك كود اخر مسؤول عن ظهور هذه الرساله ارسل الملف باكمله

السلام عليكم ارسل الكود لو تكرمت

السلام عليكم اسف لانشغالى اليك حلا مقترحا _________________.rar

السلام عليكم مشكور و بارك الله فيك

السلام عليكم على عجاله حتى يتسنى اكمال كود الايقاف كما يمكن عمل اللون لكل قيمه يختلف عن الاخر ** اذا كنت تريد تلوينها فقط دون الوميض ممكن ذلك عن طريق التنسيق الشرطي =H14=LARGE($H$14:$H$26,1) للقيمه الثانيه =H14=LARGE($H$14:$H$26,2) للقيمه الثالثه =H14=LARGE($H$14:$H$26,3) FLASH_Large_3.rar

السلام عليكم و رحمه الله بورك فيك و جزيت خيرا

=IF(MINUTE(A1)<30,"late","")

السلام عليكم ممكن ذلك لكن كم اسماً تريد التعامل معه ؟

السلام عليكم ممكن عمل ذلك باكثر من طريقه ______.rar

السلام عليكم ممكن عمل ذلك باكثر من طريقه

السلام عليكم ActiveCell.Value = Cells(2, 1).Value ActiveCell.Offset(0, 1).Value = Cells(2, 2).Value

السلام عليكم هنا حل مشكله التاريخ Private Sub CommandButton1_Click() Dim MyDate As String MyDate = Format(Range("b1"), "mm-dd-yyyy") ActiveSheet.Name = Cells(1, 1).Value & " " & MyDate End Sub السؤال التانى ارفق له ملف Book11.rar

السلام عليكم انا احبك و احب اعمالك و الفت نظر الاستاذ محمد الطاهر ان تكون من الاخوه الفعالين فانت فعلا تكسب المنتدى ماده حقيقيه نتعلم منها جميعا و لديك المام جيد بالدوال هذا ما يحتاجه المنتدى و ليس امور اخرى ان تفهم دوال الاكسل وتراكيبها شيء ممتع و جذاب و خلاق و ابداع فكما قال الاخ مصطفى (من مصر) الاكسل = الاحتراف الدوال ممكن (لمن يجيدها(ولستُ منهم)) ان تحل محل الكود في 80% من الحلول و زادك الله علما و الله الموفق

السلام عليكم اذا لم ترد ازرار ممكن ان تضع الكود الخاص بالاخ aah_aah2008 في حدث Change في الورقه المراد فلترتها و الا : فهناك حل سهل جدا و سريع و جميل و متاح من الاكسل نفسه من الفلتره التى انت عاملها اختر العمود C و من تصفيه مخصصه > اختر اظهار القيم التى تساوى > اكبر من صفر يظهر لك الشكل التالى في المرفق ok12.rar

السلام عليكم لا يوجد مرفق اخى الاخ aah_ahh شكرا على الكود