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

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

السلام عليكم ادرج ملف جديد و نحن في الخدمة

السلام عليكم =SUM(INDIRECT("a"&K1):INDIRECT("a"&K2)) basm1.rar

السلام عليكم هنا يتم حذفها و يمكن تمييزها بلون اخر ell.rar

السلام عليكم الملف المرفق excel 2007 عدله الى 2003

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

السلام عليكم استخدم التنسيق الاتى للخليه المستهدفه [$-401]dddd tt.rar

السلام عليكم اليك الكود التالى مع مراعاة ***** اسماء اللاقراص الصلبه لديك **** Dim FileName As String FileName = Range("A1").Value ActiveWorkbook.SaveCopyAs "d:\format\FileName.xls"

السلام عليكم هى تتعلق باللغه الانجليزية اكثر منها باللغات الاخرى و القصد منها اذا كانت الاحرف كبيره او صغيرة A a B b

السلام عليكم مشكور اخى

السلام عليكم العمل المشترك جميل و الافكار و المعرفة تراكميه كود بسيط بحاجه لتكمله من قبل "من لهم معرفة" * ليشمل اكثر من كلمتين ( ذلك ممكن لكن ليس بالطريقه المرفقه لانها غير عمليه ) * اذا كان الاسم الاول مركب(في حال الاسماء) مثل "عبد الله" كما اشار الاخ خبور في مرفقه تقسيم الاسماء ____________.rar

السلام عليكم انا استخدمت الصيغتين لتختار ما تشاء

السلام عليكم هنا يتم تعطيل فعالية الزر الى ان تستكمل البيانات اذا اردت اخفاء الزر غير الى الاتى Private Sub Worksheet_Change(ByVal Target As Range) If Cells(6, 5).Value = "" Or Cells(7, 5).Value = "" Or Cells(8, 5).Value = "" Then Me.CommandButton1.Visible = False Else Me.CommandButton1.Visible = True End If End Sub ___________________.rar

السلام عليكم ممكن اضافة كل اسماء اوراق العمل في هذا المثال الى قائمه MAGASIN2.rar

السلام عليكم مبدع

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

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

السلام عليكم هل تريد انشاء 200 نسخه من صفحه معينه و تسميه كل نسخه باسم يوم من السنه ؟؟ لو تتكرم و ترسل مثال عربى او انجليزى (وليس فرنسى)

السلام عليكم كود ثانى Application.CommandBars("File").Enabled = True Application.CommandBars("Edit").Enabled = True Application.CommandBars("View").Enabled = True Application.CommandBars("Worksheet Menu Bar").Controls("Insert").Enabled = True Application.CommandBars("Format").Enabled = True Application.CommandBars("Tools").Enabled = True Application.CommandBars("Data").Enabled = True Application.CommandBars("Window").Enabled = True Application.CommandBars("Help").Enabled = True

Application.CommandBars("Worksheet Menu Bar").Enabled = True ضع هذا الكود في حدث الملف workbook open()

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

السلام عليكم عدل في الكود كما تشاء Book1990.rar

=TRUNC(SUM(A15:A26),2) استبدل الصيغه الموجوده في A28 بالكود اعلاه omarrr.rar

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

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