Inset different row content to Multiple sheets based on a list.

venumkd

New Member
Joined
Feb 4, 2020
Messages
44
Office Version
  1. 2010
Sirs

First of all thanks a lot to the help and supports so far given.

Now I need a VBA / ANY METHOD to insert row content to multiple worksheets as detailed below

The sheet names shall be mentioned in column A in the first worksheet starts from cell A1 onwards. These sheets are to be identified or selected for pasting / inserting the content.

The content to be pasted is like this

Work ID CP1429(Sheet 01)

Work ID CP1429(Sheet 02)

Work ID CP1429(Sheet 03)

Work ID CP1429(Sheet 04)

Work ID CP1429(Sheet 05)

And so on up to Work ID CP1429(Sheet 01500) to be inserted in 1500 sheets named Sheet 01 to Sheet 01500

The contents are to be pasted / inserted in Row 2 of these sheets mentioned in Column A.

The above contents to be pasted / inserted shall be mentioned in Column B starts from cell B1 onwards in the same worksheet.

Thanks & Regards

VENU
 

Some videos you may like

Excel Facts

How to create a cell-sized chart?
Tiny charts, called Sparklines, were added to Excel 2010. Look for Sparklines on the Insert tab.

JLGWhiz

Well-known Member
Joined
Feb 7, 2012
Messages
12,524
Office Version
  1. 2013
Platform
  1. Windows
My interpretation of the objective is to copy the contents of column B in Sheet 1 of a workbook to column A of sheets in the same workbook as listed in Column A of Sheet.
Code:
Sub t()
Dim c As Range
For Each c In Sheets(1).Range("A1", Cells(Rows.Count, 1).End(xlUp))
If c <> "" Then
Sheets(1).Range("B1", Cells(Rows.Count, 2).End(xlUp)).Copy Sheets(c.Value).Range("A1")
End If
Next
End Sub

If my interpretation is incorrect, please clarify.
 

JLGWhiz

Well-known Member
Joined
Feb 7, 2012
Messages
12,524
Office Version
  1. 2013
Platform
  1. Windows
That is the best I can do with what is in Post #1.
Regards, JLG
 

Watch MrExcel Video

Forum statistics

Threads
1,114,261
Messages
5,546,832
Members
410,759
Latest member
Bufnercash
Top