Yes, this script is a smaller part of a bigger one and i have posted
for various parts of the bigger script and someitmes i use similar if
not the same verbage. :-)

Unfortunately i can not get your or Tom's script to work properly. i
know you two are awesome coders so i am assuming it is on my end.

One of the problems is, i need this script to start at whatever row is
selected. I am working on another script that will test the cells and
select the appropriate ones, once those cells are selected i then need
to call this script. so all i need this one to do is starting from the
selected position (in this case the specified cell in column "N"),
check its row thru columns C - H to see if any of those cells have an
"x" in them. if they do then the script needs to place an "x" one
column to the right and one row down.

God bless
jsd219

Dave Peterson wrote:
Maybe something like:

Option Explicit
Sub testme()

Dim res As Variant
Dim wks As Worksheet
Dim WhatToFind As String
Dim iCol As Long

Set wks = Worksheets("sheet1")

WhatToFind = "JACK And JILL"

With wks
res = Application.Match(WhatToFind, .Range("H:H"), 0)

If IsError(res) Then
MsgBox "not found"
Exit Sub
End If

For iCol = 1 To 6 'skip 7 not to overwrite column 7
If LCase(.Cells(res, iCol).Value) = LCase("x") Then
.Cells(res, iCol + 1).Value = "X"
Exit For
End If
Next iCol
End With
End Sub

jsd219 wrote:

I am trying to write a script that looks for a cell with specified text
in a specified column, once it finds the cell it needs to check six
different columns (a,b,c,d,e,f) one row above and find the column that
has an "x", it then needs to place an "x" in its row one column to the
right form the previous "x"

example: if it finds the cell with "Went up the hill" the script needs
to look up one row and check columns (a,b,c,d,e,f) until it finds the
"X".

In this case it will find the "X" on the row with "JACK AND JILL" in
column "a" so it will place an "X" for the row "Went up the hill" (the
orginal cell searched for) in column "b"

a b c d e f g
X JACK AND JILL

Went up the hill

To fetch 3.5 Pales of
Water

God bless
jsd219

--

Dave Peterson