Copy Employee IDs to same cell in multiple worksheets.
Closed
Srinivas
-
Updated on May 21, 2017 at 08:10 AM
vcoolio Posts 1411 Registration date Thursday July 24, 2014 Status Moderator Last seen September 6, 2024 - May 21, 2017 at 08:05 AM
vcoolio Posts 1411 Registration date Thursday July 24, 2014 Status Moderator Last seen September 6, 2024 - May 21, 2017 at 08:05 AM
Related:
- Copy Employee IDs to same cell in multiple worksheets.
- How to lasso multiple objects in photoshop - Guide
- How to delete multiple files on mac - Guide
- Allow multiple downloads chrome - Guide
- How to open multiple media player windows - Guide
- Transfer data from one excel worksheet to another automatically - Guide
1 response
vcoolio
Posts
1411
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 6, 2024
262
May 21, 2017 at 08:05 AM
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.