Excel Macro formatting cells if a % is in column a

[nmoore1]

I am trying to write code that would look in column A in the excel workbook (it is a text field with descriptions) if there a is a % in the description then format the 12 cells to the right as percent. and continue to identify all the data that has a % in column A.

 

[NeonRedSharpie]

Sub percentAllTheThings()

    Dim rng As Range
    Set rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)


    For Each cell In rng
        If InStr(1, cell.Value, "%") Then
            Range(cell.Address, cell.Offset(0, 12)).NumberFormat = "0%"
        End If
    Next cell
End Sub

Assuming that column A is text and will contain % somewhere in it.

 

[Momentman]

Like this

Sub sortapercent()
    Dim I As Integer
    For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If InStr(1, Range("A" & I).Value, "%") > 0 Then
            Range("A" & I).Offset(0, 12).NumberFormat = "0%"
        End If
    Next I
End Sub

 

[nmoore1]

I am trying to make this part of a bigger macro and it works great on it's own, however, when I insert it into the main macro, I get a message saying Compile error: Statement invalid outside Type block. any sugestions?

 

[nmoore1]

Sub percentAllTheThings()

    Dim rng As Range
    Set rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)


    For Each cell In rng
        If InStr(1, cell.Value, "%") Then
            Range(cell.Address, cell.Offset(0, 12)).NumberFormat = "0%"
        End If
    Next cell
End Sub

Assuming that column A is text and will contain % somewhere in it.

This is the codce that worked as a stand alone.

 

[nmoore1]

Like this

Sub sortapercent()
    Dim I As Integer
    For I = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If InStr(1, Range("A" & I).Value, "%") > 0 Then
            Range("A" & I).Offset(0, 12).NumberFormat = "0%"
        End If
    Next I
End Sub

This code worked in my bigger macro, however, it only changed the format on the 12th column not all the columns between.