copying data from one sheet to another

[sl1990]

Hi,

im to macros and this forum im having trouble with copying data from a sheet called "setup" to the same place in 150 other sheets named "sheet1-150"

so far ive got -

Sub Bookie_names_first()
    Range("F1:V1").Select
    Selection.Cut
    Range("B1").Select
    ActiveSheet.Paste
    
    Application.CutCopyMode = False
End Sub

the only problem with this is it dose it all in the same sheet i want to copy from "setup" and paste in the 150 others how would i do this ?

thanks in advance

 

[AlphaFrog]

Sub Bookie_names_first()
    
    Dim i As Long
    
    For i = 1 To 150
        Sheets("Sheet" & i).Range("B1:R1").Value = Sheets("Setup").Range("F1:V1").Value
    Next i

End Sub

 

[GK039]

Try something like this that is tested for 3 sheets

Sub test()
Dim i As Integer
Dim ws As Worksheet


Set ws = Worksheets("Sheet1")

For i = 2 To Worksheets.Count
  ws.Range("f1:j1").Copy Destination:=Worksheets(i).Range("F1:G1")
Next i
Application.CutCopyMode = False


End Sub

Hi,

im to macros and this forum im having trouble with copying data from a sheet called "setup" to the same place in 150 other sheets named "sheet1-150"

so far ive got -

Sub Bookie_names_first()
    Range("F1:V1").Select
    Selection.Cut
    Range("B1").Select
    ActiveSheet.Paste
    
    Application.CutCopyMode = False
End Sub

the only problem with this is it dose it all in the same sheet i want to copy from "setup" and paste in the 150 others how would i do this ?

thanks in advance

 

[sl1990]

thanks alphafrog!

but when i run this i get an error saying :

run-time error:'9':
subscript out of range

and an option to debug where it highlights the line

"Sheets("Sheet" & i).Range("B1:R1").Value = Sheets("Setup").Range("F1:V1").Value"

any ideas ?

thanks

 

[AlphaFrog]

The code assumes your sheets are named Sheet1, Sheet2, Sheet3...., Sheet149, Sheet150.

And of course you have a sheet named Setup as well

Sheets([COLOR="Red"]"Sheet" & i[/COLOR]).Range("B1:R1").Value = Sheets("[COLOR="Blue"]Setup[/COLOR]").Range("F1:V1").Value

I would guess you're missing a sheet or the names are different from what the code expects.

 

[sl1990]

SORRY ! did somthing stupid left out sheet26 out of my workbooks Thanks very much GK039 and ALPHAFROG !