Edit cell relative

[EssKayKay]

We have a column with numerous values in them. I want to add a variable or character to each cell. I've tried to do this by recoring a macro both absolute and relative to no avail. An example would be where I want to add "D-" in front of the data in each cell. When I use the "Record Macro" option, it replaces the data in each cell with the data in the cell I used to create the macro.

Before After

123 D-123
456 D-123
789 D-123

What I want is
D-123
D-456
D-789

Thanks,
SKK

 

[Von Pookie]

Here's one way, at least. This will add the "D-" before the value of all cells in column A:

Sub test()
Dim cell As Range, myRng As Range

Set myRng = Range("A1", Range("A65536").End(xlUp))

For Each cell In myRng
    cell.Value = "D-" & cell.Value
Next cell

End Sub

There is also a built-in function in the ASAP Utilities addin that does this (inserts text at the beginning of all selected cells).

 

[Joe4]

Simply highlight the cells you wish to apply this to, and run the following macro:

Sub MyMacro()

    Dim cell As Range
    For Each cell In Selection
        If Len(cell) > 0 Then cell = "D-" & cell
    Next
        
End Sub

 

[EssKayKay]

Thank you.
Much appreciated....
SKK