copy value to all pages
Thanks for your reply...
Had to modify a bit because the workbook is password protected so I wrote: Sub Test() Dim I As Long ActiveSheet.Unprotect Password="DBI" For I = 2 To ThisWorkbook.Worksheets.Count Worksheets(1).Range("A1:A3").Copy Worksheets(I).Range("A1:A3") Next ActiveSheet.Protect Password="DBI" End Sub This seems to work, but cells A1 to A3 are blocked too. There must be a way to unblock them, perform the copying and block them again. Alas, I don't know how. Maybe you do. Thanks in advance JP, Belgium "Ron de Bruin" wrote in message ... You can use this macro Sub Test() Dim I As Long For I = 2 To ThisWorkbook.Worksheets.Count Worksheets(1).Range("A1:A3").Copy Worksheets(I).Range("A1") Next End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Jean-Paul De Winter" wrote in message ... Hi, I would like to have a puchbutton on the first page of my worksheet that, when puched, copies cells A1,A2 and A3 to evey page of the worksheet... Can somebody explain how? Thanks |
copy value to all pages
Use this
protect and unprotect in the loop Sub Test() Dim I As Long For I = 2 To ThisWorkbook.Worksheets.Count Worksheets(I).Unprotect Password = "DBI" Worksheets(1).Range("A1:A3").Copy Worksheets(I).Range("A1:A3") Worksheets(I).Protect Password = "DBI" Next End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Jean-Paul De Winter" wrote in message om... Thanks for your reply... Had to modify a bit because the workbook is password protected so I wrote: Sub Test() Dim I As Long ActiveSheet.Unprotect Password="DBI" For I = 2 To ThisWorkbook.Worksheets.Count Worksheets(1).Range("A1:A3").Copy Worksheets(I).Range("A1:A3") Next ActiveSheet.Protect Password="DBI" End Sub This seems to work, but cells A1 to A3 are blocked too. There must be a way to unblock them, perform the copying and block them again. Alas, I don't know how. Maybe you do. Thanks in advance JP, Belgium "Ron de Bruin" wrote in message ... You can use this macro Sub Test() Dim I As Long For I = 2 To ThisWorkbook.Worksheets.Count Worksheets(1).Range("A1:A3").Copy Worksheets(I).Range("A1") Next End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Jean-Paul De Winter" wrote in message ... Hi, I would like to have a puchbutton on the first page of my worksheet that, when puched, copies cells A1,A2 and A3 to evey page of the worksheet... Can somebody explain how? Thanks |
All times are GMT +1. The time now is 04:20 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com