تصحيح خطاء

[۩◊۩ أبو حنين ۩◊۩]

السلالم عليكم

عند تنفيذ كود ترحيل يتم بشكل ممتاز اذا كانت فى الخليه ارقام فقط

واذا احتوت الخليه على حروف تظعر رساله الخطاء بهذا الشكل ملونه بالاصفر

lngNum = wshS.Cells(lngRow, 2).Value

لماذا

[سليم حاصبيا]

32 دقائق مضت, ۩◊۩ أبو حنين ۩◊۩ said:

السلالم عليكم

عند تنفيذ كود ترحيل يتم بشكل ممتاز اذا كانت فى الخليه ارقام فقط

واذا احتوت الخليه على حروف تظعر رساله الخطاء بهذا الشكل ملونه بالاصفر

lngNum = wshS.Cells(lngRow, 2).Value

لماذا

ربما تم تعريف lngNum  على انه رقم في بداية الكود 

بجب تعريفه بهذا الشكل

Dim lngNum   فقط

[۩◊۩ أبو حنين ۩◊۩]

اخى الكريم 

التعريف الى موجود 

 Dim lngNum         As Long

هلى احوله الى 

Dim lngNum      As Variant

[سليم حاصبيا]

4 ساعات مضت, ۩◊۩ أبو حنين ۩◊۩ said:

اخى الكريم 

التعريف الى موجود 

 Dim lngNum         As Long

هلى احوله الى 

Dim lngNum      As Variant

ممكن ذلك