اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

محمد سامر

02 الأعضاء
  • Posts

    59
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركات المكتوبه بواسطه محمد سامر

  1. السلام عليكم ورحمة الله وبركاته

    اريد  المساعده :

    عند الضغط على الزر يتم طباعة جميع الموظفين من رقم 1 الى رقم 40 الموجود بالخليه "f7".. في ملف pdf على سطح المكتب

    "حفظ الملف بالإسم الموجود بالخليه k1"

    "كل موظف في صفحه منفصله"

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

  2. السلام عليكم ورحمة الله وبركاته

    اريد  المساعده :

    عند الضغط على الزر يتم حفظ جميع الموظفين من رقم 1 الى رقم 40 الموجود بالخليه "f7".. في ملف pdf على سطح المكتب

    "حفظ الملف بالإسم الموجود بالخليه k1"

    "كل موظف في صفحه منفصله"

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

    النموذج.xls

     

  3. السلام عليكم ورحمة الله وبركاته

    اريد من الأساتذه المساعده في الترقيم التلقائي للمسلسل كل 10 صفوف. عن طريق كود.

    بدءا من الخليه (B11)

    "كل 10 صفوف يتم تكرار العدد من( 10:1) .....وهكذا

    بشرط ادخال اي قيمه بالخليه"a" المجاوره لها، لكي يظهر الترقيم

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

    تكرار المسلسل كل 10 صفوف.xlsm

     

  4. هل يمكن التعديل على هذا الكود ليشمل الثلاث صفحات معا في نفس الوقت في الملف السابق

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim RN1 As Range
    Dim RN2 As Range
    Dim Q1
    
        Set RN1 = Range("a11:a613")
        Q1 = Range(Target.Address)
        For Each RN2 In RN1
            If Q1 <> "" And RN2.Address <> Target.Address And RN2 = Q1 Then
            MsgBox "الادخال :   " & Target.Value & "  مكرر سيتم حذفه ", vbMsgBoxRight, "ادخال مكرر"
            Cells(Target.Row, Target.Column).Select
            Selection = ""
            Exit Sub
            End If
        Next
    
    End Sub

     

×
×
  • اضف...

Important Information