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 make multiple selections in photoshop - Guide
- Mpc hc multiple instances - Guide
- How to rotate multiple pictures at once windows 10 - Guide
- How to put multiple watermarks on a word document - Guide
- Cell phone codes - 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.
