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

للرفع مرفق الملف Book2.rar

للرفع الملف المرفق

السلام عليكم الاخوة الكرام ..... تقبل الله منا ومنكم خير الاعمال اخوانى الكرام اريد المساعده على عمل كود طباعة به شاشة حوار 1- طباعه كروت الشهر على اساس الادارة المتواجده فى العمود N (N123;N83;N43;N3 ( اى عند اختيار ادارة مثل Adm. يتم طباعه الكروت الخاصة بتلك الادارة مع وجود اختيار..... طباعه كل الكروت الخاصه بتلك الادارة ..... او الكروت التى بها حركه **** والكارت الذى به حركة يكون على اساس العمود T فى الخلية (T156;T116;T76;T36 ) وهكذا اومحتوى العمود Z وذلك لعدم طباغه الكروت كلها حيث ان عدد الكروت بتعدى 250 كارت وثابل للذياده .. ارجو ان تكون الصورة واضحة جزاكم الله كل الخير

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

السلام عليكم تم اصلاح الكود بعد النظر فى ود قد قدمه الاخ احمد حمور فى الموضوع التالى http://www.officena.net/ib/index.php?showtopic=33810&hl=%2Bكود+%2Bلعمل+%2Bنسخه+%2Bاحتياطيه فاصبح الكود وانت المشكله تكمن فى الجزء الملون باللون الاحمر Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.Save Application.DisplayAlerts = False If Date >= #1/26/2014# And Time >= #6:45:00 AM# Then If Application.UserName = "ahmed.moh" Or Application.UserName = "MOHAMED.AHMED" Then ActiveWorkbook.SaveAs "D:\" & ThisWorkbook.Name ActiveWorkbook.SaveAs "D:\today.xls", FileFormat:=xlExcel8 End If End If End Sub

للرفع

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

للرفع

السلام عليكم الاخوة الكرام ارجو المساعده فى تصحيه الكود بالملف المرفق 1- الملف ياتى عن طريق الاميل كل يوم على اساسه انه تقرير يومى واسمه بهذاالشكل TGP REPORT 02-APR-15 يوم 4/2 TGP REPORT 03-APR-15 يوم 4/2 TGP REPORT 04-APR-15 يوم 4/3 TGP REPORT 05-APR-15 يوم 4/5 2- اريد ان يتم حفظ الملف بنفس الاسم الوارد به الملف فى d:\1 3- اريد ان يتم حفظ نفس الملف باسم اخر today على \:d وذلك عن غلق الملف المشكله تكمن فى حفظ الملف باسمه الاصل الذى يتغير كل يوم .. ارجو المساعده TGP REPORT 02-APR-15.rar

للرفع

للرفع علما بان الملف الاصلى يتم تغير اسمه يوميا طبقا للتاريخ اى TGP REPORT 02-APR-15 TGP REPORT 03-APR-15

ارحو ان تكون الصوره واضحه

السلام عليكم اخى الكريم احمد عبد النصر الامر تم بصوره جيده جدا الا انى اريد ان يتم حفظ الملف الاصلى بنفس الاسمفى مكان محدد d:\1 معالاحتفاظ بنسخه لخرى فى مكان اخر لاسم اخر d:\ahmed جزاك الله خيرا Private Sub Workbook_BeforeClose(Cancel As Boolean) If Date >= #1/26/2014# And Time >= #8:00:00 AM# Then If Application.UserName = "ahmed.moh" Or Application.UserName = "MOHAMED.AHMED" Then اريد اسم الملف الاصلى للملف ActiveWorkbook.SaveAs "D:\1\.xlsb", FileFormat:=xlExcel12 النسخه الاخرى ActiveWorkbook.SaveAs "D:\ahmed\today1.xlsb", FileFormat:=xlExcel12 End If End If End Sub

السلام عليكم الاخوة الكرام وجت الكود المطلوب من عمل الاستاذ الكبير حماده عمر واريداضافه شرط جديد لا يتم الحفط على اساسه ان يتم حفظ الملف بجانب شرط التريخ والوقت بشرط ان يكون اسم المستخدم ( مستخدم الوندوز ) AHMED.MOHAMED او MOHAMED.AHMED يتم حفظ الملف اى لا يتم حفظ الملف الا اذا كان المستخدم هو AHMED.MOHAMED او MOHAMED.AHMED tarek_report.rar

السلام عليكم الاخوة الكرام هلى بمكن عمل كود بقوم بحفظ الملف باسم اخر ويتم حفظه فى مكان محدد داخل ملف محدد عند فتحه دون ان يتظهر عمليه الحفظ باسم اخر 1- اسم الملف الاصلى tarek_report 2- يتم حفظ الملف عند فتحه باسم today+ تاريخ اليوم يتم حفظه على d داخل ملف اسمه tarek_report1 جزاكم الله خيرا tarek_report.rar

جزاكم الله خيرا تم البحث وايجاد الحل باللمنتدى Public ss As Byte Sub addition1() On Error Resume Next pass = "240" sama = InputBox("برجاء ادخل كلمة المرور") If sama <> pass Then ss = ss + 1 MsgBox ("كلمةالمرور خطاء ...الادخال الخاطئ اكثر من 3 محاولات يغلق البرنامج" & Chr(10) & " " & "باقى لك عدد" & " " & 3 - ss & " " & "محاولة") If ss >= 3 Then Application.Quit End If Exit Sub End If Dim ER, R, SH For SH = 2 To 2 Application.ScreenUpdating = False Sheets(SH).Select Sheets(SH).Unprotect "5240" ER = Sheets(SH).UsedRange.Rows.Count For R = 8 To ER If WorksheetFunction.IsNumber(Cells(R, 8)) = True And _ Cells(R, 8) <> 0 Then Cells(R, 8) = Cells(R, 8) + 1 If WorksheetFunction.IsNumber(Cells(R, 11)) = True And _ Cells(R, 11) <> 0 Then Cells(R, 11) = Cells(R, 11) + 1 Next R On Error Resume Next Application.ScreenUpdating = True MsgBox "تم اضافة عام للخبرة والسن ... وشكرا.." & CHR10 & Sheets(SH).Name, vbMsgBoxRight, "الحمدلله" Sheets(SH).Protect "5240" Next SH End Sub Sub remove1() On Error Resume Next pass = "240" sama = InputBox("برجاء ادخل كلمة المرور") If sama <> pass Then ss = ss + 1 MsgBox ("كلمةالمرور خطاء ...الادخال الخاطئ اكثر من 3 محاولات يغلق البرنامج" & Chr(10) & " " & "باقى لك عدد" & " " & 3 - ss & " " & "محاولة") If ss >= 3 Then Application.Quit End If Exit Sub End If Dim ER, R, SH For SH = 2 To 2 Application.ScreenUpdating = False Sheets(SH).Select Sheets(SH).Unprotect "5240" ER = Sheets(SH).UsedRange.Rows.Count For R = 8 To ER If WorksheetFunction.IsNumber(Cells(R, 8)) = True And _ Cells(R, 8) <> 0 Then Cells(R, 8) = Cells(R, 8) - 1 If WorksheetFunction.IsNumber(Cells(R, 11)) = True And _ Cells(R, 11) <> 0 Then Cells(R, 11) = Cells(R, 11) - 1 Next R On Error Resume Next Application.ScreenUpdating = True MsgBox "تم حذف من الخبرة والسن ... وشكرا.." & CHR10 & Sheets(SH).Name, vbMsgBoxRight, "الحمدلله" Sheets(SH).Protect "5240" Next SH End Sub

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

السلام عليكم الاخوة الكرام ارجو المساعده فى تصحيح الخطاء فى الاكواد المرفقه كود يقوم بإضافه عام على سنوات السن وسنوات الخبرة و كود يقوم بحذف عام من سنوات السن وسنوات الخبره اى العمود K & H على ان يطبق الكود على هذا الشيت فقط جزاكم الله كل الخير اضافى وحذف عام.rar

السادة الكرام جزاك الله كل الخير تم ايجاد الحل فىالمنتدى =COUNTIF($C$1:$C$34;"ترقية")+COUNTIF($C$1:$C$34;"ترقية يناير") 1.rar

السلام عليكم الساده الكرام هل يمكن استخدام COUNTIF لجمع محتوى خليه لاكثر من شئ مثال =COUNTIF($X$9:$X$34;"ترقية") هل يمكن اضافة "ترقية يناير" جزاك الله كل الخير

جزاك الله كل الخير جزاك الله كل الخير جزاك الله كل الخير

اخى الحبيب بن علية حاجى جزاك الله كل الخير سوال اخير يوجد كود Sub ragab() Dim cl As Range Application.ScreenUpdating = False ActiveSheet.Unprotect "2191612" T = Range("B1").Text On Error Resume Next Set Rng = Sheets(T).Range("C2:ND2") For Each cl In Rng If Range("c2") = cl Then x = cl.Column Range("C3:C35").Copy Sheets(T).Cells(3, x).PasteSpecial xlPasteValues Application.CutCopyMode = False Exit For End If Next Application.ScreenUpdating = True ActiveSheet.Protect "2191612" End Sub يقوم بترحيل البيانات من شيت TODAY الى اى شيت على اساس اسمه الموجود فى الخليه B1 اريد عمل حمايه لجميع الشيتات كيف لهذا الكود ان يقوم بالترحيل من شيت TODAY الى الشيت المراد والشيت المراد الترحيل اليه محمى جزاك الله كل الخير

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

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

السلام عليكم الاخوة الكرام ارجو من الله ان يكون الجميع بكل خير وعافيه الاساتذة الكرام ارجو المساعده فى شيت CHART على اساس استقدام البيانات على اساس 1 – اسم الشيت المراد استقدام البيانات منه يتم اختياره من الخليه A3 2- بين التاريخين الذين يظهر فى B2 & A2 3- يتم استقدامك البيانات المراده على اساس الخلايا A5 الى A13 بمعنى اريد استقدام البيانات من شيت عام 2015 خلال الفترة من 1/1/2015 الى 31/1/2015 بيانات WALLS & FEED & EXPORT&OIL ارجو ان اكون قد بينت المطلوب Data.rar