تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ماهو حل رسالة الخطأ اللتي تظهر حتى لو انها ضمن Try catch
#1
كما ترون بالصورة الكود ضمن Try  و مع ذلك كما ترونSad
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#2
(27-04-24, 10:44 PM)justforit كتب :
كما ترون بالصورة الكود ضمن Try  و مع ذلك كما ترونSad

هل الشيت فارغ (جديد)؟

Dim rng As Excel.Range = xlws.Range("B:B").EntireColumn.Find(f.un)
If rng IsNot Nothing Then
foundrow = rng.Row
End If
الرد }}}
تم الشكر بواسطة: justforit , Taha Okla
#3
(27-04-24, 11:58 PM)3sem كتب :
(27-04-24, 10:44 PM)justforit كتب :
كما ترون بالصورة الكود ضمن Try  و مع ذلك كما ترونSad

هل الشيت فارغ (جديد)؟

Dim rng As Excel.Range = xlws.Range("B:B").EntireColumn.Find(f.un)
If rng IsNot Nothing Then
   foundrow = rng.Row
End If

تدري اني وجدت الكود اصلا هكذا و عدلت عليه ظنا مني ان التعديل لن يؤثر و تبين ان كل المشكلة من تعديلي على الكود!!!
الله يبارك فيك فعلا الكود اصبح الان ممتاز وزالت المشكلة.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: Taha Okla



التنقل السريع :


يقوم بقرائة الموضوع: