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

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


إذهب إلى أفضل إجابة Solved by ابراهيم الحداد,

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

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

 

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

بحيث تكون الأسماء ( محمد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

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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