Copy Employee IDs to same cell in multiple worksheets.
Closed
Srinivas
-
Updated on May 21, 2017 at 08:10 AM
vcoolio
vcoolio
- Posts
- 1347
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- June 10, 2022
Related:
- Copy Employee IDs to same cell in multiple worksheets.
- If cell contains (multiple text criteria) then return (corresponding text criteria) ✓ - Forum - Excel
- Excel if range of cells contains multiple specific text ✓ - Forum - Excel
- How to change the same cell in multiple sheets - Guide
- Excel cell enter multiple lines - Guide
- Add value to one cell if multiple other cells have any value ✓ - Forum - Excel
1 reply
vcoolio
May 21, 2017 at 08:05 AM
- Posts
- 1347
- Registration date
- Thursday July 24, 2014
- Status
- Moderator
- Last seen
- June 10, 2022
May 21, 2017 at 08:05 AM
Hello Srinivas,
Without knowing how your work book is set up, I assume that the 399 employee sheets are named with the employee numbers. Hence, I think that the following code, placed in a standard module and assigned to a button, should work for you:-
I hope that this helps.
Cheerio,
vcoolio.
Without knowing how your work book is set up, I assume that the 399 employee sheets are named with the employee numbers. Hence, I think that the following code, placed in a standard module and assigned to a button, should work for you:-
Sub InsertIDs() Dim ws As Worksheet Application.ScreenUpdating = False i = 2 For Each ws In Worksheets If ws.Name <> "Sheet1" Then ws.[C15].Value = Sheet1.Cells(i, 9).Value i = i + 1 End If Next ws Application.ScreenUpdating = True MsgBox "All done!", vbExclamation End Sub
I hope that this helps.
Cheerio,
vcoolio.