Delete part of cell value
Hi,
Below code removes word 'SADMIN' if found as part of a word or in each cell of column M of sheet2. ---------------------------------------------------------------------- Sub RMV_SADMIN() Application.ScreenUpdating = False Application.DisplayAlerts = False For Each Cell In Range("sheet2!M:M") sStr = Trim(Cell.Value) If Left(sStr, 6) = "SADMIN" Then Cell.Value = Trim(Right(sStr, Len(sStr) - 6)) End If Next Application.ScreenUpdating = True Application.DisplayAlerts = True Worksheets("Sheet2").Activate Range("A1").Select End Sub ----------------------------------------------------------------- Any further improvement is welcomed. |
Delete part of cell value
Columns("m:m").Select
Selection.Replace What:="SADMIN", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False "Sinner" wrote: Hi, Below code removes word 'SADMIN' if found as part of a word or in each cell of column M of sheet2. ---------------------------------------------------------------------- Sub RMV_SADMIN() Application.ScreenUpdating = False Application.DisplayAlerts = False For Each Cell In Range("sheet2!M:M") sStr = Trim(Cell.Value) If Left(sStr, 6) = "SADMIN" Then Cell.Value = Trim(Right(sStr, Len(sStr) - 6)) End If Next Application.ScreenUpdating = True Application.DisplayAlerts = True Worksheets("Sheet2").Activate Range("A1").Select End Sub ----------------------------------------------------------------- Any further improvement is welcomed. |
All times are GMT +1. The time now is 08:19 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com