Maybe this
Code:Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Columns("Q")) Is Nothing Then Target.Copy Me.Cells(Target.Row, "V") End If End Sub
first sorry for my English is not very good,
column Q contains a formula that gives in cells a value and after 5 minutes the value disappears
i use this code for auto copy paste from Q:Q to V:V
but when a blank cell in Q take a value, not copied in V ,and sometimes not copied either the existing values.Code:Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [Q1]) Is Nothing Then [v1:V100] = [q1:q100].Value End If End Sub
why that happens? i want to copied when a cell in Q take a value because after 5 min the value disappears.
must correct something in my code?
Maybe this
Code:Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Columns("Q")) Is Nothing Then Target.Copy Me.Cells(Target.Row, "V") End If End Sub
thank for your response,again the values not copy paste automatically must click each cell to be copied.
The Worksheet_Change event is not fired by a cell containing a formula.
Bookmarks