tgreene2856
New Member
- Joined
- Apr 10, 2013
- Messages
- 30
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?
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?