Automatic addition of Text
Dear Jarek
Thank you for your Help and Interest. I have used Daniel's Macro
Best
Stew
"Jarek Kujawa" wrote:
if you have a samll dataset and may change the cells by clicking them
one-by-one then use this macro
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
Target = Target & " (Receipt " & Target.Row & ")"
End Sub
to use it press ALT+F11 which will move you to VBA window
then double-click on ThisWorkbook
to the right you should see a window showing "(General", click on it
and select Workbook
from the rightmost window select Workbook_SheetSelectionChange
and paste Target = Target & " (Receipt " & Target.Column & ")"
in between these 2 lines
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal
Target As Range)
End Sub
HIH
On 17 Sty, 13:48, stew wrote:
Hi All
If I Have a Blank B10 and add text .Can text be added automatically to the
end of that text
ie
"Hotels New York" in B10
Become
"Hotels New York (Receipt 10)"
and
"Hotels New York" in B12
Become
"Hotels New York (Receipt 12)"
Thanks For Looking
Stew
|