السلام عليكم السادة الافاضل
معايا كود عايز اضيف عليه شرط 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
بحيث لو الخلية كانت رقم ميطبقش عليها حاجة ويكمل على الخلية اللى بعدها