Macro Click Button To Move Data To Table

[tgreene2856]

I learn how to do this on youtube and I fooled around to allow me to enter the same information twice by having the questions on their twice and click the button and both get sent to table. I got it to work all but the second set the top question the date does not appear.

This is the macro I am using

Sub Macro3()
'
' Macro3 Macro
'
Range("C2").Select
Selection.Copy
Sheets("Table").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Card").Select
Range("C3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Card").Select
Range("C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Card").Select
Range("C5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Card").Select
Range("C6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Range("F2").Select
Selection.Copy
Sheets("Table").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Card").Select
Range("F3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Card").Select
Range("F4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Card").Select
Range("F5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select
Sheets("Card").Select
Range("F6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Table").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 1).Range("A1").Select

Sheets("Card").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("F6").Select
Selection.ClearContents
Range("F5").Select
Selection.ClearContents
Range("F4").Select
Selection.ClearContents
Range("F3").Select
Selection.ClearContents
Range("F2").Select
Selection.ClearContents
Range("C6").Select
Selection.ClearContents
Range("C5").Select
Selection.ClearContents
Range("C4").Select
Selection.ClearContents
Range("C3").Select
Selection.ClearContents
Range("C2").Select
Selection.ClearContents
'
End Sub


It does everything I want but take F2 info and send it over. But F3-F6 does go over.

Any thoughts?

 

[sergioMabres]

Not without the workbook to debug the macro, it is very hard to debug by heart
Regards
Sergio

 

[tgreene2856]

how do i attach files in this forum and i will.

 

[sergioMabres]

copy the file to dropbox/public or skydrive/public and post public URL here

 

[tgreene2856]

Here is the Dropbox url.

https://www.dropbox.com/s/yk53ayoyefhu1zl/Workbook4.xlsm

Thanks for the help.

 

[sergioMabres]

There is an error in your code probably you deleted a line "Sheets("Card").Select"

' Your code
...
    Sheets("Table").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 1).Range("A1").Select
    
    Range("F2").Select
    Selection.Copy
    Sheets("Table").Select
...
' Corrected code
...
    Sheets("Table").Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Card").Select
    Range("F2").Select
    Selection.Copy
    Sheets("Table").Select
...

I tested and now it works
Sergio

 

[tgreene2856]

It tested and it worked. Thanks for the help.

Tim