Below is my current code that is working fine. The Macro runs when I type a value into cell G2, it then adds the value of G2 to cell G4, G5, G6, G7, or G8 depending on the date. What code can I add to this so that once the macro adds G2 to the other cell, it would then delete the contents of cell G2?
Please Login or Register to view this content.
Last edited by brown3218; 09-09-2013 at 11:23 PM.
MaybePlease Login or Register to view this content.
Last edited by Solus Rankin; 09-05-2013 at 07:05 PM.
Thanks,
Solus
Please remember the following:
1. Use [code] code tags [/code]. It keeps posts clean, easy-to-read, and maintains VBA formatting.Highlight the code in your post and press the # button in the toolbar.2. Show appreciation to those who have helped you by clickingbelow their posts.
3. If you are happy with a solution to your problem, mark the thread as [SOLVED] using the tools at the top.
"Slow is smooth, smooth is fast."
perhaps
Please Login or Register to view this content.
Richard Buttrey
RIP - d. 06/10/2022
If any of the responses have helped then please consider rating them by clicking the small star iconbelow the post.
Not quite sure how to insert that into my code.
Originally Posted by Richard Buttrey
Brown,
If you don't hear from Richard try the code in post #2. I amended and included your entire code.
Thanks Solus,
I tried your code and it worked once and then it the whole macro stopped working. I didn't get any errors, it just stopped adding the cell value to the other.
I may have disabled events too soon because of the exit sub. TryPlease Login or Register to view this content.
Hmm, when I run this it gives me a syntax error and highlights If Target.Address = "$G$2"
I may have disabled events too soon because of the exit sub. TryPlease Login or Register to view this content.
This changes things up a bit, but I believe its what you're trying to achievePlease Login or Register to view this content.
Sorry for all of the back and forth. I now get an error, "Compile Error: Else Without If". It Highlights this line: ElseIf Not Intersect(Target, Range("H2")) Is Nothing Then
This changes things up a bit, but I believe its what you're trying to achievePlease Login or Register to view this content.
I missed an 'end if'Please Login or Register to view this content.
Thank you thank you!
Ended up using this:
Please Login or Register to view this content.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks