Code assistance

[Silo]

Hello Everyone

I have a sheet that I need some assistance with some code, here’s the scenario…
I need a code that will look at all cells in column “N” looking specifically for “999999” and or “?”.

Then for those cells with the “999999” and or “?”, bring the values in the corresponding row in column “K” into the cell with the “999999” and or “?” in column “N” and change the cell shading for quick identification, yellow will work.

Any help would be great appriciated

Thanks Everyone

 

[gsistek]

Give this a try:

Sub Replace()
Dim R As Range
For Each R In Range("N:N")
    If R.Value = 999999 Or R.Value = "?" Then
        Range("N" & R.Row) = Range("K" & R.Row)
        Range("N" & R.Row).Interior.ColorIndex = 36
    End If
Next R
End Sub

 

[poolhall]

try this:

Sub test()
Dim myRange As Range, c As Range

Set myRange = Sheet1.Range("N1:N" & Sheet1.Range("N65000").End(xlUp).Row)

With Sheet1
    For Each c In myRange
        If c.Value = 999999 Or c.Value = "?" Then
            c.Value = .Range("K" & c.Row).Value
            c.Interior.ColorIndex = 6
        End If
    Next c
End With

End Sub

 

[ColinKJ]

Hi Silo,

I've put together an example WB called ID Text which you can download from:

http://www.box.net/shared/t1xsace5c4

Ctrl+q to activate.

 

[Silo]

Thanks guys, I going to try these new