Excel 2007 : How to create a button and automate the process of transferring data?

Hi Everyone,

I have a code which loads data from source workbook to destination workbook, but inorder to do it , I need to open both the work books,I have to press Alt+F11, paste the code in the VBA editior and run.
Is there any simpler way make this happen by creating a button on the destination work book? so that just at the click of the button everything happens automatically.

ThanQ

djkahc

can u provide m with the procedure so that I can do it my self?

Sub moveData()
Dim i As Long, j As Long, flag As Boolean
Dim MyCols(1 To 5) As String
Dim k As Long
Dim counter As Long
Dim label1 As String



MyCols(1) = "B"
MyCols(2) = "C"
MyCols(3) = "D"
MyCols(4) = "E"

counter = 0
k = 1
vertical_count = 0

j = Workbooks("Destination0.xlsx").Sheets("Sheet1").Range("B25").Row + 1

flag = False

For i = 1 To Workbooks("consolidated.csv").Sheets("consolidated").Range("G65536").End(xlUp).Row Step 1


If Workbooks("consolidated.csv").Sheets("consolidated").Range("G" & i).Value = "IOps" Then
flag = True

End If

If Workbooks("consolidated.csv").Sheets("consolidated").Range("G" & i).Value <> "IOps" And flag = True Then
flag = False
Workbooks("Destination0.xlsx").Sheets("Sheet1").Range(MyCols(k) & j).Value = _
Workbooks("consolidated.csv").Sheets("consolidated").Range("G" & i).Value
counter = counter + 1

If counter = 5 Or counter = 10 Or counter = 15 Or counter = 20 Then
j = j - 4
k = k + 1
Else
j = j + 1
End If

If counter = 20 Then
k = 1
counter = 0
j = j + 10
vertical_count = vertical_count + 1

'If k < 5 Then
'label1 = MyCols(k) & j
'j = Workbooks("Destination0.xlsx").Sheets("Sheet1").Range(label1).Row
'End If

End If

If vertical_count = 2 Then
k = 1
counter = 0
vertical_count = vertical_count + 1
j = 6

'If k < 5 Then
' label1 = MyCols(k) & j
' j = Workbooks("Destination0.xlsx").Sheets("Sheet1").Range(label1).Row
'End If

End If
End If


Next i
End Sub

anyways i am attaching the sheets and there is a code tooo....

Thanks