Hello,
i have such problem I need such VBA which copy sheet before data was refreshed. I wrote such code, tested and didn't work as i expected. It copy sheet when i enter any information in listed cells, but it didn't work when data was changed by data/refresh....
Thanks for you any advice.
Private Sub xx()
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Me.Range("A1:C1000")) Is Nothing Then
Range("PV[[#Headers],[WOB_AUTO_KEY]]").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PV2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
i have such problem I need such VBA which copy sheet before data was refreshed. I wrote such code, tested and didn't work as i expected. It copy sheet when i enter any information in listed cells, but it didn't work when data was changed by data/refresh....
Thanks for you any advice.
Private Sub xx()
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Target, Me.Range("A1:C1000")) Is Nothing Then
Range("PV[[#Headers],[WOB_AUTO_KEY]]").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("PV2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub