Copy Employee IDs to same cell in multiple worksheets.
Closed
Srinivas
-
Updated on May 21, 2017 at 08:10 AM
vcoolio Posts 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 - May 21, 2017 at 08:05 AM
vcoolio Posts 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 - May 21, 2017 at 08:05 AM
Related:
- Copy Employee IDs to same cell in multiple worksheets.
- Which key is used to make multiple line in a single cell - Guide
- How to allow multiple downloads in chrome - Guide
- How to delete multiple files at once - Guide
- How to make multiple selections in photoshop - Guide
- Transfer data from one excel worksheet to another automatically - Guide
1 response
vcoolio
Posts
1404
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 15, 2023
259
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.
