About Us

Dave Peterson

Tom has responded at your other thread.

jsd219 wrote:

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

--

Dave Peterson

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
using functions to compare multiple columns for mismatch of cells	MDIAZ451	Excel Worksheet Functions	3	February 13th 06 02:49 AM
make multiple cells in 1 worksheet equal multiple cells in another	riley454	Excel Worksheet Functions	1	January 19th 06 03:00 PM
checking that cells have a value before the workbook will close	kcdonaldson	Excel Worksheet Functions	8	December 5th 05 04:57 PM
how can i ignore blank cells when multiple cells?	arash	Excel Worksheet Functions	4	November 17th 05 04:35 PM
PLEASE HELP - Pasting Cells to WrkSheet with Hidden Columns	Rob the Winer	Excel Worksheet Functions	7	October 5th 05 03:41 AM

Menu

About Us