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

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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> news:[email protected]...
> > 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" <[email protected]> wrote in message
news:[email protected]...
> 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" <[email protected]> wrote in message
> > news:[email protected]...
> > > 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" <[email protected]> wrote in message
> news:[email protected]...
> > 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" <[email protected]> wrote in message
> > > news:[email protected]...
> > > > 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.
> > >
> > >
> > >
>
>
>