Run a macro automatically when there is a data in a certain Cell

[festiki]

Hello,

I don't know how to use a macro. I am more on a formula type of guy. Can you please help me? I have a macro in place in my file but I need it to run automatically when a data is encoded or paste in a certain Cell. I have made the macro using the record button. For it to work is for me to manually run it.

Sub moving()
'
' moving Macro
'
'
Range("A4:D4").Select
Application.CutCopyMode = False
Selection.Copy
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Table1").Select
Application.CutCopyMode = False
Selection.Copy
Range("A9").Select
ActiveSheet.Paste
Range("A8:D8").Select
Selection.ClearContents
Range("B4:D4").Select
Selection.ClearContents
End Sub

I really would appreciate your help. Pardon my English.

Thanks,

Kirby

 

[My Aswer Is This]

Why do you say:
"have a macro in place in my file but I need it to run automatically when a data is encoded or paste in a certain Cell

Why do you not tell us what cell??

We need exact details:

Here is a script which will do what you want when you enter data into range ("A1")

It's interesting you copying values from one range and pasting in another range but then clearing the same range.


This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Range("A4:D4").Copy Range("A8")
Range("Table1").Copy Range("A9")
Range("A8:D8").ClearContents
Range("B4:D4").ClearContents
End If
End Sub

 

[festiki]

Sorry about that. It's in Cell D4. The Code you have given to me works perfectly. Thank you very much for your help. The only problem I have when I copy paste a data into the cell, the Macro would not work.

 

[My Aswer Is This]

Well I think you can see the ideal. I really do not understand what your doing. Your wanting to change a value in D4 then copy A4 to D4 and paste into A9 then clear the same ranges. But I think you see the ideal. Maybe you can modify the script to do what you want. When I use A1 and paste in data it works. But when your wanting to copy data into the same range your wanting to clear i'm not sure how that would work.Thank you very much for your help. The only problem I have when I copy paste a data into the cell, the Macro would not work.[/QUOTE]