ياسر سيد أبوستيت

ممكن نفس الكود ينسخ البيانات بدون المعادلات بداخل الشيت؟

هذا الملف اخى اليسر556.rar

السلام عليكم و رحمه الله و بركاته اخوانى و اساتذتى الكرام برجاء المساعدة استخدمت المايكرو المرفق فى دالة الترتيب و هو يعمل بكفاءة و لكن عند ترتيب الاناث تظهر فى اخر الورقة و ليس اولها Dim Ans As String Dim oSort As String Ans = MsgBox("""No"" = ÊÑÊíÈ ÐßÑ" & Chr(10) & """Yes"" = ÊÑÊíÈ ÃäËì", vbYesNo + vbInformation) oSort = IIf(Ans = vbYes, xlAscending, xlDescending) Range("b10:aa1009").Select Selection.Sort Key1:=Range("c10"), Order1:=xlDescending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("b10:aa1009").Select Selection.Sort Key1:=Range("i10"), Order1:=oSort, Key2:=Range("c10") _ , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _ False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _ :=xlSortNormal Range("c10").Select

ضع هذا الكود اخى فى حدث الصفحة Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.HasFormula = True Then ActiveCell.Offset(0, 1).Select ElseIf Target.MergeCells = True And Target.HasFormula = True Then Target.Offset(0, 1).Select ElseIf ActiveCell.HasFormula = True And ActiveCell.MergeCells = True Then ActiveCell.Offset(0, 1).Select End If End Sub

up

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

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

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

مساعدة عاجلة لو تكرمتم لاننى احتاج التعديل بشدة

برجاء المساعدة

اخوانى الكرام السلام عليكم و رحمه الله و بركاته اواجه مشكلة فى الملف المرفق 1- اريد فى قوائم الفصول البنون على اليمين و البنات على اليسار 2- عند تفعيل الحماية لا تتحرك الاسهم 3- ترتيب حسب الاناث و الصف فى نفس الوقت و شكرا جزيلا مقدما قوائم الفصول

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

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

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

اى رقم تقصد ؟ نزل الملف المرفق و ادخل 123 و سوف تفتح الاكواد