Need a VBA function

[yogeshmaney]

Hi,

I need a VBA function to copy the Row Array and paste it from given cell at offset value

Suppose

SourceArray= Range("A1:G1")
DestCell = Range("D4")
OffSetValue= Range("A3")

Need a Function like

CopyArray(SourceArray,DestCell,OffsetValue)

So the Source Array should get printed from Dest Cell at offset value which is 3 ( as the value varies the array should move)




A B C D E F G
1 2 4 6 0 0 0 0
2 0 0 0 0 0 0 0
3 3 0 0 0 0 0 0
4 0 0 0 0 0 0 0
5 0 0 0 2 4 6 0

 

[btadams]

Try putting this in the Worksheet module:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A3")) Is Nothing Then
        Range("A1:G1").Copy Destination:=Range("D4").Offset(Range("A3").Value, 0)
    End If

 

[wigi]

Or, yet untested:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$3" Then [D4].Offset([A3]).Value = [A1:G1]
End Sub