• اضافة إهداء
    (المعذره .. غير مسموح للزوار بإضافة الإهداءات, الرجاء التسجيل في المنتدى)


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





مساعدة في مشكلة بكود vlook up

مساء الخييير الملف المرفق عبارة عن كشف حساب عميل في حدث الصفحة رقم 4 يوجد كود vlookup يعمل بشكل ممتاز ولكن عند وضع رقم ..



05-01-2018 09:49 مساء
khaled alborene
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 242
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 178
الاعجاب : 66
 Online 
مساء الخييير
الملف المرفق عبارة عن كشف حساب عميل 
في حدث الصفحة رقم 4 يوجد كود vlookup يعمل بشكل ممتاز
ولكن عند وضع رقم حساب عميل غير موجود يحدث debug حيث احتاج ان يعطي ان العميل غيرر موجود
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  كشف.rar   تحميل rar مرات التحميل :(7)
الحجم :(29.614) KB



تم تحرير الموضوع بواسطة :khaled alborene
بتاريخ:05-01-2018 09:49 مساء





06-01-2018 10:12 صباحا
مشاهدة مشاركة منفردة [1]
khaled alborene
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 242
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 178
الاعجاب : 66
 Online 
look/images/icons/i1.gif مساعدة في مشكلة بكود vlook up
up....




06-01-2018 10:19 صباحا
مشاهدة مشاركة منفردة [2]
الصقر
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 661
الجنس : ذكر
الدعوات : 3
يتابعهم : 0
يتابعونه : 211
قوة السمعة : 3987
الاعجاب : 932
 offline 
look/images/icons/i1.gif مساعدة في مشكلة بكود vlook up
تفضل اخى الكريم ضع هذا الكود مكان اللى موجود
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Ws As Worksheet, Sh As Worksheet, Rng As Range, I As Long
    
    Set Ws = Sheet1: Set Sh = Sheet4
    Set Rng = Ws.Range("A2:B" & Ws.Cells(Rows.Count, 1).End(xlUp).Row)
  If Sh.Cells(4, 4).Value <> "" Then
  Sh.Cells(6, 4).Value = ""
    On Error GoTo 1
        Sh.Cells(6, 4).Value = Application.WorksheetFunction.VLookup(Sh.Cells(4, 4).Value, Rng, 2, 0)
1
    End If
End Sub


أثارت هذه المشاركة إعجاب: YasserKhalil، محمود ابو الدهب،



07-01-2018 09:30 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1912
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 196
قوة السمعة : 5329
الاعجاب : 1529
 offline 
look/images/icons/i1.gif مساعدة في مشكلة بكود vlook up
جزاك الله خيراً أخي العزيز حسام ومشكور على مساهماتك الرائعة

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،



07-01-2018 09:32 مساء
مشاهدة مشاركة منفردة [4]
khaled alborene
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 242
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 178
الاعجاب : 66
 Online 
look/images/icons/i1.gif مساعدة في مشكلة بكود vlook up
شكرا استاذ حسام ما قصرت

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
رجاءا المساعده في معرفة وحل هذه المشكلة فتحي سلام
2 24 فتحي سلام
كيفية اظهار التقويم فى اليوزرفورمDate and Time Picker وحل مشكلة اظهارAddtional contorol emad ghazi
2 65 الصقر
مشكلة في كود القائمة المنسدلة khaled alborene
8 48 khaled alborene
حل مشكلة ظهور التاريخ ارقام في قائمة منسدلة في اليوزفورم رمضان بكري
5 62 رمضان بكري
المساعدة فى حل مشكلة عدم تنفيذ الكود mohammed gurtuby
0 18 mohammed gurtuby

الكلمات الدلالية
مساعدة ، مشكلة ، بكود ، vlook ،


 







الساعة الآن 12:41 صباحا