Shoesbologna
New Member
- Joined
- Sep 3, 2020
- Messages
- 3
- Office Version
- 2016
- Platform
- Windows
Hi all,
Have been looking hard here and haven't quite found what I'm looking for.
Essentially, I want to copy a data set onto a sheet (titled "work) and have a macro take the different rows of info and copy and past to the next available rows on different sheets.
I've recorded a macro and have gotten this:
The columns are all correct, but the specific row 61's just happen to be the next available row, right now. Tomorrow it'll be row 62.
Thanks in advance!
Have been looking hard here and haven't quite found what I'm looking for.
Essentially, I want to copy a data set onto a sheet (titled "work) and have a macro take the different rows of info and copy and past to the next available rows on different sheets.
I've recorded a macro and have gotten this:
The columns are all correct, but the specific row 61's just happen to be the next available row, right now. Tomorrow it'll be row 62.
Thanks in advance!
VBA Code:
Sub CopyAll()
'
' CopyAll Macro
'
'
Sheets("Work").Select
Range("C15:Q15").Select
Selection.Copy
Sheets("Sheet4").Select
Range("B61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Work").Select
Range("C6:Q6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet5").Select
Range("B61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Work").Select
Range("C7:Q7").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet5").Select
Range("U61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Work").Select
Range("C8:Q8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet6").Select
Range("B61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Work").Select
Range("C9:Q9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet7").Select
Range("B61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Work").Select
Range("C10:Q10").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet7").Select
Range("U61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Work").Select
Range("C11:Q11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet8").Select
Range("B61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Work").Select
Range("C12:Q12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet8").Select
Range("U61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Work").Select
Range("C13:Q13").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet9").Select
Range("B61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Work").Select
Range("C14:Q14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet9").Select
Range("U61").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Last edited by a moderator: