مشكلة في جملة IF

[nicola]

السلام عليكم 

اخوتي الاكارم ارجوا مساعدتكم في مشكلة الكود 

حيث ان الكود يعمل بشكل جيد

ولكن اواجة مشكلة باستخدام جملة IF

وخصوصا عند اضافة Else

حيث يصبح الكود دائما ينفذ الامر Else ولا ينفذ الامر الاول في حال تحقق جملة IF

ارجوا مساعدتكم في حل المشكلة 

Label3.Caption = Sheets("Temp").Range("B14").Value
Dim LastRow As Long
Dim i As Integer, T As Integer
LastRow = Sheets("SetupM").Cells(Rows.Count, "Q").End(xlUp).Row + 1
For i = 1 To 10
For T = 1 To LastRow
If Label3.Caption = Sheets("SetupM").Cells(T, 18).Value Then
       Sheets("SetupM").Range("A1") = Sheets("SetupM").Cells(T, 19)
Else
     Sheets("SetupM").Range("A1") = "لاتوجد بيانات"
End If

Next
Next

[عبدالله المجرب]

ضع مرفق به الكود لفهم آلية الكود

[nicola]

السلام عليكم 

في المرفق  مثال يشرح المشكلة بشكل افضل 

ولكم جزيل الشكر 

مشكلة في جملة IF.rar

[عبدالله المجرب]

^{السلام عليكم}

^{السبب في حلقة التكرار}

^{هل ممكن ان تبين لنا ما تريد عمله وستجد الحل ان شاء الله}

[nicola]

اخي الكريم 

عبد الله بارك الله فيك 

الفكرة التي اريدها في نفس فكرة عمل المرفق 

اي بحث واستدعاء

وشكرا على مساعدتك لي

[nicola]

للرفع

[احمد عبد الناصر]

السلام عليكم

 

السؤال فعلا غير واضح

 

   For i = 1 To 10     هذه الجملة 

تكرر عمل الكود 10 مرات متلاحقة (بدون جدوى)

 

 

انت تقارن هذه القيمة

Label1.Caption =Sheets("1").Range("a1").Value        a123

بخلايا العمود  B  واحدة تلو الاخري حتي اول خلية الفارغة و ثاني خلية التي تحتوي علي كلمة الرمز حتي B5

If Label1.Caption = Sheets("DB").Cells(T, 2).Value Then
 

 

فإن تطابقت يضع في الخلية  B1  في الصفحة الاولي كلمة تم من الصفحة الثانية و الا يضع لا توجد بيانات  في نفس الخلية B1  (يعيد الكتابة فيها)

Sheets("1").Range("B1") = Sheets("DB").Cells(T, 3)

Else
 Sheets("1").Range("B1") = "لا توجد بيانات"

 

كودك يضع كلمة تم فعلا و لكن بعدها يضع لا توجد بيانات .

 

 

فالكود كله غير منطقي

فارجو ان توضح ما تريد بالتفصيل كما تكرم الاستاذ عبدالله المجرب

 

 

تحياتي

[nicola]

اخي الكريم 

ان الكود ليس من تصميمي

وهوي كود من اجل البحث والاستدعاء

 اخذتة من مشاركة من احدى مشاركات المنتدى 

وانا كل مافعلتة بالكود اضافة امر Else

 

والفكرة التي اريدها في بحث واستدعاء فقط 

 

 

 كودك يضع كلمة تم فعلا و لكن بعدها يضع لا توجد بيانات .

 

 

فالكود كله غير منطقي

 

اذا انتبهة اخي الكود يعمل بطريقة صحية عند عدم تواجد امر Else

ويعمل بشكل خاطئ عند تواجد امر Else

ارجوا ان تكون قد انتبهة لهذه الفكرة

 

 

والمرفق فية الملف الذي اخذت منة الكود

ادخال البيانات والبحث عنها عن طريق الفورم.rar

تم تعديل يناير 30, 2013 بواسطه nicola

[احمد عبد الناصر]

اخي الكريم

 

هذا ما استطعت التوصل اليه كما فهمت .

 

جرب المرفق

 

 

 

تحياتي

مشكلة في جملة IF+ .rar