I am searching down a column for a particular value and if found, I want to
check the cell to the immediate right to see if its empty. If it is, I want
to
insert a text value. If the cell to the right has a value already in it, I
want to move to the next available empty space to the right and put in
value. Any help would be greatly appreciated.

Sub SearchingdownTheSelection()
for each cell in selection
if cell.Value = "particular" then
set cell1 = cells(cell.row,256).End(xltoLeft)(1,2)
cell1.Value = "text"
end if
Next
End Sub

replace selection with a specific range if you wish

for each cell in Range("B2:B200")

as an example.

--
Regards,
Tom Ogilvy

"Reggie" wrote in message
...
I am searching down a column for a particular value and if found, I want
to
check the cell to the immediate right to see if its empty. If it is, I
want
to
insert a text value. If the cell to the right has a value already in it, I
want to move to the next available empty space to the right and put in
value. Any help would be greatly appreciated.

Thanks Tom for the quick response. I have another question. what if I wanted
to search another sheet to find a particular value? for example

On sheet1 I enter a value and I want to find that value on sheet2 and then
basically see if the cell to the right is empty if so put in a value. If its
not empty move another space to right and put in a value. Sorry I didn't
clarify this before.


"Tom Ogilvy" wrote:

Sub SearchingdownTheSelection()
for each cell in selection
if cell.Value = "particular" then
set cell1 = cells(cell.row,256).End(xltoLeft)(1,2)
cell1.Value = "text"
end if
Next
End Sub

replace selection with a specific range if you wish

for each cell in Range("B2:B200")

as an example.

--
Regards,
Tom Ogilvy

"Reggie" wrote in message
...
I am searching down a column for a particular value and if found, I want
to
check the cell to the immediate right to see if its empty. If it is, I
want
to
insert a text value. If the cell to the right has a value already in it, I
want to move to the next available empty space to the right and put in
value. Any help would be greatly appreciated.

Sub Searching()
Dim cell as Range, v as Variant, cell1 as Range
v = lcase(Worksheets("Sheet1").Range("a1").Value)
with Worksheets("Sheet2")
for each cell in .Range("B2:B30")
if lcase(cell.Value) = v then
set cell1 = .cells(cell.row,256).End(xltoLeft)(1,2)
cell1.Value = "text"
end if
Next
End With
End Sub

--
Regards,
Tom Ogilvy



"Reggie" wrote in message
...
Thanks Tom for the quick response. I have another question. what if I
wanted
to search another sheet to find a particular value? for example

On sheet1 I enter a value and I want to find that value on sheet2 and then
basically see if the cell to the right is empty if so put in a value. If
its
not empty move another space to right and put in a value. Sorry I didn't
clarify this before.


"Tom Ogilvy" wrote:

Sub SearchingdownTheSelection()
for each cell in selection
if cell.Value = "particular" then
set cell1 = cells(cell.row,256).End(xltoLeft)(1,2)
cell1.Value = "text"
end if
Next
End Sub

replace selection with a specific range if you wish

for each cell in Range("B2:B200")

as an example.

--
Regards,
Tom Ogilvy

"Reggie" wrote in message
...
I am searching down a column for a particular value and if found, I
want
to
check the cell to the immediate right to see if its empty. If it is, I
want
to
insert a text value. If the cell to the right has a value already in
it, I
want to move to the next available empty space to the right and put
in
value. Any help would be greatly appreciated.

Thanks Tom! it works perfectly

"Tom Ogilvy" wrote:

Sub Searching()
Dim cell as Range, v as Variant, cell1 as Range
v = lcase(Worksheets("Sheet1").Range("a1").Value)
with Worksheets("Sheet2")
for each cell in .Range("B2:B30")
if lcase(cell.Value) = v then
set cell1 = .cells(cell.row,256).End(xltoLeft)(1,2)
cell1.Value = "text"
end if
Next
End With
End Sub

--
Regards,
Tom Ogilvy



"Reggie" wrote in message
...
Thanks Tom for the quick response. I have another question. what if I
wanted
to search another sheet to find a particular value? for example

On sheet1 I enter a value and I want to find that value on sheet2 and then
basically see if the cell to the right is empty if so put in a value. If
its
not empty move another space to right and put in a value. Sorry I didn't
clarify this before.


"Tom Ogilvy" wrote:

Sub SearchingdownTheSelection()
for each cell in selection
if cell.Value = "particular" then
set cell1 = cells(cell.row,256).End(xltoLeft)(1,2)
cell1.Value = "text"
end if
Next
End Sub

replace selection with a specific range if you wish

for each cell in Range("B2:B200")

as an example.

--
Regards,
Tom Ogilvy

"Reggie" wrote in message
...
I am searching down a column for a particular value and if found, I
want
to
check the cell to the immediate right to see if its empty. If it is, I
want
to
insert a text value. If the cell to the right has a value already in
it, I
want to move to the next available empty space to the right and put
in
value. Any help would be greatly appreciated.