سليم حاصبيا

وجدت لك الحل بشرط كتابة 1 أو 2 في عامود اخر (K) try50-100 salim.zip

ربما بكون المطلوب بين عددين.zip

المشكلة عندك في العامود D( انه لا يحتوي على ارقام صحيحة) جرب ان تحدد اي خلية منه و لا حظ ماذا تجد في شريط المعادلات لا أعرف من اين اتت هذه الارقام

تفضل اخي الملف جاهز مقارنة.zip

استبدل الكود عندك بها الكود وسوف ترى النتيجة Sub زر_1() lh = Cells(Rows.Count, "H").End(3).Row lc = Cells(Rows.Count, "c").End(3).Row Range("H5:H" & lh).Clear Range("c5:c" & lc).SpecialCells(xlCellTypeConstants, 1).Copy Range("H5") End Sub

تم التعديل درجات 1.zip

الرجاء عدم طلب مساعدة في مثل هذه الحالة (عندما يكون الملف محمي بكلمة سر)

جرب هذا الملف درجات.zip

تفضل اخي وائل الملف مع الكود المناسب Print Set_up.zip

حاول استبدال الفاصلة بفاصلة منقوطة (في المعادلة)

يمكنك التعديل الى هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count <> 1 Or Target.Column < 7 Or _ Target.Column > 11 Then Exit Sub If Target.Column = 11 Then Target.Offset(1, -4).Select: Exit Sub Target.Offset(0, 1).Select End Sub

حدد ما تريد داخل الكومبو من نطاق مختلف عن نطاق الجدول يعني اكتب ما تريد ان يظهر في الكومبو في لائحة مستقلة و تسمية هذه اللائحة باسم مغين(يمكن استعمال الورقة الثانية مثلا)

اذهب الى خصائص هذا الكومبو و حدد ماذا تريد بداخله

انسخ هذا الكود الى حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 Then If Target.Column < 7 Or Target.Column > 11 Then Exit Sub If Target.Column = 11 Then Cells(1, 7).Select: Exit Sub Target.Offset(0, 1).Select End If End Sub

حسب ما فهمت اليك هذا الملف Sheet3 try salim 3.zip

تم التعديل انظر الى Sheet 2 try salim 2.zip

يمكنك مشاهدة هذا الفيديو او اذهب الى هذا العنوان و جرب الكود هناك واعطني النتيجة http://www.officena.net/ib/topic/64545-%D8%A5%D9%84%D8%BA%D8%A7%D8%A1-%D8%A3%D9%89-%D8%AD%D9%85%D8%A7%D9%8A%D8%A9-%D9%84%D8%B4%D9%8A%D8%AA-%D8%A5%D9%83%D8%B3%D9%8A%D9%84-%D8%A8%D8%AE%D8%B7%D9%88%D8%A9-%D9%88%D8%A7%D8%AD%D8%AF%D8%A9/#comment-421303

استعمل هذا الكود Sub DeleteAllPics() Dim Pic As Object For Each Pic In ActiveSheet.Pictures Pic.Delete Next Pic End Sub

اليك الحل بواسطة الماكرو combo box_Macro.zip

جرب هذا الشيء try salim.zip

بعد أذن اخي و صديقي العيدروس و اثراء للموضوغ هذا الكود Sub Salim_Rows() Dim Lr&, lr2& With ActiveSheet Application.ScreenUpdating = False Lr = .UsedRange.SpecialCells(xlCellTypeLastCell).Row Range("a5:a" & Lr).SpecialCells(xlCellTypeBlanks).EntireRow.Delete Range("a5:a" & Lr).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete lr2 = Cells(Rows.Count, "o").End(3).Row Range("o5:o" & lr2 - 1).SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete Application.ScreenUpdating = True End With End Sub

كيف تريدنا ان ننتفع و المصنف محمي بكلمة سر

يمكنك استبدال المعادلة بهذه =IF(AND(F6<>"",E6<>"",F6>0,E6>0),(F6-E6)*24-9,"")

استعمل المعادلة IFERROR انظر الى المثال المرفق Use IFERROR.zip

جرب هذا الملف القائمة المنسدلةتستجيب لاي تعديل او زيادة في البيانات قائمه منسدله مطاطة.zip