[Yardım]  Excel kendi kendine Sayfa Kopyalayıp çoğaltıyor

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Excel kendi kendine Sayfa Kopyalayıp çoğaltıyor

İleti#1)  alibuyuk66 » 11 Haz 2021 16:30

Merhaba Arkadaşlar.
Sürekli kullandığım program son günlerde kitapta olan her-hangi bir sayfayı kopyalıyor çoğaltıyor. 1 Hafta sonra bakıyorumki 600 adet sayfa çoğaltmış ve bunların visibel değerini 0 yapmış yani görünmez. Bu şekilde devam edip kullansam 3 ay sonra 60.000 tane filan sayfa çoğaltıyor 4 mb kitap 50 mb oluyor ve program donmaya başlıyor. Anti virüs programlarıyla taratıyorum sorun yok. bütün vba kodlarını kontrol ediyorum kodlara bir sıkıntı yok. Daha önce başına gelen varmı nasıl çözebilirim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
alibuyuk66
Siteye Alışmış
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 147
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

Cevap: Excel kendi kendine Sayfa Kopyalayıp çoğaltıyor

İleti#2)  icemail » 12 Haz 2021 21:52

Merhaba

Dosyanızı paylaşırsanız kontrol edilebilir.
Kullanıcı avatarı
icemail
Yeni Başlamış
 
Kayıt: 29 May 2015 09:56
Meslek: Diğer
Yaş: 38
İleti: 41
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Excel kendi kendine Sayfa Kopyalayıp çoğaltıyor

İleti#3)  alibuyuk66 » 30 Haz 2021 12:54

Kullanıcı avatarı
alibuyuk66
Siteye Alışmış
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 147
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

Cevap: Excel kendi kendine Sayfa Kopyalayıp çoğaltıyor

İleti#4)  alibuyuk66 » 30 Haz 2021 14:48

Kullanıcı avatarı
alibuyuk66
Siteye Alışmış
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 147
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Excel kendi kendine Sayfa Kopyalayıp çoğaltıyor

İleti#5)  alibuyuk66 » 01 Tem 2021 15:14

Kodlarımı iyice inceledim. Aşağıdaki kod satırını buldum. bence sorun bundan kaynaklıyor.

Kod: Tümünü seç
'Worksheets.Add
    'ad = ActiveSheet.Name
    'Sheets(ad).Visible = False
    'Sheets("Aracdata").Range("A1:N" & son).Copy Sheets(ad).Range("A1")
    'son = Sheets(ad).Cells(Rows.Count, 1).End(3).Row
    'ListBox1.RowSource = ad & "!A2:N" & son
    'Sheets("Aracdata").AutoFilterMode = False
    'Application.DisplayAlerts = True
    'Application.ScreenUpdating = True
Kullanıcı avatarı
alibuyuk66
Siteye Alışmış
 
Adı Soyadı:ali büyük
Kayıt: 25 Ağu 2012 22:16
İleti: 147
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: urfa


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Elsever_sultanli, Google Adsense [Bot] ve 0 misafir

Bumerang - Yazarkafe