Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
renaming text in cell
Hello hope somebody can help me out with this, driving me nuts. I´m trying to rename specific cells (which start with the word "Cd" into CDC Philly, but something is wrong here, pretty sure it´s the identifier. Sub TextChange() Dim rng As Characters Dim i As Double, counter As Double Sheets("Retail Raw Data").Select Set rng = Range("o2:o65000") i = 1 Set rng = .Search("cd ", LookIn:=x1values) If Not rng Is Nothing Then Retail = rng.gildi Do rng.Value = "Empty" Set rng = .FindNext(rng) Loop While Not rng Is Nothing And rng.gildi Is Not "Empty" End If End With For counter = 1 To rng.Rows.Count If rng.Cells(i) = "Empty" Then rng.Cells(i).FormulaR1C1 = "CDC Philly" Else i = i + 1 End If Next End Sub -- jhkr ------------------------------------------------------------------------ jhkr's Profile: http://www.excelforum.com/member.php...o&userid=24665 View this thread: http://www.excelforum.com/showthread...hreadid=382413 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Renaming tabs from particular cell contents | Excel Worksheet Functions | |||
vb code for renaming a work sheet with a cell reference | Excel Discussion (Misc queries) | |||
Maintain cell links when renaming directory containing multiple f | Excel Worksheet Functions | |||
Renaming a cell name | Excel Programming | |||
Renaming Text Boxes and Buttons | Excel Programming |