Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Finding a value and placing text on the cell to the right
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. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Finding a value and placing text on the cell to the right
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. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Finding a value and placing text on the cell to the right
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. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Finding a value and placing text on the cell to the right
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Placing Col & Row identifiers into a cell as text | Excel Worksheet Functions | |||
Finding Text in a cell | Excel Worksheet Functions | |||
Finding text in a cell and returning a value based on that text | Excel Discussion (Misc queries) | |||
Finding text in a cell | Excel Worksheet Functions | |||
Finding text within a cell | Excel Programming |