Please help me edit code

[etheer]

HI
I have code paste cell to another cell
code work very good when i change in cell F normal
but when i change in sheet M2 do not work code
plaese help me

[etheer]

Why i need change normal cell F to work code
i need work code if change cell in sheet M2

[mancubus]

welcome to the forum.

what you are using is worksheet specific event code.

hit Alt+F11 to open VBE.
double click on Sheet1(M1). select all the code in the code window (which is on the right).
copy it (ctrl+C)

double click on Sheet2(M). go to code window.
paste it (ctrl+V)

save your file.

[etheer]

welcome to the forum.

what you are using is worksheet specific event code.

hit Alt+F11 to open VBE.
double click on Sheet1(M1). select all the code in the code window (which is on the right).
copy it (ctrl+C)

double click on Sheet2(M). go to code window.
paste it (ctrl+V)

save your file. HI mancubus
you download book1a and you understand what i mean

now when i change in sheet M2
change cell F in M1 and change cell J to yes but code do not work
if i change normal cell F change cell J to yes and work code
i need work code when i change in sheet M2

[mancubus]

so you want changes in Column A of M2 take effect in M1?

goes to M2's worksheet code module:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error Resume Next
For Each c In Worksheets("M1").Range("J7:J" & Worksheets("M1").Cells(Rows.Count, "J").End(xlUp).Row)
If c = "Yes" Then
With c
.Offset(, 1).Value = "Yes"
.Offset(, 2).Value = .Offset(, -6).Value
End With
End If
Next c
End If

End Sub

[etheer]

Thank you so much mancubus

[etheer]

so you want to control changes in Column A of M2 take effect in M1?

goes to M2's worksheet code module:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error Resume Next
For Each c In Worksheets("M1").Range("J7:J" & Worksheets("M1").Cells(Rows.Count, "J").End(xlUp).Row)
If c = "Yes" Then
With c
.Offset(, 1).Value = "Yes"
.Offset(, 2).Value = .Offset(, -6).Value
End With
End If
Next c
End If

End Sub



Thank you so much mancubus

[mancubus]

you're wellcome.