Automatically populate data to multiple sheets

Originally Posted by Melvinrobb

By adding in some helper columns and rows, the attached should work
I only added the formula for the entertainment tab. The rest will work exactly the same way.

Awesome, I only briefly looked at it, but that looks perfect.

Thanks Melvinrobb! Happy New Year

Originally Posted by Melvinrobb

By adding in some helper columns and rows, the attached should work
I only added the formula for the entertainment tab. The rest will work exactly the same way.

I was able to look at this further and it looks like it will work perfectly. Thanks again Melvinrobb

Originally Posted by xladept

Hi dfulmer,

Here's an event procedure for your "All Content" sheet:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Dim ws As Worksheet, C As Range, D As Range, r As Long
r = Target.Row: Set ws = Worksheets(Target.Value)
Set C = Range("A" & r)
Set D = ws.Range("A" & ws.Range("A1").End(xlDown).Row + 1)
C.Resize(, 10).Copy D: End If: End Sub

Directions for running the routine(s) just supplied

Copy the code to the clipboard

Press ALT + F11 to open the Visual Basic Editor.

Select “Module” or “Sheet” as directed above from the Insert menu

Type "Option Explicit" then paste the code into the white space on the right

With the cursor between Sub and End Sub press F5 (F8 to Single Step)

OR

Press ALT + Q to close the code window.

Press ALT + F8 then double click on the macro name

Although the formula solution above works fine, I am kind of curious to check this method out but it isnt working for me. I add the code to the sheet page and then close the window. When I hit Alt-F8, there is nothing for me to run in that list, but if I change one of the drop downs I get a Run-time error '1004' - Method 'Range' of object '_Worksheet' failed. Any ideas what I'm doing wrong?