Paste Values

[ch46guy]

I'm really new to VBA. I'm trying to cycle through a worksheet and if the cell has a "0" then I want it to paste "UNK". Any help would be appreciated.

Thanks,

Public Sub change()
Dim totalRow As Long
'totalRow = Sheet1.Range(Rows.count).End(xlUp).Row
totalRow = 10000
Dim startRow As Integer
startRow = 4
Dim i As Integer
Dim UNK As String
UNK = "UNK"
i = 4


Do Until i = totalRow
    If (Sheet1.Cells(startRow, 5)) = "0" Then Sheet1.Cells(startRow, 5).Paste (UNK)
     If (Sheet1.Cells(startRow, 6)) = "0" Then Sheet1.Cells(startRow, 6).Paste (UNK)
      If (Sheet1.Cells(startRow, 7)) = "0" Then Sheet1.Cells(startRow, 7).Paste (UNK)
       If (Sheet1.Cells(startRow, 8)) = "0" Then Sheet1.Cells(startRow, 8).Paste (UNK)
    startRow = startRow + 1
    i = i + 1
    Loop
    
End Sub

 

[ch46guy]

Figured it out.

If (Sheet1.Cells(startRow, 5)) = "0" Then Sheet1.Cells(startRow, 5).Value = "UNK"

 

[Smitty]

Welcome to the Board!

Why not just use Find & Replace?

 

[ch46guy]

Smitty.

Thanks for the welcome. I didnt use the Find and Replace because some of the other columns had "0" and I didnt want those changed.

 

[Smitty]

Then you just select the columns that you need changed and F&R will ignore the rest.