Replace value in another cell based on criteria

[Zzz999]

Hello. I need to find the cells in column A that has the word Total in it, and if that row has the word Total in it it will replace the value of column C with 1. Here's my sample table:

Team	Purchaser	Total
Foot rugs		25
Amplifier Total		0
Sandwich		984
Can opener		659
Mouse Total		0
Keyboard		87
Flask		7
Switch		7
Hat Total		0
Eyeglass		676
Shoes		75
Phone Total		0
Microphone		99
Box		3

<tbody>
</tbody>

As you can see, the cells in column C with the word Total in column A are zero. The zeroes must be replaced by 1. I am totally in the dark on how to replace it using the word Total. I'm still grasping the basics of vba and I need to do it using vba only. I've been searching for a code that will fit my need but no luck. Any suggestion will be appreciated. Thank you!

 

[AlphaFrog]

[color=darkblue]Sub[/color] Totals()
    
    [color=darkblue]Dim[/color] Found [color=darkblue]As[/color] Range, FirstFound [color=darkblue]As[/color] [color=darkblue]String[/color]
        
    [color=darkblue]Set[/color] Found = Range("A:A").Find(What:="Total", _
                                  LookIn:=xlValues, _
                                  LookAt:=xlPart, _
                                  SearchOrder:=xlByRows, _
                                  SearchDirection:=xlNext, _
                                  MatchCase:=False)
                                  
    Application.ScreenUpdating = [color=darkblue]False[/color]
                
    [color=darkblue]If[/color] [color=darkblue]Not[/color] Found [color=darkblue]Is[/color] [color=darkblue]Nothing[/color] [color=darkblue]Then[/color]
        FirstFound = Found.Address
        [color=darkblue]Do[/color]
            Found.Offset(, 2).Value = 1
            [color=darkblue]Set[/color] Found = Range("A:A").FindNext(After:=Found)
        [color=darkblue]Loop[/color] [color=darkblue]Until[/color] Found.Address = FirstFound
    [color=darkblue]End[/color] [color=darkblue]If[/color]
    
    Application.ScreenUpdating = [color=darkblue]True[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

 

[alansidman]

Try this:

Sub Total()
Dim i As Long
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row


Application.ScreenUpdating = False
For i = 2 To lr
    If InStr(Range("A" & i), "Total") Then
    Range("C" & i).Value = 1
    End If
Next i


Application.ScreenUpdating = True
MsgBox "complete"
End Sub

 

[My Aswer Is This]

Try this:

Sub Total_Me()
Application.ScreenUpdating = False
Dim i As Integer
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To Lastrow
        If InStr(Cells(i, 1).Value, "Total") Then
            Cells(i, 3).Value = "1"
            End If
    Next
Application.ScreenUpdating = True
End Sub

 

[Zzz999]

I tried both codes, it doesn't work.

 

[Zzz999]

I also tried the last code, still doesn't work. In my excel file, the Amount column is located in column N. I only placed it in column C for illustration purposes. Thank you for making a great effort in helping a beginner like me.

 

[My Aswer Is This]

So what column should we look in for the word "Total"?
And what column do you want the "1" put in.

We can only work with the information you give us.
Your quote:
Hello. I need to find the cells in column A that has the word Total in it, and if that row has the word Total in it will replace the value of column C with 1. Here's my sample table:

 

[Zzz999]

Try this:

Sub Total_Me()
Application.ScreenUpdating = False
Dim i As Integer
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To Lastrow
        If InStr(Cells(i, 1).Value, "Total") Then
            Cells(i, 3).Value = "1"
            End If
    Next
Application.ScreenUpdating = True
End Sub

Hello. I tried the code. It only replaced the first Total with 1. The rest, still the same (0)

 

[Zzz999]

The column with the word Total is column A, and the other column is column N, for "1". I only used column C just to illustrate the table.

 

[My Aswer Is This]

Try this:

Sub Total_Me()
Application.ScreenUpdating = False
Dim i As Integer
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To Lastrow
        If InStr(Cells(i, 1).Value, "Total") Then
            Cells(i, 14).Value = "1"
            End If
    Next
Application.ScreenUpdating = True
End Sub