Rename Cell Based on Cell Content

043792 · Jan 9th 2006

I am trying to rename the contents of of each row in column A
All I really want to do is add a letter at the end of each of the cells
For example if A2:A8 contains
1
5
8
11
45
56
76
I would like it to end as
1T
5T
8T
11T
45T
56T
76T

My non working attempt and example sheet attached

Code

Private Sub CommandButton1_Click()
    Dim j As Long
     
    Dim prtLkup As Range
    Dim partstring As String


    Set prtLkup = Sheets("totals").Range("A1:a10")
   
    For j = 2 To Sheets("totals").Range("A2").End(xlDown).Row
       
             
          partstring = Application.WorksheetFunction.VLookup _
         (Sheets("totals").Cells(j, 1).Value, prtLkup, 1, False)
         partstring = partstring + "T"
        Sheets("totals").Cells(j, 1).PasteSpecial partstring
    Next j






End Sub

Display More

**norie** · Jan 9th 2006

Re: Rename Cell Based on Cell Content

Try this.

Code

Sheets("totals").Cells(j, 1) = partstring

Will Riley · Jan 9th 2006

Re: Rename Cell Based on Cell Content

I'm confused by your use of VLOOKUP ?

why not just

Code

Private Sub CommandButton1_Click()
    Dim j As Long
   
    For j = 2 To Sheets("totals").Range("A2").End(xlDown).Row
        With Sheets("totals").Cells(j, 1)
            .Value = .Value & "T"
        End With
    Next j
End Sub

043792 · Jan 9th 2006

Re: Rename Cell Based on Cell Content

Norie, thanks for clearing the mental block, works perfectly

043792 · Jan 9th 2006

Re: Rename Cell Based on Cell Content

Will, your method is more efficient but the code was a snip from a more complex operation I just had a brain block on rewriting the cell contents.
Thanks for the help

Rename Cell Based on Cell Content

Participate now!

Share