Creating an Event Change that will copy paste cells from a different sheet

[ds9703c]

Hello,

I need help with writing a VBA code that will allow me to copy the cells in the range D7:D12 in the Sheet named DefaultData and paste them into the cells L41:L46 of the sheet called AD, when the cell H7 in the INPUTS sheet has the text "Farm Manure"

So far this is the code I have,

Please Login or Register  to view this content.

But it is not working
Please help me!

[Marc L]

Hi !

first, your event code must be located within the source data worksheet module …

[ds9703c]

Yeah that's where I have it, as a Module in the Sheet I need it to run in

[Marc L]

Second, what is this source worksheet and what is its range address to watch out for any change ?

[ds9703c]

the source worksheet is called DefaultData and the range to watch out is H7 in a sheet called INPUTS

[Marc L]

Paste this code event to the worksheet INPUTS module :

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Address = "$H$7" Then 
        If Target.Value = "Farm Manure" Then Range("DefaultData!D7:D12").Copy Range("AD!L41:L46") 
    End If 
End Sub  

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !