Finding a value and placing text on the cell to the right

[Reggie]

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.

 

[Tom Ogilvy]

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.

 

[Reggie]

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]

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

 

[Reggie]

Thanks Tom! it works perfectly

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