Copying one Column to ALL worksheets

[Abgar]

Hey guys,
Is it possible to select one column from a defined sheet name (Sheet.Name "Invoice" - Column V) and copy to ALL worksheets in the book and place in column V?

The catch is that each worksheet has a different name, and there are a variable number of worksheets...

I'm currently using the below for a similar sort of thing. Can this be adapted?

For Each wks In Worksheets
        wks.Activate
[COLOR=Red]       OTHER CODING (irrelevant for this purpose)
[COLOR=Black]Next wks
Call WriteDataToText[/COLOR]
[/COLOR]

Is this possible and / or easy?

Cheers guys

 

[Abgar]

Anyone able to help with this one?

 

[lenze]

This should get you started!1

Sub CopyV()
Dim ws As Worksheet
Sheet1.Range("V:V").Copy
For Each ws In Sheets
If ws.Name <> "Sheet1" Then
  ws.Range("V1").PasteSpecial
End If
Next ws
Application.CutCopyMode = False
End Sub

lenze

 

[Abgar]

Awesome, Thanks Lenze

 

[Abgar]

Thanks Lenze,

It's working really well

Just wondering if you could help me input something into that specific piece of coding

Sub Ranges()
    Dim ws As Worksheet
Range("W:W").Copy
For Each ws In Sheets
If ws.Name <> "Sheet2" Then
  ws.Range("AB1").PasteSpecial
  [COLOR=Red]CR = Cells(Rows.Count, "AB").End(xlUp).Row
Range("AA2:AA" & CR).Formula = "=IF(AND(LEFT(RC[1],1)=""0"",MID(RC[1],5,1)&MID(RC[1],9,1)=""  "",LEN(RC[1])=12,ISNUMBER(SUBSTITUTE(RC[1],"" "","""")+0)),SUBSTITUTE(REPLACE(RC[1],1,1,61),"" "",""""),RC[1])"[/COLOR]
  End If
 Next ws
Application.CutCopyMode = False
End Sub

I need to add the Red bit into there, but when i do, it just ignores it.
Macro doesn't error or anything like that, it just doesnt DO it.
Would you have any ideas on what else i need to input to make it work?

Thanks so much again

 

[Abgar]

Can Anyone help me out with this last bit?

Thanks

 

[lenze]

Try this

CR = ws.Cells(Rows.Count, "AB").End(xlUp).Row
ws.Range("AA2:AA" & CR).Formula = "=IF(AND(LEFT(RC[1],1)=""0"",MID(RC[1],5,1)&MID(RC[1],9,1)=""  "",LEN(RC[1])=12,ISNUMBER(SUBSTITUTE(RC[1],"" "","""")+0)),SUBSTITUTE(REPLACE(RC[1],1,1,61),"" "",""""),RC[1])"

Unless you tell the code which worksheet to look at, it assumes the sheet that was active when the macro was started.

lenze

 

[Abgar]

You Legend

Thanks so much Lenze