• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Kodu Çalıştırırken Donma Ve Isınma Sorunu

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
M

Mtudes

Yeni Üye
Katılım
30 Ağu 2021
Mesajlar
270
Çözümler
1
Aldığı beğeni
92
Excel V
Office 2016 TR
Konu Sahibi
Merhaba
Çalışma sayfamdaki verilerin ödeme durumlarını değiştirmek için .Userformdaki kaydet butonunu kullanıyorum.Burada işlemleri doğru yapıyor bir sorun yok.Ancak nadirde olsa bazen kaydet butonuna bastığımda bilgisayarda ısınmalar oluyor.İşlem süresi bayya uzuyor.Ben işlemleri elimden geldiğince kontrol etmeye çalıştım ama Kaydet butonunda on error resume next kontrolü var onu kapattığımda bir yerde hata veriyor.Muhtemelen ısınmanın sebebide bu hata.Bu hatayı anlayamadım.
Gerekli ayrıntılı bilgileri sayfada ve kaydet butonundaki kod bölümünde de yazdım.
Yardımcı olursanız sevinirim.
 

Ekli dosyalar

Çözüm
Refaz
Alttaki gibi değiştirin ilgili yeri.Yani For n = 1 To 12 ile Next n arasını.
Ayrıca End sub yerinin altınada Function SayfaVarmi(ByVal syfad As String) As Boolean olan kodun tamamını ekleyin.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
Merhaba
say = WorksheetFunction.CountIf(s1.Range("b9:b" & Rows.count), ListBox1.List(ListBox1.ListIndex, 1))
Genişletmek için tıkla...
Şuan böyle denedim burda hata vermiyor artık.Ama on error resume next kapalı iken alttaki kodda hata veriyor yine Sayın Refaz .
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
 
Olumlu oy 0 Negatif oyla
Orda bende hata almıştım.
Sebebi ise 1 den 12 ye kadar döngü var mesela döngü 1 den başlayınca yani atıyorum ocak_2021 adında sayfa yoksa hata veriyor.
Kısaca bir function ile şart koşulabilinir syfa varmı diye.
Yada o kod üzerindede on error vardı kodu unuttum ama next ten önce on error goto 0 gibi ekleme yapılabilinir.
Bir deneyin dedijlerimi yapamazsanız hallederiz abey :)
 
Olumlu oy 1 Negatif oyla
Mtudes' Alıntı:
Merhaba

Şuan böyle denedim burda hata vermiyor artık.Ama on error resume next kapalı iken alttaki kodda hata veriyor yine Sayın Refaz .
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
Genişletmek için tıkla...
Yada bu kodun altına on error goto 0 eklyin ve yukardaki verdiğiniz kodun üstündeki on error resume next kalsın.
 
Olumlu oy 1 Negatif oyla
Alttaki gibi değiştirin ilgili yeri.Yani For n = 1 To 12 ile Next n arasını.
Ayrıca End sub yerinin altınada Function SayfaVarmi(ByVal syfad As String) As Boolean olan kodun tamamını ekleyin.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Ekledim Sayın Refaz .On error resume next aktif şekilde kullanıyorum.Öteki türlü say ve kaç kodlarında hata veriyor.
Bana problem yaratmıcaksa böyle kullanayım.Hızında sorun yok.
 
Olumlu oy 0 Negatif oyla
Refaz' Alıntı:
Set syf = Nothing
Genişletmek için tıkla...

Rica ederim.Yinede üstteki gibi kullanın syf=empty yerine.Çünkü syf sayfa olduğu için yukardaki gibi yazılmalı.
Alttaki gibi düzeltin diğerinide yanılmıyorsam If syf <> Empty Then idi.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
 
Son düzenleme:
Olumlu oy 1 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst