its friday..need some help with a simple macro

[cmefly]

hi,

i need a macro that does the following...

for each cell in range(c2:N2)
if cell is blank or =0 then put an "X"

can anyone help with this???

thanks,

Marc

 

[kgkev]

Try

Dim rng As Range
Set rng = Sheets("sheet1").Range("C2:N2")

For Each Item In rng
    If Item.Value = "" Then
        Item.Value = "X"
        Else
        If Item.Value = 0 Then
            Item.Value = "X"
        End If
    End If
Next Item

 

[lenze]

Sub Fanugi()
Dim cl As Range
For Each cl In Range("$C$2:$N$2")
If Len(cl) = 0 Or cl = 0 Then cl = "X"
Next cl
End Sub

lenze

 

[cmefly]

kgkev,

thanks for your quick response...i have one other request and given that you are great at this, you shouldn't even have to flex your brain lol

your macro worked....i just need the range to be Ci to Ni (where i is a variable)

i basically need it to search each row in the given range...and ideas?

 

[kgkev]

not sure how you want to select which row - but this opens an input box

Sub test()
Dim rng As Range

i = InputBox("What Row?")

Set rng = Sheets("sheet1").Range("C" & i & ":" & "N" & i)

For Each Item In rng
    If Item.Value = "" Then
        Item.Value = "X"
        Else
        If Item.Value = 0 Then
            Item.Value = "X"
        End If
    End If
Next Item
End Sub

 

[kgkev]

might be better - Just highlight anywhere on the row and run the macro

Sub test()
Dim rng As Range

'i = InputBox("What Row?")
i = ActiveCell.Row

Set rng = Sheets("sheet1").Range("C" & i & ":" & "N" & i)

For Each Item In rng
    If Item.Value = "" Then
        Item.Value = "X"
        Else
        If Item.Value = 0 Then
            Item.Value = "X"
        End If
    End If
Next Item
End Sub