الـعيدروس

ساأوافيك حالا جاري التحميل

على مااهتقد انك اضفت الخاصيه في الفورم الخطاء اللي هو userform4 والمعني userform1 في خاصية دبل كليك الليت يوكس هذه Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim DADA As String Dim MYSH As Worksheet Dim PASSWORD As Integer On Error Resume Next PASSWORD = InputBox("الرجاء ادخال الرقم المصرح لك به لاتمام العمليه", "إدخال تصريح لحذف موظف مع جميع بياناته") If PASSWORD <> "1234" Then MsgBox "غير مصرح لك باتمام العمليه" Else If OptionButton1.Value Then If MsgBox(":لقد طلبت حذف البيانات التالية" & vbNewLine & "" & vbNewLine & "إسـم المـوظف: " & TextBox2 _ & vbNewLine & "" & vbNewLine & "الـراتب: " & TextBox3 & vbNewLine & "" & vbNewLine & "عـامل: " & ComboBox1 & vbNewLine & "" & vbNewLine & "التصنيــف: " & ComboBox2 & vbNewLine & "" & vbNewLine & "المهنـه: " & ComboBox3 & vbNewLine & "" _ & vbNewLine & "فهل تود الإستمرار؟", vbYesNo + vbQuestion, "تأكيد الحذف") = vbYes Then A = Application.WorksheetFunction.Match(ListBox2, RNG1, 0) Application.ScreenUpdating = False 'Me.Hide MsgBox " تم حذف السجل الخاص ب" & ListBox2 & " بنجاح", vbInformation, "تم الحذف" Application.ScreenUpdating = False DADA = ListBox2.List(ListBox2.ListIndex, 8) Set MYSH = Sheets("data") With MYSH .Application.Range(DADA).Rows.Select .Range(DADA).EntireRow.Delete MsgBox "تمت العمليه بنجاح", 0, "رسالة الالغاء" Application.ScreenUpdating = True UserForm1.Show End With Range("a4:a478").Formula = "=SUBTOTAL(103,$B$2:B3)" '======'دالة المسلسل التلقائي Range("am4:am478").Formula = "=SUM(i4:Al4)" '======'مجموع ايام الغياب Range("aw4:aw478").Formula = "=D4-AN4-AO4-AQ4+AR4-AX4" '==='الصافي النهائي Range("an4:an478").Formula = "=Am4*(d4/30)" '===='إجمالي الغياب Range("h4:h478").Formula = "=ColorFunction($g$1,i4:Al4,TRUE)" '==='جمع ايام الجزاءات Range("d4:d478").Formula = "=c4+at4" '==== ' جمع البدل + الراتب Range("d479").Formula = "=SUM(D4:D478)" '==== 'جمع الكل للبدل والرتب Range("an479").Formula = "=SUM(an4:an478)" '==== ' الجمع الكل إجمالي الغياب Range("ao479").Formula = "=SUM(ao4:ao478)" '==== 'جمع الكل لحقل الخصم Range("aq479").Formula = "=SUM(aq4:aq478)" '==== 'جمع الكل لحقل السكن Range("at479").Formula = "=SUM(at4:at478)" '==== 'جمع الكل للبدل الرسيمه Range("aw479").Formula = "=SUM(aw4:aw478)" '==== 'جمع الكل للصافي النهائ Range("ay4:ay400").Formula = "=VLOOKUP(am4,تقدير,2,true)" '======'دالة التقييم End If End If End If ListBox2.Clear TextBox47.Text = "" TextBox47.SetFocus 1 End Sub

الاستاذ القدير كيماس لايوجد اي اضافات الملف زي ماهو ارجو التأكد من الملف

جاري التجربه حفظك الله

المطلوب خاصية اللصق الى ورقة delet

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

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

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

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

انشاء الله اكون وفقت بتلبية مااردته تفضل المرفق على الرابط التالي http://www.2shared.com/document/5HBWuU4K/___.html

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

اجل ماتريده خانتين من الى بمعنى تريد التكلفه من 15/07/2010 الى 11/06/2010 والخليه المقابله تظهر الاجمالي بين التاريخين الذي ذكرتهم بالاعلى ياريت ترد بما تريده لك نقدر نساعدك

اجل لايوجد عندك برنامج وين رار الذي يفك الضغط اليك ملف الاستاذ طارق محمود من غير ضغط على هالرابط http://www.4shared.com/document/L8e6FvKo/_____.html

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

الاخ الاخت / نوران لايوجد مرفق

وش نوع الاوفيس الذي عندك

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

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

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

علا وعسى يكون هذا طلبك على حسب مافهمت Microsoft Office Excel Worksheet جديد --.rar

يوجد رقم سري في الصفحة

اهلن بك اخي سليم عضوا جديد انشاء الله تستفيد من هالصرح الكبير وتفيد بااذن الله الاخ الفاضل سليم لايوجد مرفق الرجاء ارفاق الملف من جديد او رفعه من احد مواقع الرفع لكي نقدر نساعدك

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

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

يمكن فيه اداة يلزم تحميلها او شيء من هذا القبيل