Macro to paste range into all other sheets
Closed
gmasterv
-
Mar 24, 2010 at 01:21 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Mar 24, 2010 at 09:19 AM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - Mar 24, 2010 at 09:19 AM
Related:
- Macro to paste range into all other sheets
- Spell number in excel without macro - Guide
- Excel macro to create new sheet based on value in cells - Guide
- Macro excel download - Download - Spreadsheets
- Run macro when cell value changes - Guide
- Insert a new sheet at the end of the tab names and paste the range names starting in cell a1. autofit columns a:b and name the worksheet as range names. ✓ - Excel Forum
4 responses
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Mar 24, 2010 at 06:44 AM
Mar 24, 2010 at 06:44 AM
I have NOT TESTED this, but I think it will will
Sub Macro1()'
Sheets("Master").Select
Range("A1:E10").Select
Selection.Copy
For Each Sht In Sheets
if (sht.name <> "Master") then
sheets(sht).select
ActiveSheet.Paste
End if
Net Sht
End Sub
Sub Macro1()'
Sheets("Master").Select
Range("A1:E10").Select
Selection.Copy
For Each Sht In Sheets
if (sht.name <> "Master") then
sheets(sht).select
ActiveSheet.Paste
End if
Net Sht
End Sub
Thanks for trying but it's not working (even after correcting the minor typo of "Net Sht" to Next Sht. I'm still getting an error on sheets(sht).Select which seems to be the heart of my problem. I don't now how to select each "Sht" without calling it by actual tab name, not a variable
nevermind! I made a slight change and it worked!! thanks again. final code:
Sub Macro1()
Sheets("Master").Select
Range("A1:E10").Select
Selection.Copy
For Each sht In Sheets
If (sht.Name <> "Master") Then
Sheets(sht.Name).Select
ActiveSheet.Paste
End If
Next sht
End Sub
Sub Macro1()
Sheets("Master").Select
Range("A1:E10").Select
Selection.Copy
For Each sht In Sheets
If (sht.Name <> "Master") Then
Sheets(sht.Name).Select
ActiveSheet.Paste
End If
Next sht
End Sub
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
Mar 24, 2010 at 09:19 AM
Mar 24, 2010 at 09:19 AM
My bad. I had Sheets(sht).select. It should have been sht.select
Ok this is tested. I am presuming that you want to paste in the same range on other sheets (A1:E10) so I am selecting cells(1, "A") in the loop.
Sub Macro1() '
Sheets("MASTER").Select
Range("A1:E10").Select
Selection.Copy
For Each sht In Sheets
If (sht.Name <> "MASTER") Then
sht.Select
Cells(1, "A").Select
ActiveSheet.Paste
End If
Next sht
End Sub
Ok this is tested. I am presuming that you want to paste in the same range on other sheets (A1:E10) so I am selecting cells(1, "A") in the loop.
Sub Macro1() '
Sheets("MASTER").Select
Range("A1:E10").Select
Selection.Copy
For Each sht In Sheets
If (sht.Name <> "MASTER") Then
sht.Select
Cells(1, "A").Select
ActiveSheet.Paste
End If
Next sht
End Sub
