كتابة الدوال فى VBA المرتبطه بشيت آخر مثل VLOOKUP

[ابوحمزه المصرى]

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

أسعد الله اوقاتكم احبابى أعضاء اوفيسنا

هل من الممكن كتابة الدوال فى VBA المرتبطه بشيت آخر مثل VLOOKUP

vlookup.rar

[ياسر العربى]

يرجى رفع الملف مرة اخرى الرابط لا يعمل

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

أخي الكريم صلاح ..

المرفق لا يتم تحميله ..يرجى رفع المرفق مرة أخرى ..

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

تقبلوا تحياتي

[ابوحمزه المصرى]

تفضلوا اخوانى .. جزاكم الله خيرا

vlookup.rar

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

أخي العزيز صلاح

حاول أن تقوم بتوضيح طلبك بشكل أفضل .. لم أفهم وجهة نظرك أو طلبك في الموضوع بشكل كامل

ولكن على حسب ما أعتقد - وإن كنت لا أحب تقديم الحلول إطلاقاً على حساب التخمين والاحتمالات -

إليك الكود التالي عله يفي بالغرض .. يقوم الكود بعمل حلقة تكرارية في ورق العمل الثانية ويقوم بالبحث باستخدام دالة Vlookup ولكن باستخدام الكود ..

Sub Test()
    Dim Ws As Worksheet, Sh As Worksheet, Rng As Range, I As Long
    
    Set Ws = ورقة1: Set Sh = ورقة2
    Set Rng = Ws.Range("A2:B" & Ws.Cells(Rows.Count, 1).End(xlUp).Row)
    
    For I = 2 To Sh.Cells(Rows.Count, 1).End(xlUp).Row
        On Error Resume Next
        Sh.Cells(I, 2).Value = Application.WorksheetFunction.VLookup(Sh.Cells(I, 1).Value, Rng, 2, 0)
    Next I
End Sub

أرجو أن يكون المطلوب إن شاء الله

تقبل تحياتي

 

 

[ابوحمزه المصرى]

اخى الفاضل ابو البراء جزاك الله كل خير .. اسف لأنى تاعبك دايما معايا .. اصل الشيت مفوش غير داله واحده فتوقعت ان الكلام الكتير ملوش لزوم .. على العموم انا اعتذر عن عدم  الشرح المفصل للطلب . اما بالنسب للحل فهو الحل المطلوب  .. لكن هل يوجد حل اكثر اختصاراً لنفترض ان الشيت به دوال كثيرة ومرتبطه بأكثر من شيت آخر واريد تحويلها كلها الى اكواد فما الحل الامثل لذلك

تم تعديل مارس 21, 2016 بواسطه صلاح المصرى

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

أخي الكريم صلاح

الكود معظمه عبارة عن تعريف للمتغيرات لورقة العمل الأولى والثانية والنطاق الذي ستعمل عليه

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

والحاجة أم الاختراع

[ياسر العربى]

14 ساعات مضت, ياسر خليل أبو البراء said:

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

تقبلوا تحياتي

حبيبي ابو البراء احنا هنا صفر ع الشمال بالنسبة ليك حبيبي ومجهودك العالي

وبعدين مش عارف ليه حاسس انها تلقيح وتأنيب هههههه

 

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

أخي الغالي ياسر العربي ..

مالك قافش ليه .. Take It Easy  يا عزيزي

لا تلقيح ولا تنقيح .. ولا تأنيب ولا أنابيب .. لا يوجد أي من هذه الأفكار التي تدور برأسك

وافر تقديري واحترامي