Note: The other languages of the website are Google-translated. Back to English

Excel'de birden çok sayfa nasıl kopyalanır?

Bazen, bir çalışma kitabında belirtilen çalışma sayfalarının bir kopyasını veya birden çok kopyasını almamız gerekebilir. Excel'de bir çalışma sayfasını veya birden çok çalışma sayfasını birden çok kez kolayca kopyalamanıza yardımcı olacak bazı hızlı yollar.


Taşı veya Kopyala komutuyla birden çok çalışma sayfasının bir kopyasını etkin çalışma kitabına veya başka bir çalışma kitabına bir kez yapın

İle Taşı veya Kopyala Excel'de, bir çalışma sayfasının bir kopyasını, birden çok belirli çalışma sayfasını veya tüm çalışma sayfalarını bir seferde etkin çalışma kitabına veya başka bir çalışma kitabına dönüştürebilirsiniz.

1. Çalışma sayfalarını kopyalayacağınız belirli çalışma kitabında, Sayfa Sekmesi çubuğunda birden çok çalışma sayfası seçin.
not: Tutma CTRL tuşu, Sayfa Sekmesi çubuğunda tek tek tıklatarak birden çok bitişik olmayan sayfa sekmesi seçebilirsiniz; tutma SHIFT tuşunu kullanarak, Sayfa Sekmesi çubuğundaki ilk sayfa sekmesini ve sonuncuyu tıklatarak birden çok bitişik sayfa sekmesi seçebilirsiniz.

2. Sayfa Sekmesi çubuğundaki seçili sayfa sekmesine sağ tıklayın ve Taşı veya Kopyala bağlam menüsünden. Ekran görüntüsüne bakın:
doc birden çok sayfa kopyala 01

3. In Taşı veya Kopyala iletişim kutusu, lütfen aşağıdaki ayarları belirtin:
(1) Lütfen çalışma sayfalarını kopyalayacağınız hedef çalışma kitabını belirtin. Kitaba açılır liste. İhtiyaç duyduğunuzda etkin çalışma kitabını, başka bir açık çalışma kitabını veya yeni bir çalışma kitabını seçebilirsiniz.
(2) Kopyalanan sayfaların Sayfa Sekme çubuğundaki konumunu belirtin, mevcut tüm sayfalardan sonra seçebilirsiniz.
(3) Kontrol Bir kopya oluştur seçeneği, bu seçeneği işaretlemezseniz, seçilen çalışma sayfaları hedef çalışma kitabına taşınacaktır.
(4) OK düğmesine basın.

Şimdi, seçilen çalışma sayfalarını belirtilen çalışma kitabına yalnızca bir tane kopyalayacaktır. Bu çalışma sayfalarının birden çok kopyasını oluşturmak için işlemi birden çok kez tekrarlayabilirsiniz.

Etkin çalışma kitabındaki birden çok çalışma sayfasının birden çok kopyasını oluşturmak için yalnızca birkaç tıklama

Genel olarak, birden çok çalışma sayfasını kopyalayabiliriz. Taşı veya Kopyala Excel'deki özellik. Ancak, bu özellik bir seferde yalnızca bir kopya yapabilir. Kutools for Excel's ile burada Çalışma Sayfalarını Kopyala yardımcı program, yalnızca birkaç tıklama ile etkin çalışma kitabında ihtiyaç duyduğunuz sayıda çalışma sayfasının istediğiniz sayıda kopyasını kolayca oluşturabilirsiniz.


reklam birden çok çalışma sayfasını kopyala 01

Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi alın

VBA kodu ile belirtilen bir çalışma sayfasının birden çok kopyasını etkin çalışma kitabına yapın

Belirli bir çalışma sayfasının 10 kopyasını yapmak istiyorsanız, Taşı veya Kopyala komutu zaman alıcı bir yol olacaktır ve işlemi birçok kez tekrarlamalısınız. Ancak aşağıdaki VBA kodu ile çalışma sayfasını aynı anda 10 kez hızlı bir şekilde kopyalayabilirsiniz.

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA: Belirli bir çalışma sayfasının birden çok kopyasını etkin çalışma kitabına yapın

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

not: Yukarıdaki kodda, "Sheet1"kopyalanacak sayfanın adıyla.

3. Daha sonra tuşuna basın. F5 tuşuna bastığınızda, istediğiniz sayfa kopyalarının sayısını soran bir istem kutusu görüntülenir.

4. Sonra tıklayın OK, belirtilen çalışma sayfası etkin çalışma kitabına 100 kez kopyalandı.


Kutools for Excel ile birden çok çalışma sayfasının birden çok kopyasını etkin çalışma kitabına yapın

Excel'de birden çok çalışma sayfasının kopyasını oluşturmak basit olsa da, geçerli çalışma kitabında birden çok çalışma sayfasının birden çok kopyasını oluşturmak istiyorsanız, Taşı veya Kopyala komut öğesini tekrar tekrar. İşi tek bir tıklamayla halletmek ister misiniz? İle Çalışma Sayfalarını Kopyala üçüncü taraf eklentisinin faydası Kutools for Excel, Excel'de tek bir tıklamayla birden çok çalışma sayfasının birden çok kopyasını oluşturabilirsiniz.

Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi alın

1. tıklayın Kutools Artı > Çalışma Sayfalarını Kopyala. Ekran görüntüsüne bakın:

not: Tıklama Kutools Artı > Çalışma Sayfası > Çalışma Sayfalarını Kopyala bu özelliği de alacak.

2. Ayarları, Birden Çok Çalışma Sayfasını Kopyala iletişim kutusu:
(1) Kopyalanmasını istediğiniz çalışma sayfalarını kontrol edin Seçili çalışma sayfalarını kopyala Bölüm.
(2) Belirtin Kopya sayısı.
(3) Kopyalanan sayfaların konumunu, örneğin tüm çalışma sayfalarından önce veya sonra, mevcut çalışma sayfasından önce veya sonra belirleyin.
(4) Ok düğmesine basın.

3. Kontrol edilen çalışma sayfalarının ihtiyaç duyduğunuzda birden çok kez kopyalandığını hatırlatmak için bir istem kutusu açılır, lütfen OK Çıkmak için düğmesine basın. Ekran görüntüsüne bakın:

Bu Birden Çok Çalışma Sayfasını Kopyala özelliği Kutools for Excel yalnızca birkaç tıklama ile etkin çalışma kitabındaki birden çok belirtilen çalışma sayfasının birden çok kopyasını oluşturur. Ücretsiz Deneme Yapın!


Birden çok çalışma kitabından yeni bir çalışma sayfasına birden çok çalışma sayfasının bir kopyasını oluşturun

Kutools for Excel yüklüyse, bunu da uygulayabilirsiniz. Çalışma Sayfalarını Birleştirin Birden çok kapalı çalışma kitabından birden çok çalışma sayfasının bir kopyasını yalnızca Excel'de birkaç tıklama ile yeni bir çalışma kitabına yapma özelliği.

Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi alın

1. tıklayın Kutools Artı > Birleştirmek Çalışma Sayfalarını Birleştir özelliğini etkinleştirmek için.

2. Çalışma Sayfalarını Birleştir - Adım 1/3 sihirbazında, lütfen Çalışma kitaplarından birden çok çalışma sayfasını tek bir çalışma sayfasına birleştirin seçeneğini tıklayın ve Sonraki buton. Ekran görüntüsüne bakın:

3. Çalışma Sayfalarını Birleştir - Adım 2/3 sihirbazında, lütfen gösterilen aşağıdaki ekran görüntüsünü yapın:
(1) Tıklayın Ekle > fileto or Dosya çalışma kitaplarını eklemek için çalışma sayfalarını kopyalayacaksınız.
(2) Çalışma kitabı listesi bölümünde, çalışma sayfalarını kopyalayacağınız çalışma kitabını kontrol edin;
(3) Çalışma sayfası listesi bölümünde kopyalayacağınız çalışma sayfalarını kontrol edin;
(4) Yukarıda tekrarlayın (2) ve (3) kopyalayacağınız diğer çalışma kitaplarından çalışma sayfaları seçmek için.
(5) Sonraki düğmesine basın.

4. Çalışma Sayfalarını Birleştir - Adım 3/3 sihirbazında, lütfen kopyalama ayarlarını gerektiği gibi yapılandırın ve Bitiş düğmesine basın.

5. Şimdi yeni iletişim kutusunda, lütfen yeni çalışma kitabını kaydetmek için bir hedef klasör belirtin, yeni çalışma kitabını dosya adı kutusunu tıklayın ve İndirim buton. Ekran görüntüsüne bakın:

Şimdi başka iki iletişim kutusu çıkacak ve sizden yeni çalışma kitabını açmanızı ve kombinasyon senaryosunu kaydetmenizi isteyecek, lütfen ihtiyacınız olan düğmeleri tıklayın. Şimdiye kadar, belirtilen tüm çalışma sayfalarını bir seferde birden çok çalışma kitabından kopyaladı.

Bununla Birleştir (Çalışma Sayfaları) yardımcı program, çalışma sayfalarını ve çalışma kitaplarını aşağıdaki listede gösterildiği gibi kolayca kopyalayabilir ve birleştirebilirsiniz. Ücretsiz Deneme Yapın!
(1) Çalışma kitaplarından birden çok çalışma sayfasını / aralığı tek bir çalışma sayfasında hızla birleştirin;
(2) Çalışma kitaplarında aynı adı taşıyan tüm çalışma sayfalarını tek bir çalışma sayfasında hızla birleştirin / birleştirin;
(3) Çalışma sayfalarını veya çalışma kitaplarını tek bir çalışma kitabında hızla birleştirin / birleştirin;
(4) Birden çok çalışma sayfasındaki verileri tek bir çalışma sayfasında hızlı bir şekilde özetleyin / hesaplayın.


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (25)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA kodunu kullanarak, çoğaltılan çalışma sayfalarının adlandırılması ters sırada yapılır. Diyelim ki Sheet10'in 1 kopyasını çıkardım, sonunda Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......bunları normal sırayla almak mümkün mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA kodunu denedim ve alt simge aralık dışı hatası aldım (9). Sayfa adını, çalışma kitabında zaten olduğunu düşünebildiğim herhangi bir şeyle değiştirdim. Neyi yanlış yaptığım hakkında bir fikrin var mı? Ayrıca, her sayfayı aşamalı olarak adlandırmanın bir yolu var mı? Bu, Michael'ın sorusuyla bağlantılıdır, eminim. Sorusunun cevabını tahmin ediyorum ki, After hedefini bir şekilde "sayfa" + x olarak ayarlamanız gerekecek ve bu, yeni sayfaya ne ad verileceğini belirtmenin bir yolu olsaydı, sorum için geçerli olacaktı. Her zaman patronumun "ustası"nı "0 Ağustos" veya hangi ay olursa olsun değiştirebilirdim, ancak komut dosyasının adlandırmayı otomatik olarak yapıp yapmadığını anlaması daha kolay olurdu.
Bu yorum sitedeki moderatör tarafından en aza indirildi
teşekkürler, vba kodu çok büyüktü
Bu yorum sitedeki moderatör tarafından en aza indirildi
Vay, VBA kodu için teşekkürler. Gerçekten çok yardımcı olur!
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]VBA kodunu kullanarak, çoğaltılan çalışma sayfalarının adlandırılması ters sırada yapılır. Diyelim ki Sheet10'in 1 kopyasını çıkardım, sonunda Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......bunları normal sırayla almak mümkün mü?MichaelTadashi tarafından[/quote] Bu soruya cevap verebilecek olan var mı? 72 kopya oluşturmam gerekiyor, ancak bunların sırayla olması gerekecek (1'den 72'ye, 72'den 1'e kadar) Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote][quote]VBA kodunu kullanarak, çoğaltılan çalışma sayfalarının adlandırılması ters sırada yapılır. Diyelim ki Sheet10'in 1 kopyasını çıkardım, sonunda Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......bunları normal sırayla almak mümkün mü?Juan tarafından[/quote] Bu soruya cevap verebilecek olan var mı? 72 kopya oluşturmam gerekiyor, ancak bunların sırayla olması gerekecek (1'den 72'ye, 72'den 1'e kadar) Teşekkürler!MichaelTadashi tarafından[/quote]e] Sayfa kopyalarının geriye doğru değil sırayla olmasını istiyorsanız, aşağıdaki satırı değiştirin... Sonra:=ActiveWorkbook.Sheets("Sayfa1") buna... Sonra:=ActiveWorkbook.Sheets(Çalışma sayfaları.Sayı) Tamamlanmış kodum, dinamik bir kopya sayısı ve çalışma sayfası adına izin vermek için 2 InputBox istemi kullanan aşağıdaki gibi görünüyordu. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Kaç kopyaya ihtiyacınız var?") s = InputBox("Kopyalamak istediğiniz Çalışma Sayfasının adını girin") Sayılar için = 1 numCopies için ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kopyaları nasıl sürekli numaralandırabilirim. Kopyalamak istediğim sayfanın adı I002 ise ve sonrakinin I003,I004,I005 olarak adlandırılmasını istiyorum vb.
Bu yorum sitedeki moderatör tarafından en aza indirildi
"Sonra" kelimesini arayın ve "Önce" olarak değiştirin. Bu, Sayfa1'den "Önce" doğru sırada kopyalar oluşturacaktır. Hatırlanması gereken tek şey, orijinal sayfa her zaman 2. kopya olarak sayılacağı için numaralandırmanın her zaman (1)'den başlayacağıdır. Ayrıca "Sayfa1"i kopyalamaya çalıştığınız sekmenin adıyla değiştirebilirsiniz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
evet çalışıyor teşekkürler, vba code thnx'i çok kullanarak aynı çalışma kitabında tek bir çalışma sayfasının birden çok kopyasını başarıyla çıkardım.
Bu yorum sitedeki moderatör tarafından en aza indirildi
aynı sütun genişlikleriyle nasıl kopyalanır
Bu yorum sitedeki moderatör tarafından en aza indirildi
Orijinal Çalışma Sayfasıyla aynı sütun genişlikleri mi yoksa tüm sütun genişliklerinin aynı mı olmasını istiyorsunuz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Theou ile aynı hatayı aldım ve kimse bunu ele almamış gibi görünüyor. Sekmelerim zaten PO 51, PO 52 vb. olarak adlandırılmış ve bunu kopyalamak için Sayfa1'i PO 51 ile değiştirdim ve alt simge hatasını aralık dışında aldım (9) Doğru sırayı almak için Schuyler'in kodunu takip ettim, ancak yine de hatayı alıyorum ve her zaman şu iki satırdan kaynaklanır: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]Theou ile aynı hatayı aldım ve kimse bu hatayı ele almamış gibi görünüyor. Sekmelerim zaten PO 51, PO 52 vb. olarak adlandırılmış ve bunu kopyalamak için Sayfa1'i PO 51 ile değiştirdim ve alt simge hatasını aralık dışında aldım (9) Doğru sırayı almak için Schuyler'in kodunu takip ettim, ancak yine de hatayı alıyorum ve her zaman şu iki satırdan kaynaklanır: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)Debbi tarafından[/quote] Hata ayıklamayı kolaylaştırmak için tam kodunuzu ekleyebilir misiniz? "Aralık dışı abonelik hatası" genellikle kodun var olmayan bir şeye atıfta bulunduğu anlamına gelir. Bunu bir yazım hatası veya bu türden bir şey olduğunda kendi kodumda buluyorum.
Bu yorum sitedeki moderatör tarafından en aza indirildi
'Numtimes' tanımlı değil hatası alıyorum...?
Bu yorum sitedeki moderatör tarafından en aza indirildi
bu yukarıdaki kodu vba'ya nereye ekleyeceğim, sonra içeride ortak düğme oluşturmalı mıyım? Saygılarımızla.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aşağıdaki adımları izleyin:
1. Yukarıdaki kodu kopyalayın
2. ALT + F11 tuşlarını basılı tutun ve Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
4.Ardından kodu çalıştırmak için F5 tuşuna basın
5. İstediğiniz sayfa kopyalarının sayısını soran bir bilgi istemi kutusu görünür.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İlk denediğimde, Sayfa1 adını değiştirmediğim için hata mesajını aldım. Hataya neyin neden olduğunu anladıktan sonra, makroya sayfa adını manuel olarak girmek istemediğim için biraz daha araştırdım. Ve bu özelliğe ihtiyacım olduğunda, hemen hemen her zaman mevcut sayfa içindir. a = activesheet.name satırını ekledim ve şu satırı revize ettim:=activeworkbook.sheets("sheet1")'den activeworkbook.sheets(a).copy _ Bu çok işe yaradı, ancak numaralandırmanın ters çevrildiğini fark ettim ... Yine de yeni sayfaları manuel olarak yeniden adlandıracağım için bu beni rahatsız etmedi. Schuyler'in gönderisini gördüğümde, activeworkbook.sheets(a).copy _ satırını after:=activeworkbook.sheets(worksheets.count) olarak daha da revize ettim. Artık sonuçtan memnunum. Biten makrom: Alt kopyalar() Dim x As Integer x = InputBox("Sayfa1'i kopyalamak için kaç kez girin") numtimes = 1 To x ActiveWorkbook.Sheets("Sheet1").Copy _ After:=ActiveWorkbook.Sheets( Worksheets.Count) Next End Sub --- En iyi dileklerimle, Barry
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çok teşekkür ederim Barry. Bitmiş makronuz benim için çalışan tek şey.
Bu yorum sitedeki moderatör tarafından en aza indirildi
"After:=ActiveWorkbook.Sheets(Worksheets.Count)'da sözdizimi hatası alıyorum


ama neyin yanlış olduğunu bilmiyorum... Lütfen bana yardım edebilir misin?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Harika VBA kodu - gerçekten yardımcı oldu
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu konuda yeniyim, aynı sayfanın kopyalarını yapmaya çalışıyorum, kullandığım kod bu. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Kaç kopyaya ihtiyacınız var?") s = InputBox("Kopyalamak istediğiniz Çalışma Sayfasının adını girin") Sayılar için = 1 numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub kodu kullandığımda bana "Sözdizimi Hatası" hatası veriyor ve sonra bu metin kırmızı ActiveWorkbook.Sheets oluyor (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) ve metin sarıya dönüyor Sub Copier() bunu düzeltmek için ne yapabilirim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]Bunda yeniyim, aynı sayfanın kopyalarını oluşturmaya çalışıyorum, kullandığım kod bu. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Kaç kopyaya ihtiyacınız var?") s = InputBox("Kopyalamak istediğiniz Çalışma Sayfasının adını girin") Sayılar için = 1 numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub kodu kullandığımda bana "Sözdizimi Hatası" hatası veriyor ve sonra bu metin kırmızı ActiveWorkbook.Sheets oluyor (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) ve metin sarıya dönüyor Sub Copier() bunu düzeltmek için ne yapabilirim.Tyler Dempsey tarafından[/quote] Kodunuzu iki kez kontrol edin ve ActiveWorkbook'ta yeriniz olmadığından emin olun. Sayfa(lar).Kopyala _ veya Sayfalarda(Çalışma Sayfaları.Sayı)
Bu yorum sitedeki moderatör tarafından en aza indirildi
[quote]Bunda yeniyim, aynı sayfanın kopyalarını oluşturmaya çalışıyorum, kullandığım kod bu. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Kaç kopyaya ihtiyacınız var?") s = InputBox("Kopyalamak istediğiniz Çalışma Sayfasının adını girin") Sayılar için = 1 numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub kodu kullandığımda bana "Sözdizimi Hatası" hatası veriyor ve sonra bu metin kırmızı ActiveWorkbook.Sheets oluyor (s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) ve metin sarıya dönüyor Sub Copier() bunu düzeltmek için ne yapabilirim.Tyler Dempsey tarafından[/quote] İşte tam olarak kullanmak istediğiniz kod: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("Kaç kopyaya ihtiyacınız var?") s = InputBox("Enter Kopyalamak istediğiniz Çalışma Sayfasının adı") için numtimes = 1 numCopies için ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkür ederim, sonuncusu hayatımı kurtardı :)
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çalışma Kodu

Alt Fotokopi Makinesi()
Dize Olarak Boyutlandır
Dim sayısı kez Tamsayı Olarak
Dim numKopyalar Tamsayı Olarak
numCopies = InputBox("Kaç kopyaya ihtiyacınız var?")
s = InputBox("Kopyalamak istediğiniz Çalışma Sayfasının adını girin")
numtimes için = 1 To numCopies
ActiveWorkbook.Sheets(s).Sonra Kopyala:=ActiveWorkbook.Sheets(Worksheets.Count)
Sonraki
End Sub

tüm satırı ActiveWorkbook.Sheets'ten kopyalayın...... sorun buydu ve bazı boşluklar

Harika bir gün geçir
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır