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

السلام عليكم الارخوة الافاضل حاولت كثير ولاكن دون جدوى ارجو المساعده

للرفع

السلام عليكم اللاخوة الافاضل ارجو التكرم بعمل مستحدم وصلاحيات لقد حاولت كثبر ولاكن مع الاسف لم افلح فى ذلك حاولت تطبيق برنامج صلاحيات المستخدمين الاصدار الثانى للاخ الجليل عبد الله المجرب وعبد الله بشقير http://www.officena.net/ib/index.php?showtopic=45248&hl=%2Bبرنامج+%2Bصلاحيات+%2Bالمستخدمين فهل من مساعده لتطبيق ذلك على المرفق ترقيه2.rar

أخى الكريم بارك الله فيكم سلمت يداك

السلام عليكم الاخ الفاضل احمد المسكله تكمن غند تعير المدخل الى تاريخ جرب المرفق كمت هو وغير مدخلات العمود A الى تاريخ وانظر الفرق

السلام عليكم الاخ احمد انا جربت كود المشاركة الاولى وقمت باختيار B2 &B3 &B6&7 ظهر السنتين التى لم يتم اختيارهم ولانى لا اعجز عن تطبيق طلبك فى عدم ظهورهم التواريخ التى لم يتم اختيارها تقبل اعتزارى

السلام عليكم ان يكون حققت المطلوب منتظر الرد تعديل كود تحديد المدى.rar

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

السلام عليكم اخى احمد جربت ولاكن لم يتم المطلوب يوجد معادلات فى العمود W مرتبطه بالعمود K لهذا اريد ان بتم اضافه العمودين يسار العمودين L&K هل يوجد حل جزاك الله خيرا

السلام عليكم اخى الحبيب احمد الزمان اتمنة من الله ان تكون بكل خير اخى كان طلبى ان يتم نسخ العمودين L&K جهة اليمن ولاكنى اخطائت فى طلبى الصحيح ان يتم نسخ العمودين L&K جهة الشمال ... وقد قمت بالمحاوله فى تعديل الكود فى "(With Range("K1 لتصبح "(With Range("M1 ليتم اللصق فظهر الخطاء التالى .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False فهل من حل Sub Insert2ColmnValue() Columns("K:L").Copy With Range("K1") .Insert Shift:=xlToRight .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False .Select End With End Sub ترقيهTIST.rar

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

للرفع

السلام عليكم الاخ إبراهيم ابوليله اين تكون الاضافة ولماذا Columns("M:n") = Columns("M:n").Value n ارجو التوضيخ

السلام عليكم ارجو المساعده فى ضبط الماكرو المرفق المطلوب ان يقوم بنسخ محتوى العمودين كقيمه وفرمات وادراجهم بعد العمودين الذين تم نسخهم مباشرةجهه اليمين الخطاء فى الماكرو المرفق انه يقوم بالنسخ حتى المعادلات لا اريد ان يقوم بنسخ المعادلات .. اريد القيمة والفرمات فقط والا بتم تنفيزة الا من خلال كلمة مرور ()Sub copy_column Columns("K:L").Select Range("L1").Activate Selection.copy Selection.ColumnWidth = 3.71 Columns("M:M").Select Selection.Insert Shift:=xlToRight End Sub جزاك الله خبرا

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

السلام عليكم و رحمة الله وبركاته اسعد الله صباحك بكل خير جزاك الله كل الخير ....سلمت بداك وارجو منك شرح التنسيق... والكود LEN($AB9)>2= جزاك الله كل الخير

اخى الحبيب رجب جاويس سلمت يداك اريد ان اعلك ماذل تعنى هذةالجمله Public ss As Byte واذا تكرمت برجاء شرج الكود للا ستفادة جزاك الله كل الخير

السلام عليكم اخى الحبيب رجب جاويش حاولت ان اضيف اضافه ان يغلف الملف بعد عدد 3 محاولات ولاكن لم اوفق هلى من حل لتصحيح الخطاء Sub addition() Dim ER, R pass = "123" sama = InputBox("إدخل الباسورد لتنفيذ الماكرو") If sama <> pass Then MsgBox ("الباسورد خطاء (الإدخال الخاطئ اكثر من 3 محاولات يقفل البرنامج)") ss = ss + 1 If ss> 3 Then Application.DisplayAlerts = False Application.Quit End If ER = ActiveSheet.UsedRange.Rows.Count For R = 8 To ER If WorksheetFunction.IsNumber(Cells(R, 7)) = True And _ Cells(R, 7) <> 0 Then Cells(R, 7) = Cells(R, 7) + 1 If WorksheetFunction.IsNumber(Cells(R, 23)) = True And _ Cells(R, 23) <> 0 Then Cells(R, 23) = Cells(R, 23) + 1 Next R End Sub

السلام عليكم الاخ الغزيز رجب جاويش سلمت يداك جزاك الله كل الخيرا

السلام عليكم الاخوه الافاضل وجت الحل فى المنتدى جزاكم الله خيرا http://www.officena.net/ib/index.php?showtopic=48367

السلام عليكم الاخوة الافاضل لدى كود لا اريد ان يتم استخدامه الا من خلال كلمه سر اى عند الضغط على الزر يظهر تكست بوكس يطالب بادخال كلمه سر اذا كانت صحيحه يتم تنفيذ الكود واذا كانت كلمه الشر خطاء لا يتم عمل الكود هل يمكن ذلك Sub addition() Dim ER, R ER = ActiveSheet.UsedRange.Rows.Count For R = 8 To ER If WorksheetFunction.IsNumber(Cells(R, 7)) = True And _ Cells(R, 7) <> 0 Then Cells(R, 7) = Cells(R, 7) + 1 If WorksheetFunction.IsNumber(Cells(R, 23)) = True And _ Cells(R, 23) <> 0 Then Cells(R, 23) = Cells(R, 23) + 1 Next R End Sub

السلام عليكم اخى الحبيب احمد جزاك الله خبرا على اهتمامك اخى الحبيب الكود يعل على السن والاساسى اى العمود u&g المطلوب العمل على السن و سنوات الخبرة اى العمود w&g وتم تعديل هذا الكود الرائع ليتم المطلوب ويبقى الجزء المرتبط condational formating يوجد فى الخليه معادله تظهر اسم الترقيه عند تحقيق الشرط وعند عدم تحقيق الشرط لا يكون شئ مثل =IF(AND(F9="عالى";AC9>=29;AC9<36);" يناير اول";IF(AND(F9="عالى";AC9>=36;AC9<42);" اول ";IF(AND(F9="عالى";AC9>=65;AC9<72);" يناير ممتاز";IF(AND(F9="عالى";AC9>=72;AC9<79);" ممتاز ";IF(AND(F9="عالى";AC9>=89;AC9<95);" يناير ن رئيس قسم";""))))) جزاك الله خيرا

للرقع

السلام عليكم الساده الكرام هل يمكن المساعده فى عمل كود يتم به اضافه عدد 1 الى العدد الموجود فى العمود G و W اى عند استخدام الكود يتم زياده العمر عام وزياده سنوات الخبرة عام وذلك على جميع الخلايا التى بها السن وسنوات الخبرة وللعمل قد يتم زياده الصفوف او تقليها حسب الحاجه وان يتم ذلك على كل الصفحات او الصفه التى اقف بها وكذلك عمل condational formatingعلى اساس عند وجود اى ترقيه فى العمود ab يتم تلوين الخليه المقابله فى العمود Z بلون معين كلم السر للصفحات 123 ترقيه.rar

السلام عليكم الاخوه الافاضل للرفع