مطلوب دالة أو كود لاستكمال بيانات الجدول الأول من البيانات الموجودة في الجدول الثاني

[صالح أبو أحمد]

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

 

أريد دالة أو كود لاستكمال بيانات الجدول الأول من البيانات الموجودة في الجدول الثاني

بحيث تكون الأسماء ( محمد1 ، محمد2 ، ................. ) مقابل كل رقم له

مع العلم أن :

 الأسماء أكثر من 20 أسم  ـ الأرقام 25

والأوفيس 2003

                                       ولكم كل الشكر مقدماً

طلب دالة أو كود.xls

[ابراهيم الحداد]

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

جرب هذا الكود

Sub GetName()
Dim ws As Worksheet, Arr As Variant
Dim LR As Long, i As Long
Dim j As Long, x As Long
Application.ScreenUpdating = False
Set ws = Sheets("ورقة2")
LR = ws.Range("A" & Rows.Count).End(3).Row
Arr = ws.Range("A13:AA" & LR).Value
x = 3
Do While x <= 27
For i = 1 To UBound(Arr, 1)
For j = 1 To UBound(Arr, 2)
If ws.Cells(1, x) = Arr(i, j) Then
ws.Cells(2, x) = Arr(i, 1)
End If
Next
Next
x = x + 1
Loop
Application.ScreenUpdating = True
End Sub

 

[صالح أبو أحمد]

ألف ألف شكر أخي الكريم  ( إبراهيم الحداد )

أنه هو المطلوب بالتمام

هذا الكود الجميل يدرس فلاً

جعله الله في ميزان حسناتك أنت وكل المشتركين في هذا المنتدى العريق