مساعدة فى كود vba

[mustafa.aboul-eneen]

السلام عليكم السادة الافاضل

معايا كود عايز اضيف عليه شرط if

Sub Uppercase()
   ' Loop to cycle through each cell in the specified range.
   For Each x In Range("J2:J7")
      ' Change the text in the range to uppercase letters.
      x.Value = LCase(x.value)
   Next
End Sub

بحيث لو الخلية كانت رقم ميطبقش عليها حاجة ويكمل على الخلية اللى بعدها

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

الكود ده بتحاهل الارقام والخلايا الفارغة

[mustafa.aboul-eneen]

انظر الصورة المرفقة انا عامل تصدير لداتا من قاعدة بيانات فى الشركة للاسف فى ارقام تمام بعرف اطبق عليها دالة mid وفى خلايا لا علشان كده استخدمت الكود بيحول الخلايا اللى غير قابلة للتعديل  علشان تتعمل عليها الدالة بس لما بتطبق على  كل الخلايا بتعمل تدمير للخلايا القابلة للاستخدام على دالة mid