Macro to run on cells whose cell length is greater than one

[Video99]

I have a spreadsheet with a number of columns; some contain just a single-digit number or grade (e.g.'B' or '1') and some contain full comments. I would like a macro that adds a full stop/period to the ends of cells that contain comments which are missing a full stop but does not add a full stop to columns which contain just a single letter or number. Has anybody got any idea how to do this ? I've tried googling and I can't get anywhere.

Thanks

 

[Peter_SSs]

Welcome to posting at MrExcel!

Give this a try with a copy of your workbook.

Sub AddFullStop()
  Dim c As Range
  
  Application.ScreenUpdating = False
  For Each c In Cells.SpecialCells(xlConstants)
    If Len(c.Value) > 1 Then
      If Right(c.Value, 1) <> "." Then c.Value = c.Value & "."
    End If
  Next c
  Application.ScreenUpdating = True
End Sub

 

[Video99]

Welcome to posting at MrExcel!

Give this a try with a copy of your workbook.

Sub AddFullStop()
  Dim c As Range
 
  Application.ScreenUpdating = False
  For Each c In Cells.SpecialCells(xlConstants)
    If Len(c.Value) > 1 Then
      If Right(c.Value, 1) <> "." Then c.Value = c.Value & "."
    End If
  Next c
  Application.ScreenUpdating = True
End Sub

Wow - fantastic ! it worked. Amazing

Thank you so much

Is there any way that it only runs over an area I have highlighted ?

 

[Peter_SSs]

Is there any way that it only runs over an area I have highlighted ?

Try

Sub AddFullStop_v2()
  Dim c As Range
  
  Application.ScreenUpdating = False
  For Each c In Selection
    If Len(c.Value) > 1 Then
      If Right(c.Value, 1) <> "." Then c.Value = c.Value & "."
    End If
  Next c
  Application.ScreenUpdating = True
End Sub

 

[Video99]

Try

Sub AddFullStop_v2()
  Dim c As Range
 
  Application.ScreenUpdating = False
  For Each c In Selection
    If Len(c.Value) > 1 Then
      If Right(c.Value, 1) <> "." Then c.Value = c.Value & "."
    End If
  Next c
  Application.ScreenUpdating = True
End Sub

Thank you so much ! Worked a dream

 

[Peter_SSs]

Cheers. Glad to contribute. Thanks for the follow-up.