vba copy/paste code don't copy the new values...

[zois]

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

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

but when a blank cell in Q take a value, not copied in V ,and sometimes not copied either the existing values.
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?

[Bob Phillips]

Maybe this

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

[zois]

thank for your response,again the values not copy paste automatically must click each cell to be copied.

[NoS]

The Worksheet_Change event is not fired by a cell containing a formula.