Needing Help with Data Transfer/Automatic Link

A

angrob

I've an Excel Spreadsheet with 6 columns, 1 column which has a question, 4 of
them I add figures to and these are totalled etc, and then there is 1 column
which takes text/comments. I want to know if I can automatically extract the
text column along with the corresponding columns to another page?
 
D

Daniel.C

When do you wish to transfer the data, on demand, once the cells of a
row are filled ? Do you want to delete the data from the source once it
has been transfered ?
Daniel
 
A

angrob

hi
i want to transfer the data once the cells have been filled and No I don't
want to delete data from source.
 
D

Daniel.C

Look at the following file. It has 2 sheets. When you enter data in the
first 6 columns of "source" sheet, the row is transfered to the
"Target" sheet.
http://www.filedropper.com/angrob
Here is the macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 6 Then Exit Sub
If Application.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row,
6))) = 6 Then
With Sheets("Target")
myRow = .[A65000].End(xlUp).Row + 1
Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Copy
.Cells(myRow, 1).PasteSpecial xlPasteValues
End With
End If
End Sub
HTH
Daniel
 
A

angrob

when I follow the link it doesn't show me the file, what do I do here?
--
angrob


Daniel.C said:
Look at the following file. It has 2 sheets. When you enter data in the
first 6 columns of "source" sheet, the row is transfered to the
"Target" sheet.
http://www.filedropper.com/angrob
Here is the macro :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 6 Then Exit Sub
If Application.CountA(Range(Cells(Target.Row, 1), Cells(Target.Row,
6))) = 6 Then
With Sheets("Target")
myRow = .[A65000].End(xlUp).Row + 1
Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Copy
.Cells(myRow, 1).PasteSpecial xlPasteValues
End With
End If
End Sub
HTH
Daniel
Click to expand...
 
Top