كود للبحث بجزء من الرقم القومى

[EtaEng]

اريد دالة ابحث بجزء من الرقم

عندى جدول به ارقام بطايق رقم قومى 14 رقم

اريد ان استخدم اخر 4 ارقام او 5 ارقام من البطاقة وليس 14 رقم

تم فصل المشاركة بمشاركة جديدة لتلقى الإهتمام والإستجابة من قبل الأساتذة

من فضلك لا تحاول مستقبلاً رفع مشاركة جديدة مع مشاركة قديمة ..حتى تلقى الإهتمام

كشف_المحتاجين_2.xlsm

[أحمد يوسف]

لقد قمت بعمل قائمة منسدلة ديناميكية لك بكل الأرقام القومية الموجودة فقط عليك إختيار الرقم من القائمة ... وهذا بالطبع أسهل بكثير لك

كشف_المحتاجين_3.xlsm

[عبدالفتاح في بي اكسيل]

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

Sub EtaEng()
Dim idnum As Variant, b As Object, i As Double
Sheet2.Activate
idnum = Left(Range("D7").Value, 4)
Set b = Sheet1.Columns("b").Find(idnum, lookat:=xlPart, LookIn:=xlValues)
If Not b Is Nothing Then
'exists
i = b.Row
Range("D10").Value = Sheet1.Cells(i, 3)
Range("D12").Value = Sheet1.Cells(i, 2)
Range("D14").Value = Sheet1.Cells(i, 4)
Range("D16").Value = Sheet1.Cells(i, 5)
Range("H10").Value = Sheet1.Cells(i, 6)
Range("H12").Value = Sheet1.Cells(i, 7)
Range("H14").Value = Sheet1.Cells(i, 8)
Range("H16").Value = Sheet1.Cells(i, 9)
Else
MsgBox "هذا الرقم غير موجود", vbExclamation
End If

End Sub

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

idnum = Left(Range("D7").Value, 4)

 

كشف_المحتاجين_2.xlsm

[abouelhassan]

استاذ عبدالفتاح في بي اكسيل

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

احترم من القلب

[محمد حسن المحمد]

كود رائع جزاكم الله خيراً أستاذعبدالفتاح في بي اكسيل