40 dan fazla kopyalama

[GKMER]

Merhabalar

Sub Makro1()
s = InputBox("Sokak Sayısını Giriniz")
For i = 2 To s
zz = Worksheets.Count
Sheets("İNŞ1").Copy After:=Sheets(zz)
ActiveSheet.Name = "İNŞ" & i
ActiveSheet.Range("A5").Value = i
Next
End Sub

Yukarıdaki makro ile en fazla 39 sayfa üretiliyor ve duruyor 150 sayfa kopyalama yapamıyorum sebebi hakkında bilgi verebilirmisiniz.

 

[excellium]

excel'in 39 dan fazla destekleyip desteklemediğini kontrol eder misiniz?

 

[Recep İpek]

Inputbox'a 150 yazdığınız halde kopyalamıyorsa sanırım bilgisayarınızın hafızası yeterli değil.

Çünkü bende 150 sayfayıda kopyalayabiliyor.

Sayfa sayısının hafıza ile ilgili olduğunu duymuştum.

 

[cqners]

Merhaba;

Sub Makro1()
s = InputBox("Sokak Sayısını Giriniz")
For i = 2 To s
iv = Worksheets.Count
Sheets("İNŞ1").Copy After:=Sheets(iv)
ActiveSheet.Name = "İNŞ" & i
ActiveSheet.Range("A5").Value = i
Next
End Sub

 

[GKMER]

İlginize teşekkür ederim hafıza kontrolünü nasıl yapabilirim.

 

[GKMER]

Başka bilgisayarda da denedim aynı sonuç. Çözümü varmıdır.

 

[GKMER]

sorunumun çözümü varmıdır.

 

[Merhum İdris SERDAR]

Çalışma kitabında kullanılabilecek maksimum çalışma sayfa sayısı, bilgisayarın hafızası ile sınırlı olmakla birlikte en fazla çalışma sayfası 255’tir.

Kullandığınız kodlarda bir problem yok. Denedim. 40'tan fazla sayfa açıyor. Problem, sayfanızın büyüklüğüne ve bilgisayarınızın hafızasına bağlı.


Ben boş sayfa üzerinde ve 1GB hafızayla denedim.

Çözüm: Sayfanız büyükse, küçülteceksiniz. Bu mümkün değilse, bilgisayarınıza memory (hafıza) ekleteceksiniz.

 

[GKMER]

Teşekkür Ederim

 

[mehmett]

Yukarıdaki örnek dosyadaki İNŞ1 sayfasını dosya içindeki kodlarla 450 kez kopyaladım. Bir sorun çıkmadı.

Bilgisayarım 1 GB ram, 250 Gb Hd

 

[Merhum İdris SERDAR]

Yukarıdaki örnek dosyadaki İNŞ1 sayfasını dosya içindeki kodlarla 450 kez kopyaladım. Bir sorun çıkmadı.

Bilgisayarım 1 GB ram, 250 Gb Hd

Sayın mehmett,

Benim bildiğim; Excelin 255 sayfa sınırı var. Denemedim. Sadece bilgi tarzında böyle bir bilgiye sahibim. Ama siz diyorsunuz 450 sayfa elde ettim. Bu konuda bir şey söyleyemeyeciğim.

 

[mehmett]

Sn yurttas

Ben de 255 biliyordum, 450 kopya oluşunca şaşırdım. 500 denedim hata verdi. 450 ile 500 arasında nereye kadar gidebileceğini denemem lazım merak ettim. Bir de ben bilgisayarımı geçen ay yeniledim ve tertemiz (yani fazla veri yüklü değil) hem de yukarıda belirttiğim gibi 1 GB ram, 250 GB hd mevcut. İyi bir performans için her şey müsait yani.

 

[Merhum İdris SERDAR]

Ben 500'ü denedim oldu. Hatta +2 sayfası da var. Yani 502. İlginç. Sayın GKMER'e üzülüyorum. 39'dan sonrasını göremiyor. Biz 500'lerden söz ediyoruz.

 

[mehmett]

Denemelere devam ettim bu sefer 500 de oldu. Ama birkaç kez denememe rağmen 559 kopyayı geçemedim.

 

[Recep İpek]

Biraz daha zorlarsak sanırım 750 sayısına ulaşacağız.

İlginç!!!

 

[Ali]

Sanırım eksik biliyormuşuz ilginç olan birşey yokmuş .Microsoft'un sitesinde çalışma kitabındaki sayfa sayısı kullanılan memory ile ilgilidir yazıyor.

http://office.microsoft.com/en-gb/excel/HP051992911033.aspx?pid=CH062527721033

 

[Zeki Gürsoy]

Merhaba,
Excelde bir defada binlerce sayfa "ekleyebilirsiniz". Fakat konu "sayfa kopyalama" olunca sınır geliyor.

Excelde bir defada 255 sayfa kopyalayabilirsiniz. Dosya kaydedilip kapatıldıktan sonra dosyanızı yeniden açın. 255 sayfa kopyalama hakkına sahip olursunuz.

İlginç değil mi?

Not: Denedim.

 

[Kemal Demir]

Arkadaslar Cok İlgimi Çekti.

evde deneme fırsatı buldum.

Deneyip Test Ettiğim durumu sizlere bildirmek istedim.

yukarıda belirtilen kod ile 302 sn de 1000 sheet kopyaladı kod.

Fazlası olabilir diye dusnuyorum.

Kullandıgım Makina:

2.0 Ghz 504 Ram

 

[cqners]

Boş sayfayı çok güzel kopyalıyor, Biraz data olunca kasmaya başlıyor makına.

 

[Ali]

Excelde bir defada binlerce sayfa "ekleyebilirsiniz". Fakat konu "sayfa kopyalama" olunca sınır geliyor.

Excelde bir defada 255 sayfa kopyalayabilirsiniz. Dosya kaydedilip kapatıldıktan sonra dosyanızı yeniden açın. 255 sayfa kopyalama hakkına sahip olursunuz.

İlginç değil mi?

Not: Denedim.

Bende 270 sayfa ile denedim bir seferde veri ile birlikte kopyaladı bir sınır getirmedi.