Nicole has attended:
Access Advanced course
Access VBA course
Replace Text in a cell
Hi
I'm trying to replace the titles of 3 columns in Excel
So far I've managed to change one but unsure how to replace the values of the rest with different title in columns B1 & C1.
Sub change_title()
With Range("A1").Value = Replace(.Value, "Constituent Unique Ref No", "ConsID")
End With
End Sub
Thanks
Nicole
RE: Replace Text in a cell
Hi Nicole
Thanks for getting in touch. This is much easier than you might think. You can modify the contents of any cell with the format
Range(cell reference) = new value
So your code would look something like this:
Sub change_title()
Range("A1") = "Constituent Unique Ref No"
Range("B1") = "ConsID"
Range("C1") = "My label"
End Sub
Just a footnote on that, if you want use a number leave off the quotes, else Excel will treat it as text:
Range("A1") = 150
If you're looking to do a "find and replace" style action, record that code and modify accordingly.
I hope that helps.
Kind regards
Gary Fenn
Microsoft Office Specialist Trainer
Tel: 0207 987 3777
Best STL - https://www.stl-training.co.uk
98%+ recommend us
London's leader with UK wide delivery in Microsoft Office training and management training to global brands, FTSE 100, SME's and the public sector