قنديل الصياد

مرفق للتعديل

رائع استاذى العظيم ابو حنين وهذا الكود استخدمه استاذنا فى حدث ورقة تسجيل البيانات Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer LR = Cells(Rows.Count, 1).End(xlUp).Row On Error Resume Next If Target.Column <> 1 Or Target = "" Then Exit Sub If Application.WorksheetFunction.CountIf(Range("A2:A" & LR), Target) > 1 Then MsgBox "هذا الرقم مكرر فى الخلية", vbInformation, "اسم مكرر" Target = "": Target.Select Exit Sub Else Target.Offset(0, 1) = Val(Target.Offset(-1, 1)) + 1 End If End Sub

اخى العزيز مرفق ملف لعله يكون المطلوب New ورقة عمل Microsoft Excel.rar

مرفق ملف الكنترول للتعديل

مرفق ملف الكنترول للتعديل

مرفق ملف الكنترول للتعديل

اخى العزيز شكرا لاستاذنا الكبير المهندس / طارق محمود واليك ملف به تطبيق على المعادلة Yasser.rar

السلام عليكم اخى العزيز مرفق ملف به تطبيق لكود استاذنا الكبير الاستاذ / عبد الله باقشير ahmed1981.rar

مرفق ملف الكنترول للتعديل

تكبير و تصغير الاكسل

جزاك الله خيرا اخى الاستاذ / على حسن وجزاك الله خير الجزاء استاذنا / عباد مرفق ملف به الكود ويعمل على جميع الصفحات الاستاذ على حسن.rar

كود اخر لانشاء ملف اكسيل جديد من داخل الملف الذى تعنمل عليه وحفظه باى اسم تختاره Sub addnew() Set newbook = Workbooks.Add With newbook .Title = "all seles" .Subject = "seles" .SaveAs Filename:="kandeel.xls" End With End Sub

كود لانشاء ملف اكسل جديد من داخل الملف الذى تعمل عليه Sub addone() Workbooks.Add End Sub

شكرا اخى واستاذى القدير الاستاذ / مجدى يونس وجزاك الله خيرا

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