Sub Remove_Tags()
Dim rng As Range
Dim cl As Object
Sheets("Standings").Select
Set rng = Range("C6:C42")
For Each cl In rng
If InStr(1, cl.Value, "-", vbTextCompare) > 1 Then
cl.Value = Mid(cl.Value, InStr(1, cl.Value, "-", vbTextCompare) + 1, 30)
End If
Next cl
End Sub
Sub Convert_Win_Loss()
Dim rng As Range
Dim cl As Object
Sheets("Standings").Select
Set rng = Range("J6:J42,L6:M42,P6:W42,Z6:Z42")
For Each cl In rng
If cl.Text <> cl.Value Then 'change format
cl.NumberFormat = "@"
cl.Value = Format(cl.Value, "m-d")
End If
Next cl
End Sub
If you are experiencing a similar issue, please ask a related question
Title | # Comments | Views | Activity |
---|---|---|---|
Excel Conditional Statements | 11 | 39 | |
formula how to get the number incrementor? | 3 | 23 | |
Excel VBA | 4 | 27 | |
Excel VBA Select non contiguous cells in a loop | 4 | 30 |
Join the community of 500,000 technology professionals and ask your questions.