Forum Discussion

Copper Contributor

Jan 05, 2017

Using VBA Macro to copy data from 1 worksheet to another

I have 10 worksheets in the same format labled S1 thru S10. I have another worksheet for data entry. Each row contains data to be copied to one of the other 10 worksheets. The destination is defin...

Macros & VBA

Need Help

Wyn Hopkins

MVP

Jan 06, 2017

Hi Bob

Does the input sheet get cleared out after the data is copied to the other sheets?

Bob Hilton

Copper Contributor

Jan 06, 2017

Yes.

Wyn Hopkins
MVP
Jan 06, 2017
Hopefully this will get you started in the right direction

There's all sorts of considerations to take into account but this is a basic starting point...

Sub CopyToSheets()
'
Dim c As Range
Dim strDestinationSheet As String

For Each c In Range("ColDestination")

strDestinationSheet = c.Value

c.EntireRow.Copy

Sheets(strDestinationSheet).Select

Range("A1").Select

ActiveSheet.Paste

Selection.EntireRow.Insert

Next c

End Sub
- Bob Hilton
  Copper Contributor
  Jan 07, 2017
  Thank you Wyn. You got me unstuck and movinig in the right direction!