28-04-24, 09:45 AM
(27-04-24, 11:58 PM)3sem كتب :(27-04-24, 10:44 PM)justforit كتب :
كما ترون بالصورة الكود ضمن Try و مع ذلك كما ترون
هل الشيت فارغ (جديد)؟
Dim rng As Excel.Range = xlws.Range("B:B").EntireColumn.Find(f.un)
If rng IsNot Nothing Then
foundrow = rng.Row
End If
تدري اني وجدت الكود اصلا هكذا و عدلت عليه ظنا مني ان التعديل لن يؤثر و تبين ان كل المشكلة من تعديلي على الكود!!!
الله يبارك فيك فعلا الكود اصبح الان ممتاز وزالت المشكلة.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير