Using a macro to record and paste to new spread sheet not working

**oniete1997** · 02-03-2012, 03:22 AM

Hi guys,

I am trying to record a macro that will go thru a drop down list, copy the first line, paste into a different spread sheet and repeat until the list has been gone thru. Everything seems to work fine when recording - I go thru the drop down list, copy and paste special values and number formats and repeat. However, when I play the macro the only information that comes up in all of the rows is the same data that I have left on my screen that I copied from.

**arlu1201** · 02-03-2012, 07:36 AM

It will be good if you attach the sample workbook & code that you have been working on, so we can troubleshoot better.

**oniete1997** · 02-08-2012, 03:11 AM

Here is a spread sheet that uses the same type of information that i am working with. My problem is that when I go thru the drop down the macro doesnt seem to like this and will not feed the correct information from the Weekly totals tab to the Totals tab at the end.

This is the macro i have tried to run by coping only the first line of information from each drop down, week 11/4, and pasting to the totals page for the seperate individuals.

Keyboard Shortcut: Ctrl+p
'
Sheets("Weekly totals").Select
ActiveCell.Offset(3, -2).Range("A1:F1").Select
Selection.Copy
Sheets("Totals").Select
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Weekly totals").Select
Application.CutCopyMode = False
ActiveCell.Range("A1:F1").Select
Selection.Copy
Sheets("Totals").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Weekly totals").Select
Application.CutCopyMode = False
ActiveCell.Range("A1:F1").Select
Selection.Copy
Sheets("Totals").Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Weekly totals").Select
End Sub