This is the code that I want to run automatically whenever someone enters data. Any help would be appreciated. Thanks.
Sub add_apostrophe()
'will add an ' in front of whats in the used range in column A
Set Rng = Intersect(Range("A:A"), ActiveSheet.UsedRange)
For Each c In Rng
c.Value = "'" & c
Next
End Sub
You need to use an Event procedure, specifically on the worksheet this applies to.
If you are trying to place apostrophes in front of formulas, swap out Value for Formula.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target.Value = "'" & Target.Value End If End Sub
Last edited by daffodil11; 01-07-2015 at 01:39 PM. Reason: Oops.
Make Mom proud: Add to my reputation if I helped out!
Make the Moderators happy: Mark the Thread as Solved if your question was answered!
Thanks this worked for me. YEA
Hurray for happy times! And the Shoe House by Hallam!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks