Note: The other languages of the website are Google-translated. Back to English
Logáil isteach  \/ 
x
or
x
Cláraigh  \/ 
x

or

Conas iliomad bileoga a chóipeáil arís agus arís eile in Excel?

Uaireanta, b’fhéidir go mbeidh orainn cóip nó iliomad cóipeanna de bhileoga oibre sonraithe a dhéanamh i leabhar oibre. Seo roinnt bealaí gasta chun cabhrú leat bileog oibre amháin nó bileoga oibre iolracha a chóipeáil go héasca arís agus arís eile in Excel.


Déan cóip amháin de bhileoga oibre iolracha uair amháin i leabhar oibre gníomhach nó i leabhar oibre eile le hordú Bog nó Cóipeáil

Leis an Bog nó Cóipeáil i Excel, is féidir leat cóip amháin de bhileog oibre, bileoga oibre iolracha ar leith nó gach bileog oibre a dhéanamh ina leabhar oibre gníomhach nó i leabhar oibre eile ag an am.

1. Sa leabhar oibre áirithe ina gcóipeálfaidh tú bileoga oibre, roghnaigh iliomad bileoga oibre ar an mbarra Bileog Cluaisín.
nótaí: Sealbhú CTRL eochair, is féidir leat cluaisíní leatháin neamh-in aice láimhe a roghnú trí iad a chliceáil ceann ar cheann ar an mbarra Tab Bileog; gabháltas Shift eochair, is féidir leat cluaisíní leatháin leatháin in aice láimhe a roghnú trí chliceáil ar an gcéad chluaisín bileog agus an ceann deireanach ar an mbarra Tab Bileog.

2. Cliceáil ar dheis ar an táb bileog roghnaithe ar an mbarra Bileog Cluaisín, agus roghnaigh Bog nó Cóipeáil ón roghchlár comhthéacs. Féach an pictiúr:
cóipeáil doc bileoga iolracha 01

3. Sa an Bog nó Cóipeáil bosca dialóige, sonraigh na socruithe seo a leanas le do thoil:
(1) Sonraigh le do thoil an leabhar oibre ceann scríbe a ndéanfaidh tú bileoga oibre a chóipeáil uaidh ón A chur in áirithe liosta anuas. Is féidir leat an leabhar oibre gníomhach, leabhar oibre oscailte eile, nó leabhar oibre nua a roghnú de réir mar is gá duit.
(2) Sonraigh suíomh na mbileog cóipeáilte ar bharra na Bileog Cluaisín, is féidir leat a roghnú i ndiaidh na mbileog uile atá ann.
(3) Seiceáil Cruthaigh cóip rogha, mura seiceálann tú an rogha seo, bogfar na bileoga oibre roghnaithe isteach sa leabhar oibre cinn scríbe.
(4) Cliceáil ar an OK cnaipe.

Anois ní dhéanfaidh sé ach cóip amháin de na bileoga oibre roghnaithe isteach sa leabhar oibre sonraithe. Chun iliomad cóipeanna de na bileoga oibre seo a dhéanamh, is féidir leat an oibríocht a athdhéanamh arís agus arís eile.

Níl ach cúpla cad a tharlaíonn chun iliomad cóipeanna de bhileoga oibre iolracha a dhéanamh sa leabhar oibre gníomhach

Go ginearálta, is féidir linn iliomad bileoga oibre a chóipeáil leis an Bog nó Cóipeáil gné in Excel. Mar sin féin, ní féidir leis an ngné seo ach cóip amháin a dhéanamh ag an am. Seo, le Kutools le haghaidh Excel's Cóipeáil Bileoga Oibre áirgiúlacht, is féidir leat an oiread cóipeanna de go leor bileoga oibre agus a theastaíonn uait sa leabhar oibre gníomhach a dhéanamh trí roinnt cliceáil amháin. Triail Saor in Aisce Gné Iomlán 30 lá!
cóipeáil ad iliomad bileoga oibre 01

Kutools le haghaidh Excel - Cuimsíonn sé níos mó ná 300 uirlis áisiúil le haghaidh Excel. Triail saor in aisce gné iomlán 30 lá, níl aon chárta creidmheasa ag teastáil! Get sé anois

Déan cóipeanna iolracha de bhileog oibre shonraithe amháin i leabhar oibre gníomhach le cód VBA

Más mian leat 10 gcóip de bhileog oibre shonraithe a dhéanamh, beidh an Bog nó Cóipeáil beidh an t-ordú ar bhealach Tógann am, agus caithfidh tú an oibríocht a dhéanamh arís agus arís eile. Ach leis an gcód VBA seo a leanas, is féidir leat an bhileog oibre a chóipeáil go tapa 10 n-uaire ag an am céanna.

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas i bhFuinneog an Mhodúil.

VBA: Déan iliomad cóipeanna de bhileoga oibre áirithe i leabhar oibre gníomhach

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

nótaí: Sa chód thuas, cuir "Sheet1"le hainm na bileoige le cóipeáil.

3. Ansin brúigh F5 eochair chun an cód a rith, is cosúil go n-iarrann bosca pras líon na gcóipeanna bileoige atá uait.

4. Ansin cliceáil OK, cóipeáladh an bhileog oibre shonraithe 100 uair sa leabhar oibre gníomhach.


Déan cóipeanna iomadúla de bhileoga oibre iolracha i leabhar oibre gníomhach le Kutools for Excel

Cé go bhfuil sé simplí cóip de iliomad bileoga oibre a dhéanamh in Excel, más mian leat cóipeanna iolracha de bhileoga oibre iolracha a dhéanamh sa leabhar oibre reatha, b’fhéidir go mbeidh ort an Bog nó Cóipeáil mír ordaithe arís agus arís eile. Ar mhaith leat an rud a dhéanamh i gcliceáil amháin? Leis an Cóipeáil Bileoga Oibre fóntais an bhreiseáin tríú páirtí Kutools le haghaidh Excel, tá tú in ann cóipeanna iolracha de bhileoga oibre iolracha a dhéanamh i gcliceáil amháin in Excel.

Kutools le haghaidh Excel - Cuimsíonn sé níos mó ná 300 uirlis áisiúil le haghaidh Excel. Triail saor in aisce gné iomlán 30 lá, níl aon chárta creidmheasa ag teastáil! Get sé anois

1. Cliceáil Kutools Plus > Cóipeáil Bileoga Oibre. Féach an pictiúr:

nótaí: Cliceáil Kutools Plus > Bileog Oibre > Cóipeáil Bileoga Oibre gheobhaidh an ghné seo freisin.

2. Cuir socruithe i bhfeidhm sa Cóipeáil Bileoga Oibre Il bosca dialóige:
(1) Seiceáil na bileoga oibre ar mhaith leat go ndéanfaí iad a chóipeáil Cóipeáil na bileoga oibre roghnaithe alt seo.
(2) Sonraigh Líon na gcóipeanna.
(3) Socraigh suíomh na mbileog cóipeáilte, mar shampla, roimh gach bileog oibre nó dá éis, roimh an mbileog oibre reatha nó dá éis.
(4) Cliceáil ar an Ok cnaipe.

3. Tagann bosca pras amach le cur i gcuimhne duit gur cóipeáladh na bileoga oibre seiceáilte arís agus arís eile de réir mar is gá duit, cliceáil le do thoil OK cnaipe chun é a fhágáil. Féach an pictiúr:

seo Cóipeáil Bileoga Oibre Il gné de Kutools le haghaidh Excel déanfaidh sé cóipeanna iolracha de bhileoga oibre iolracha sonraithe sa leabhar oibre gníomhach le roinnt cliceáil amháin. Bíodh Triail In Aisce agat!


Déan cóip amháin de bhileoga oibre iolracha ó iliomad leabhar oibre go ceann nua

Má tá Kutools for Excel suiteáilte agat, is féidir leat a chuid a chur i bhfeidhm freisin Comhcheangail Bileoga Oibre gné chun cóip amháin de bhileoga oibre iolracha a dhéanamh ó iliomad leabhar oibre dúnta go leabhar oibre nua le roinnt cad a tharlaíonn ach in Excel.

Kutools le haghaidh Excel - Cuimsíonn sé níos mó ná 300 uirlis áisiúil le haghaidh Excel. Triail saor in aisce gné iomlán 30 lá, níl aon chárta creidmheasa ag teastáil! Get sé anois

1. Cliceáil Kutools Plus > Chomhcheangail chun an ghné Comhcheangail Bileoga Oibre a ghníomhachtú.

2. Sna Bileoga Oibre Comhcheangailte - draoi Céim 1 de 3, féach le do thoil ar an Comhcheangail iliomad bileoga oibre ó leabhair oibre i mbileog oibre amháin rogha, agus cliceáil ar an Ar Aghaidh cnaipe. Féach an pictiúr:

3. Sna Bileoga Oibre Comhcheangailte - draoi Céim 2 de 3, déan mar a leanas an pictiúr a thaispeántar:
(1) Cliceáil Cuir > Comhad or Fillteán chun leabhair oibre a chur leis, cóipeálfaidh tú bileoga oibre.
(2) Sa Liosta leabhar oibre alt, seiceáil an leabhar oibre a gcóipeálfaidh tú a bhileoga oibre;
(3) Sa Liosta bileog oibre alt, seiceáil na bileoga oibre a chóipeálfaidh tú;
(4) Déan arís thuas (2) agus (3) chun bileoga oibre a roghnú as leabhair oibre eile a chóipeálfaidh tú.
(5) Cliceáil ar an Ar Aghaidh cnaipe.

4. Sna Bileoga Oibre Comhcheangail - draoi Céim 3 de 3, cumraigh na socruithe cóipeála de réir mar is gá duit, agus cliceáil ar an Críochnaigh cnaipe.

5. Anois sa dialóg nua, sonraigh fillteán ceann scríbe le do thoil chun an leabhar oibre nua a shábháil, ainmnigh an leabhar oibre nua sa Ainm comhaid bosca, agus cliceáil ar an Sábháil cnaipe. Féach an pictiúr:

Anois tiocfaidh dhá bhosca dialóige eile amach agus iarrfaidh tú ort an leabhar oibre nua a oscailt agus an cás teaglaim a shábháil, cliceáil cnaipí de réir mar is gá duit. Go dtí seo, rinne sé gach bileog oibre sonraithe a chóipeáil ó iliomad leabhar oibre ag an am.

