>From : Subu ---------------------------- Thanks for the reply *Rajan verma*
Unfortunately this did not work. This is what happened 1. I opened the sp sheet. Selected one of the blank sheets. Then hit Control F 11 (macro window opens). Then copy past(ed) your macro to the macro window and hit the execute button 2. This macro asked for the source sheet, i copy paste that as advised by you 3. Then this macro goes on to copy that sheet on the *old sheets* i.e. it overwrites the contents of the sheets with matter existing on them .... 3.1. As you may have noticed I want the source to be copied to the BLANK sheets and NOT the ones with matter 4. When it tries to overwrite luckily the XL warning (do you wish to change contents ...etc) appears and the user can say no and escape All in all ...thanks for your efforts, I am sure there must be some minor tweaking needed and this should work best regards Subu On Wednesday, May 16, 2012 5:34:25 PM UTC+4, Rajan_Verma wrote: > > Try this :: > > > > > > Sub CopyPaste() > > > > Dim wkssheet As Worksheet > > Dim IntIndex As Integer > > Dim intLoop As Integer > > Dim StrSrcName As String > > For Each wkssheet In ThisWorkbook.Worksheets > > If wkssheet.UsedRange.Cells.Count > 1 Then > > IntIndex = wkssheet.Index > > Exit For > > End If > > Next wkssheet > > > > StrSrcName = InputBox("Please enter the Source Sheet Name") ' I will > suggest to COpy paste the sheet Name > > Worksheets(StrSrcName).UsedRange.Copy > > For intLoop = IntIndex To Worksheets.Count > > Worksheets(intLoop).Paste > > Worksheets(intLoop).Range("B11") = Worksheets(intLoop).Name > > Next > > Application.CutCopyMode = xlCopy > > End Sub > > > > > > > > > > * * > > *Regards* > > *Rajan verma* > > *+91 7838100659 [IM-Gtalk]* > > > > *From:* excel-macros@googlegroups.com [mailto: > excel-macros@googlegroups.com] *On Behalf Of *.. > *Sent:* 16 May 2012 6:22 > *To:* excel-macros@googlegroups.com > *Subject:* $$Excel-Macros$$ 1. paste standard content to all sheets 2. > paste sheet name to a specific cell > > > > Dear Members > > I use XL 2003, Win XP. I have the following *request* > > 1. I have a workbook with approx 170 sheets > 2. The first 90 or so sheets have some content in them (call them the old > sheets), the remaining 80 or so are blank as of now (call them new sheets) > 3. I wish to take the content from one of the old sheets ...say sheet # 70 > and paste it to all the blank / new sheets [same source , paste on all > *blank* sheets, paste only on blank sgeets] > 4. Is there an easy way , with or without VB > > 5. Once (4) above is accomplished, > 6. I need to past the sheet name of the *new* sheets - only new sheets on > to cell B 11 of each of the new sheet. i.e. IF the name on sheet #100 is > Delhi, I wish to copy the Text "Delhi" (without the quotes) to Cell B 11 > of sheet # 100 > > any help towards the above would be gratefully acknowledged > > > thanks in adv. and regards > > Subu > > -- > FORUM RULES (986+ members already BANNED for violation) > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > > 2) Don't post a question in the thread of another member. > > 3) Don't post questions regarding breaking or bypassing any security > measure. > > 4) Acknowledge the responses you receive, good or bad. > > 5) Cross-promotion of, or links to, forums competitive to this forum in > signatures are prohibited. > > NOTE : Don't ever post personal or confidential data in a workbook. Forum > owners and members are not responsible for any loss. > > > ------------------------------------------------------------------------------------------------------ > To post to this group, send email to excel-macros@googlegroups.com > -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com
sample for copy and b11.xls
Description: MS-Excel spreadsheet