[justforit]

كما ترون بالصورة الكود ضمن Try  و مع ذلك كما ترون

[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

[justforit]

(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

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