اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

اساتذتى الكرام

رجاء المساعده

ملف للتطبيق :  بيانات مكررة.rarFetching info...

محتاج كود لتنقية البيانات المكرره في النطاق من (A6:DZ) معيار التكرار هو الرقم القومي فى العمود (C) في حالة تكرارالرقم القومي اكثر من مره يتم  مسح بيانات الصف باكمله  للرقم القومى المكرر

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

5ac50f2c0f36c_.JPG.e36a905537a9174dc37834c0026c3ee2.JPG

قام بنشر

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

جرب هذا الكود

Sub Mokarar()
Dim Q1, FR, TR, TC
For FR = 5 To 9999
Q1 = Cells(FR, 3)
If Q1 = "" Then GoTo 7
For TR = FR + 1 To 9999
If Cells(TR, 3) = Q1 Then
For TC = 1 To 33
Cells(TR, TC).Clear
Next
End If
Next
7 Next

End Sub

ان شاء الله يكون به ماتريد

  • Like 1
  • Thanks 1
قام بنشر

جرب هذا الماكرو

Option Explicit

'Macro to delete duplicates in Columm
Sub del_row()
Dim i%, k%
Dim x%
k = Range("a6").CurrentRegion.Rows.Count
 For i = 6 To k
 If i > k Then Exit For
x = Application.CountIf(Range("c6:c" & i), Cells(i, 3))
  If x > 1 Then Cells(i, 1).EntireRow.Delete: i = i - 1: k = k - 1
  Next
End Sub

 

  • Like 1
  • Thanks 1
قام بنشر
  في 4‏/4‏/2018 at 20:04, احمدزمان said:

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

جرب هذا الكود

Sub Mokarar()
Dim Q1, FR, TR, TC
For FR = 5 To 9999
Q1 = Cells(FR, 3)
If Q1 = "" Then GoTo 7
For TR = FR + 1 To 9999
If Cells(TR, 3) = Q1 Then
For TC = 1 To 33
Cells(TR, TC).Clear
Next
End If
Next
7 Next

End Sub

ان شاء الله يكون به ماتريد

Expand  

الف الف شكر استاذي الغالى

الكود تمام بس ليا طلب لو امكن يعمل الكود لاخر صف به بيانات فى العمود (C)

واضافة اسم ورقة العمل على الكود

  في 4‏/4‏/2018 at 20:45, سليم حاصبيا said:

جرب هذا الماكرو

Option Explicit

'Macro to delete duplicates in Columm
Sub del_row()
Dim i%, k%
Dim x%
k = Range("a6").CurrentRegion.Rows.Count
 For i = 6 To k
 If i > k Then Exit For
x = Application.CountIf(Range("c6:c" & i), Cells(i, 3))
  If x > 1 Then Cells(i, 1).EntireRow.Delete: i = i - 1: k = k - 1
  Next
End Sub

 

Expand  

شكرا استاذي على اهتمامك

الكود يمسح بعض الارقام المكرره ويترك الباقي 

قام بنشر

هذا لانه هناك خلايا فارغة بالعامود

لتلافي ذلك استبدله بهذا الكود

Option Explicit

Sub del_row()
Dim i%, k%
Dim x%

k = Cells(Rows.Count, 3).End(3).Row
If k < 6 Then k = 6
 For i = 6 To k
 If i > k Then Exit For
x = Application.CountIf(Range("c6:c" & i), Cells(i, 3))
  If x > 1 Then Cells(i, 1).EntireRow.Delete: i = i - 1: k = k - 1
  Next
End Sub

 

  • Like 1
  • Thanks 1
قام بنشر
  في 4‏/4‏/2018 at 20:34, ali mohamed ali said:

تسلم ايديك استاذ أحمد كود حقا رائع ونفذ المطلوب بكل دقة

بارك الله فيك وجعله فى ميزان حسناتك

Expand  

جزاك الله خيرا و احسن الله اليك

وهذا لا يساوي شيء امام ابداعاتكم في المنتدى

  في 4‏/4‏/2018 at 21:27, ابو حمادة said:

الكود تمام بس ليا طلب لو امكن يعمل الكود لاخر صف به بيانات فى العمود (C)

واضافة اسم ورقة العمل على الكود

Expand  

ان شاء الله لا مشكلة

الآن انا في العمل

مساء ان شاء الله

 

قام بنشر

السلام عليكم

تمت الإضافة بالاستعانة بكود الأستاذ سليم جزاه الله خيرا

Sub Mokarar()
Dim Q1, FR, TR, TC, ER
With Sheets(ActiveSheet.Name)
ER = Application.CountA(.Range("C:C")) + 9

For FR = 5 To ER
Q1 = .Cells(FR, 3)
If Q1 = "" Then GoTo 7
For TR = FR + 1 To 9999
If .Cells(TR, 3) = Q1 Then
For TC = 1 To 33
.Cells(TR, TC).Clear
Next
End If
Next
7 Next
End With

End Sub

 

  • Like 1
قام بنشر
  في 5‏/4‏/2018 at 03:21, سليم حاصبيا said:

هذا لانه هناك خلايا فارغة بالعامود

لتلافي ذلك استبدله بهذا الكود

Option Explicit

Sub del_row()
Dim i%, k%
Dim x%

k = Cells(Rows.Count, 3).End(3).Row
If k < 6 Then k = 6
 For i = 6 To k
 If i > k Then Exit For
x = Application.CountIf(Range("c6:c" & i), Cells(i, 3))
  If x > 1 Then Cells(i, 1).EntireRow.Delete: i = i - 1: k = k - 1
  Next
End Sub

 

Expand  

شكرا لاهتماك استاذي الكبير 

حولت استخدم ااكود بيدي خطأ فى سطر   

k = Cells(Rows.Count, 3).End(3).Row

واتمنى لو يتم تحديد ورقة العمل الذي يعمل عليها الكود

 

 

  • 3 weeks later...
قام بنشر

هل ممكن حد من السادة الافاضل يعمل الكود على ملف اكسيل

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

عندى ملف فيه خانات زى الاسم ورقم التليفون وبيان

لكن رقم التليفون فيه تكرار ومحتاج امسح السطر كله ويسيبلى سطر واحد من الاسطر التى تم تكرارها

قام بنشر
  في 22‏/4‏/2018 at 13:46, melaad said:

هل ممكن حد من السادة الافاضل يعمل الكود على ملف اكسيل

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

عندى ملف فيه خانات زى الاسم ورقم التليفون وبيان

لكن رقم التليفون فيه تكرار ومحتاج امسح السطر كله ويسيبلى سطر واحد من الاسطر التى تم تكرارها

Expand  

ارفع نموذجاً عما تريد 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information