Hi There

I am haveing trouble moving data from one sheet called "Survey" to
worksheet called Summary.

I wanted the "Survey" sheet to be filled out and at the click of a
button trnasfer the data from Survey worksheet to summary and blank
"Survey.
Next time the information is entered I want the data posted to the next
available column in the summary sheet.

This is what I have so far but it is not working.

PLease help.


Private Sub CommandButton1_Click()

Dim Survey As Worksheet
Dim Summary As Worksheet


Set Survey = Worksheets("Survey")
Set Summary = Worksheets("Summary")

Survey.Range("C3").Value = Summary.Range("B1").Value
Survey.Range("C4").Value = Summary.Range("B3").Value
Survey.Range("C5").Value = Summary.Range("B4").Value
Survey.Range("C6").Value = Summary.Range("B5").Value
Survey.Range("G3").Value = Summary.Range("B2").Value

Survey.Range("D14").Value = Summary.Range("B7").Value
Survey.Range("D15").Value = Summary.Range("B8").Value
Survey.Range("D16").Value = Summary.Range("B9").Value
Survey.Range("D17").Value = Summary.Range("B10").Value
Survey.Range("D18").Value = Summary.Range("B11").Value

Survey.Range("D21").Value = Summary.Range("B13").Value
Survey.Range("D22").Value = Summary.Range("B14").Value
Survey.Range("D23").Value = Summary.Range("B15").Value

Survey.Range("D26").Value = Summary.Range("B17").Value
Survey.Range("D27").Value = Summary.Range("B18").Value
Survey.Range("D28").Value = Summary.Range("B19").Value

Survey.Range("D31").Value = Summary.Range("B21").Value
Survey.Range("D32").Value = Summary.Range("B22").Value

Survey.Range("D35").Value = Summary.Range("B24").Value

Survey.Range("c39").Value = Summary.Range("B26").Value



End Sub

thx in advance you guys are great!


--
Mikeice
------------------------------------------------------------------------
Mikeice's Profile: http://www.excelforum.com/member.php...o&userid=22467
View this thread: http://www.excelforum.com/showthread...hreadid=374865