Leis seo Comhcheangail (Bileoga Oibre) fóntais, is féidir leat bileoga oibre agus leabhair oibre a chóipeáil agus a chur le chéile go héasca mar a thaispeántar ar an liosta seo a leanas. Bíodh Triail In Aisce agat!
(1) Comhcheangail go tapa bileoga oibre / raonta éagsúla ó leabhair oibre go bileog oibre amháin;
(2) Déan gach bileog oibre den ainm céanna a chumasc / a chomhcheangal go tapa i mbileog oibre amháin;
(3) Bileoga oibre nó leabhair oibre a chumasc / a chomhcheangal go tapa in aon leabhar oibre amháin;
(4) Déan sonraí ó iliomad bileoga oibre a achoimriú / a ríomh go tapa i mbileog oibre amháin.


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíochtaí Office / Excel 2007-2019 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d’fhiontar nó d’eagraíocht. Gnéithe iomlána triail saor in aisce 30 lá. Ráthaíocht ar ais airgid 60 lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Tyler Dempsey · 3 years ago
    I am new to this I am just trying to make copies of the same sheet this is the code I am using.

    Sub Copier()
    Dim s As String
    Dim numtimes As Integer
    Dim numCopies As Integer
    numCopies = InputBox("How many copies do you need?")
    s = InputBox("Enter the name of the Worksheet you want to copy")
    For numtimes = 1 To numCopies
    ActiveWorkbook.Sheets(s).Copy _
    After:=ActiveWorkbook.Sheets(Worksheets.Cou nt)
    Next
    End Sub

    when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _
    After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.
    • To post as a guest, your comment is unpublished.
      Jorge · 1 years ago
      Working Code

      Sub Copier()
      Dim s As String
      Dim numtimes As Integer
      Dim numCopies As Integer
      numCopies = InputBox("How many copies do you need?")
      s = InputBox("Enter the name of the Worksheet you want to copy")
      For numtimes = 1 To numCopies
      ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
      Next
      End Sub

      copy the entire line from ActiveWorkbook.Sheets...... that was the problem, and some spaces

      Have a great day
    • To post as a guest, your comment is unpublished.
      Schuyler · 3 years ago
      [quote name="Tyler Dempsey"]I am new to this I am just trying to make copies of the same sheet this is the code I am using.

      Sub Copier()
      Dim s As String
      Dim numtimes As Integer
      Dim numCopies As Integer
      numCopies = InputBox("How many copies do you need?")
      s = InputBox("Enter the name of the Worksheet you want to copy")
      For numtimes = 1 To numCopies
      ActiveWorkbook.Sheets(s).Copy _
      After:=ActiveWorkbook.Sheets(Worksheets.Cou nt)
      Next
      End Sub

      when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _
      After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.[/quote]


      Here is the exact code you want to use:


      Sub Copier()
      Dim s As String
      Dim numtimes As Integer
      Dim numCopies As Integer
      numCopies = InputBox("How many copies do you need?")
      s = InputBox("Enter the name of the Worksheet you want to copy")
      For numtimes = 1 To numCopies
      ActiveWorkbook.Sheets(s).Copy _
      After:=ActiveWorkbook.Sheets(Worksheets.Count)
      Next
      End Sub
      • To post as a guest, your comment is unpublished.
        Belva · 2 months ago
        Thank you, the last one saved my life :)
    • To post as a guest, your comment is unpublished.
      Schuyler · 3 years ago
      [quote name="Tyler Dempsey"]I am new to this I am just trying to make copies of the same sheet this is the code I am using.

      Sub Copier()
      Dim s As String
      Dim numtimes As Integer
      Dim numCopies As Integer
      numCopies = InputBox("How many copies do you need?")
      s = InputBox("Enter the name of the Worksheet you want to copy")
      For numtimes = 1 To numCopies
      ActiveWorkbook.Sheets(s).Copy _
      After:=ActiveWorkbook.Sheets(Worksheets.Cou nt)
      Next
      End Sub

      when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _
      After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.[/quote]


      Double check your code and make sure you don't have a space at ActiveWorkbook. Sheets(s).Copy _ or at Sheets(Worksheets.Cou nt)
  • To post as a guest, your comment is unpublished.
    Simon · 4 years ago
    Fantastic VBA code - really helped
  • To post as a guest, your comment is unpublished.
    Barry · 4 years ago
    When I first tried it, I got the error message because I didn't change the name Sheet1. After I realized what caused the error, I researched a little further, as I did not want to be manually entering the sheet name into the macro. And when I need this feature, it is almost always for the current sheet.

    I added the line a = activesheet.name
    And revised the line after:=activeworkbook.sheets("sheet1") to activeworkbook.sheets(a).copy _

    That worked very well, but I did notice the numbering was reversed ... that didn't bother me as I was going to manually rename the new sheets anyway.

    When I saw Schuyler's post, I further revised the line activeworkbook.sheets(a).copy _ to after:=activeworkbook.sheets(worksheets.count)

    I am now satisfied with the result. My finished macro:

    Sub copies()
    Dim x As Integer
    x = InputBox("Enter number of times to copy Sheet1")
    For numtimes = 1 To x
    ActiveWorkbook.Sheets("Sheet1").Copy _
    After:=ActiveWorkbook.Sheets(Worksheets.Count)
    Next
    End Sub

    ---
    All the best, Barry
    • To post as a guest, your comment is unpublished.
      MJ · 2 years ago
      i got syntax error on "After:=ActiveWorkbook.Sheets(Worksheets.Count)


      but i dunno whats wrong... Can u help me please?
    • To post as a guest, your comment is unpublished.
      Kate · 3 years ago
      Thank you so much Barry. Your finished macro is the only thing that worked for me.
  • To post as a guest, your comment is unpublished.
    stalag 17 · 4 years ago
    where i will insert this above code in vba should i create common button then inside ?? regards.
    • To post as a guest, your comment is unpublished.
      Adi · 3 years ago
      Follow the below steps:
      1. Copy the above code
      2. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.
      2. Click Insert > Module, and paste the following code in the Module Window.
      4.Then press F5 key to run the code
      5.A prompt box appears to ask you the number of sheet copies you want.
  • To post as a guest, your comment is unpublished.
    Susan · 5 years ago
    I get an error that 'numtimes' is not defined...?
  • To post as a guest, your comment is unpublished.
    Debbi · 5 years ago
    I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9)

    I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines:

    ActiveWorkbook.Sheets(s).Copy _
    Before:=ActiveWorkbook.Sheets(Worksheets.Count)
    • To post as a guest, your comment is unpublished.
      Schuyler · 5 years ago
      [quote name="Debbi"]I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9)

      I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines:

      ActiveWorkbook.Sheets(s).Copy _
      Before:=ActiveWorkbook.Sheets(Worksheets.Count)[/quote]

      Can you include your complete code to make it easier to debug? A "subscript error out of range" usually means that the code references something that doesn't exist. I find this in my own code when I've got a typo or something of that nature.
  • To post as a guest, your comment is unpublished.
    Roy · 5 years ago
    how to copy with same column widths
    • To post as a guest, your comment is unpublished.
      Schuyler · 5 years ago
      Same column widths as the original Worksheet or do you want all of the column widths to be the same?
  • To post as a guest, your comment is unpublished.
    sadaqat · 5 years ago
    yes it works thanks I have successfully make multiple copies of a single worksheet in same workbook by using vba code thnx a lot.
  • To post as a guest, your comment is unpublished.
    Gopal Krishan · 5 years ago
    Search for word "After" and change it to "Before". This will create copies in right order "Before" Sheet1. The only thing to rememeber is that numbering will always start from (2) as the original sheet will always be counted as 1st copy. Also you can replace "Sheet1" with name of the tab you are trying to copy.
  • To post as a guest, your comment is unpublished.
    juan · 6 years ago
    [quote name="MichaelTadashi"]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?[/quote]

    Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1)

    Thanks!
    • To post as a guest, your comment is unpublished.
      Schuyler · 5 years ago
      [quote name="juan"][quote name="MichaelTadashi"]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?[/quote]

      Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1)

      Thanks![/quote]

      If you want the sheet copies to be in sequential order instead of backwards, change the following line...

      [i]After:=ActiveWorkbook.Sheets[/i][u]("Sheet1")[/u]

      to this...

      [i]After:=ActiveWorkbook.Sheets[/i][u](Worksheets.Count)[/u]

      My completed code looked like the following which uses 2 InputBox prompts to allow for a dynamic copy count and worksheet name..


      [i]Sub Copier()
      Dim s As String
      Dim numtimes As Integer
      Dim numCopies As Integer
      numCopies = InputBox("How many copies do you need?")
      s = InputBox("Enter the name of the Worksheet you want to copy")
      For numtimes = 1 To numCopies
      ActiveWorkbook.Sheets(s).Copy _
      After:=ActiveWorkbook.Sheets(Worksheets.Count)
      Next
      End Sub[/i]
      • To post as a guest, your comment is unpublished.
        Karsten · 4 years ago
        How do i get the coppies continuous numbered. If the sheet i want to copy is named I002, and i want the next to be named I003,I004,I005 an so on.
  • To post as a guest, your comment is unpublished.
    Lim · 6 years ago
    Wow, thanks for the VBA code. It really helps a lot!
  • To post as a guest, your comment is unpublished.
    Dee · 6 years ago
    thanks, the vba code was huge
  • To post as a guest, your comment is unpublished.
    Theou Aegis · 6 years ago
    I tried the VBA code and got subscript out of range error (9). I replaced the sheet name with anything I could think of that was in the workbook already. Any idea what I did wrong?

    Also, is there a way to make it name each sheet incrementally? This would tie in with Michael's question, I'm sure. I'm guessing the answer to his question would be you'd need to set the After target to "sheet"+x somehow and that in turn would apply to my question if there was a way to specify what to name the new sheet. I could always just change my boss' "master" to "Aug 0" or whatever month it is, but it'd be easier for her to understand if the script did the naming automatically.
  • To post as a guest, your comment is unpublished.
    MichaelTadashi · 7 years ago
    Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?