منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(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

(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

تدري اني وجدت الكود اصلا هكذا و عدلت عليه ظنا مني ان التعديل لن يؤثر و تبين ان كل المشكلة من تعديلي على الكود!!!
الله يبارك فيك فعلا الكود اصبح الان ممتاز وزالت المشكلة.