كيفية رفع الأكواد في المشاركات

[محمود أبوسيف]

 

هههههههههههههههههههههههه

 

حبيبي والله ياأبو خليل

أنا آسف علي تعبك

بس الموضوع ملوش علاقة بكلمة نعم خالص

الموضوع إن الكود لسه بيقوم بتكرار الصفوف التي لها نفس الرقم المستبعد من قبل

يعني لو أنا قمت بحذف صفوف رقم 1 ، 4 ، 5وليحتوو علي مايحتوووه من بيانات تمام

ثم قمت بحذف صفوف رقم 3 ، 4 ، 5 هلاقي الكود مكرر رقم 4 ، 5 في صفحة المستبعدين تاني وده مش إللي مطلوب

المطلوب عدم التكرار

 

تم تعديل فبراير 18, 2015 بواسطه Mahmoud330

[ياسر خليل أبو البراء]

الشرط اللي أنت طلبته على الرقم والاسم معا

إنت قلت ممكن الرقم يتكرر لكن مع اسم آخر !!!!!!!!!!!!!!!

[محمود أبوسيف]

 

عفواً أخي أبوخليل

المطلوب عدم تكرار الرقم

[ياسر خليل أبو البراء]

جرب .. رغم إني مش مقتنع بالطلب بهذا الشكل ..لأن رقم الأسرة ممكن يتكرر لتعدد أفراد الأسرة الواحدة (هذا مجرد تخمين)..أنت أدرى بالملف مني

عموما جرب

Sub حسب_الاختيار()
    Application.ScreenUpdating = False
        Dim c As Range, Cell As Range
        For Each c In Sheet1.Range("K7:K" & Cells(Rows.Count, 2).End(xlUp).Row)
            If c.Value = "نعم" Then
                lstrow = Sheet2.Range("b20000").End(xlUp).Row + 1
                For Each Cell In Sheet2.Range("B16:C" & lstrow - 1)
                   If Sheet1.Cells(c.Row, "B") = Cell Then Sheet1.Range(Sheet1.Cells(c.Row, "B"), Sheet1.Cells(c.Row, "K")).ClearContents: GoTo 1
                Next Cell
                Sheet2.Range(Sheet2.Cells(lstrow, "B"), Sheet2.Cells(lstrow, "I")) = _
                Sheet1.Range(Sheet1.Cells(c.Row, "B"), Sheet1.Cells(c.Row, "I")).Value
                Sheet1.Range(Sheet1.Cells(c.Row, "B"), Sheet1.Cells(c.Row, "K")).ClearContents
                Sheets("الأساسيين").Select
                Range("b7").Select
            End If
1        Next c
        
        MsgBox ("تم ترحيل الصفوف المحددة بنجاح"), vbDefaultButton1, " تحياتي أ / محـمـود جـمـعـه "
    Application.ScreenUpdating = True
End Sub

[محمود أبوسيف]

 

هذا هو المطلوب أخي ياسر

جزاك الله كل خير علي هذا المجهوود وجعله الله في ميزان حسناتك