هادى محمد المامون سالم

بسم الله الرحمن الرحيم رائع اخى خبور كالعاده السلام عليكم

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

بسم الله الرحمن الرحيم و للاضافه و يمكن نقل متغير الى الاجراء و استدعائه عده مرات Sub DOIT() Dim Str As String Str = [A1] My_Call (Str) Str = [A2] My_Call (Str) End Sub Private Function My_Call(Str) MsgBox (Str) End Function مرفق ملف السلام عليكم My_Call.rar

بسم الله الرحمن الرحيم أرفق الملف السلام عليكم

بسم الله الرحمن الرحيم رائع ربنا يبارك لك السلام عليكم

بسم الله الرحمن الرحيم هناك مشكله اخرى و هى لا يمكن ارسال رسائل و تظل فى Outbox مشكور لمن يتفضل بالرد السلام عليكم

بسم الله الرحمن الرحيم الف حمد لله على السلامه السلام عليكم

بسم الله الرحمن الرحيم و للتغلب على هذه المشكله يمكن أضافه On Error Resume Next ليكون الكود كالتالى Sub DOIT() Dim MySheet As Worksheet On Error Resume Next For Each MySheet In Worksheets MySheet.Name = MySheet.Range("a1").Value Next MySheet End Sub السلام عليكم

بسم الله الرحمن الرحيم أول مره ألاحظ أن يحيى حسين هو Justice و انا عمال أقول مين الرائع يحيى حسين ؟ لا ادرى لماذا الكود لا يعمل معى فى جميع اوراق العمل بدلا من نسخ الكود فى أوراق العمل يمكن اضافه اجراء و نريح نفسنا بنفس كودك السابق و لكن بتعديل بسيط و لكن يجب عدم تكرار اسم اوراق العمل بالخليه A1 Sub DOIT() Dim MySheet As Worksheet For Each MySheet In Worksheets MySheet.Name = MySheet.Range("a1").Value Next MySheet End Sub مرفق ملف السلام عليكم Justice_Hady.rar

اخى الحبيب خبور : مشاركاتك دائما رائعه, جزاك الله خيرا و لكن أعتقادى ان العكس هو المطلوب

بسم الله الرحمن الرحيم لريط أسم و رقه العمل بالخليه A1 أستخدم الكود التالى : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then Sheet1.Name = [A1] End If End Sub مرفق ملف السلام عليكم Sheet_Name.rar

بسم الله الرحمن الرحيم رائع كالعاده أخى أحمد السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Add_01.rar

بسم الله الرحمن الرحيم أسف اخى الكريم لا أستطيع فهمك السلام عليكم

بسم الله الرحمن الرحيم أستخدم الكود التالى : Dim i As Integer Dim MY_Sheet As String Sub Show_All() MY_Sheet = "Sheet1" UnHid End Sub Sub DOIT() MY_Sheet = "Sheet1" UnHid Hid End Sub Private Function UnHid() For i = 1 To 10 Sheets(MY_Sheet).Rows(i).Hidden = False Next i End Function Private Function Hid() For i = 1 To 10 If Sheets(MY_Sheet).Cells(i, "A").Value = 0 Then Sheets(MY_Sheet).Rows(i).Hidden = True End If Next i End Function و قد قمت بأضافه مفتاح لأظهار جميع الصفوف اذا اردت مرفق ملف السلام عليكم Hide.rar

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

بسم الله الرحمن الرحيم أستخدم الكود البسيط النالى Sub DOIT() Range("C2:C101").ClearContents For i = 2 To 101 Cells(i, "C").Value = Cells(i, "A").Value + Cells(i, "B").Value Next i End Sub مرفق ملف السلام عليكم ADD.rar

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

بسم الله الرحمن الرحيم شكرا ا . محمد طاهر دائما انت المنقذ تم حل المشكله بعد تحميلى الاداه لبرنامج Microsoft Office Outlook 2007 وهذا يمثل 90 % من المشكله, و لكن هذه الاداه لا تعمل معى على OutlookExpress 6 جزاك الله خيرا السلام عليكم

بسم الله الرحمن الرحيم لا ادرى ماحدث لبرنامج OutlookExpress 6 لا استطيع الدخول على حسابى مع العلم انى ادخل عن طريق المتصفح (hotmail.com) بمنتهى السهوله و الرساله التى تظهر الان وفى Details و مشكور لمن يتفضل بالرد السلام عليكم

بسم الله الرحمن الرحيم الف مبروك و الى الامام دائما السلام عليكم

بسم الله الرحمن الرحيم ستجد الموضوع القديم بعد تعديل العنوان (العنوان القدبم لا يعبر عن مضمون الموضوع طبقا لقواعد المشاركات) هنا السلام عليكم

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

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

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