Kullanıcı
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Merhabalar bu excel dosyası bana işkence oldu yardımcı olun lütfen kasmadan dolayı tek kare işlem yapamıyorum.
Excel Kasma Sorununu Çözme
- Konuyu başlatan hakan515
- Başlangıç tarihi
Çözüm
Merhaba,
Dosyanıza bir göz baktım, çok fazla Koşullu Biçimlendirme eklenmiş.
Gerekliliğini vs en iyi siz bilirsiniz.
O hususları gözden geçirmeden ya da düzeltmeden dosyayı "kasmaktan" kurtaramazsınız gibime geliyor.
Bilginize.
Dosyanıza bir göz baktım, çok fazla Koşullu Biçimlendirme eklenmiş.
Gerekliliğini vs en iyi siz bilirsiniz.
O hususları gözden geçirmeden ya da düzeltmeden dosyayı "kasmaktan" kurtaramazsınız gibime geliyor.
Bilginize.
Sayın @hakan515,
Belgedeki yavaşlığın asıl sebebi GENEL RİSK ANALİZİ isimli sayfada yer alan (gözle görülmüyor)
50.000'e yakın adet çizim nesnesinin (textbox gibi) varlığı.
Belgeyi açın ve alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçip,
karşınıza gelecek VBA ekranında sağdaki boş alana aşağıdaki kodu yapıştırıp çalıştırın (işlem biraz vakit alıyor çünkü nesne sayısı çok).
Benim bilgisayarımda bu işlem yaklaşık 2 dakika sürdü.
Sonra yapıştırdığınız bu kodu silebilirsiniz. Belgenizi bu haliyle kaydedin. Artık belgeniz hızlı çalışacaktır.
En üstteki firma LOGOsunu tekrar bulup yerleştirirsiniz.
İlave olarak gereksiz (son veri satırından sonraki satırlarda olan) koşullu biçimlendirmeler de kaldırılmış olacak.
Belgedeki yavaşlığın asıl sebebi GENEL RİSK ANALİZİ isimli sayfada yer alan (gözle görülmüyor)
50.000'e yakın adet çizim nesnesinin (textbox gibi) varlığı.
Belgeyi açın ve alt taraftan Sayfa1'in adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçip,
karşınıza gelecek VBA ekranında sağdaki boş alana aşağıdaki kodu yapıştırıp çalıştırın (işlem biraz vakit alıyor çünkü nesne sayısı çok).
Benim bilgisayarımda bu işlem yaklaşık 2 dakika sürdü.
Sonra yapıştırdığınız bu kodu silebilirsiniz. Belgenizi bu haliyle kaydedin. Artık belgeniz hızlı çalışacaktır.
En üstteki firma LOGOsunu tekrar bulup yerleştirirsiniz.
İlave olarak gereksiz (son veri satırından sonraki satırlarda olan) koşullu biçimlendirmeler de kaldırılmış olacak.
VBA:
Sub NESNELERI_SIL_GEREKSIZ_KOSULLU_BICIM_KALDIR()
Set gra = Sheets("GENEL RİSK ANALİZİ")
zaman = Timer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
gra.DrawingObjects.Delete
ilkbossat = gra.Cells.SpecialCells(xlLastCell).Row + 1
ilkbossut = gra.Cells.SpecialCells(xlLastCell).Column
gra.Range(gra.Cells(ilkbossat, 1), gra.Cells(Rows.Count, ilkbossut)).FormatConditions.Delete
gra.Range(gra.Cells(1, ilkbossut), gra.Cells(Rows.Count, Columns.Count)).FormatConditions.Delete
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
MsgBox "İşlem: " & Format(Timer - zaman, "0.00") & " saniye sürdü.", _
vbInformation, "::.. Ömer BARAN ..::"
End Sub
Çözüm
Kullanıcı
Evet bende o Metin kutularını gördüm lakin yerini saptamak ve kaç tane olduğunu çözemedim 10 15 tane sildim lakin daha fazla olduğunu tahmin ettim ama nasıl sileceğimi bilemedim, sizin kodu uygulayacağım inşallah sorunu çözeriz. Koşullu cümleler daha öncede kullandım lakin böyle birşeyle ilk defa karşılaştım. Virüs gibi birşey birini silmek beş dk sürüyor ve bili inanılmaz kasıyor. Teşekkürler, cvp yazıcam uyguladıktan sonra.
Kullanıcı
teşekkürler kodlar işe yaradı. Benim bir dosyam daha var lakin yükleyemiyorum büyük diyor bu kod bu yüklemek istediğim dosyada işe yaramıyor. Bu konuda da yardımcı olur musunuz.
Belgeyi SIKIŞTIRdığınızda da foruma ekleyemiyorsanız;
dosyanızı uygun bir harici sunucuya yükleyip, burada dosyaya erişim bağlantı adresini ekleyin.
.
dosyanızı uygun bir harici sunucuya yükleyip, burada dosyaya erişim bağlantı adresini ekleyin.
.
Kullanıcı
Tamam hallettim kodda sayfa ismini değiştirdim. Çok teşekkür ederim çok sağ olun. Sorun çözülmüştür.
Alışkanlık olması bakımından belirteyim dedim.
Forumumuzda açılan konulara verilen bir cevap istenilen hususu tam olarak karşılıyorsa,
ilgili cevabın sağındaki ONAY İŞARETİ fareyle tıklayarak, ilgili cevabın ÇÖZÜM CEVABI olduğunu işaretlerseniz seviniriz.
Böylece benzer ihtiyacı/sorunu olan diğer üyelerimiz, konu sayfasını açtığında, onlarca karşılıkllı yazışma arasından çözümü aramak yerine
doğrudan çözüm sağlayan cevaba erişebilecektir.
İyi çalışmalar dilerim.
Forumumuzda açılan konulara verilen bir cevap istenilen hususu tam olarak karşılıyorsa,
ilgili cevabın sağındaki ONAY İŞARETİ fareyle tıklayarak, ilgili cevabın ÇÖZÜM CEVABI olduğunu işaretlerseniz seviniriz.
Böylece benzer ihtiyacı/sorunu olan diğer üyelerimiz, konu sayfasını açtığında, onlarca karşılıkllı yazışma arasından çözümü aramak yerine
doğrudan çözüm sağlayan cevaba erişebilecektir.
İyi çalışmalar dilerim.
Kullanıcı
Merhabalar hocam ben kopyalayıp yapıştırdım ama olmadı Subscript out of Range hatası veriyor
- Durum
Benzer Konular
Popüler İçerikler
Daha Fazlası