Çözüldü call metodu tetiklenmiyor

[oguz38500]

birbirinin aynı içeriğe sahip iki modülde dosyamı procedure too large hatası yüzünden ayrı bir modülde call metodu ile çalıştırdım fakat sadece ilk call metodu çalışıyor diğer call tetiklenmiyor neden böyle

Public Sub deneme3()


Call deneme2 **çalışıyor

Call deneme *** tetiklenmedi
End Sub

 

[Caylak]

birbirinin aynı içeriğe sahip iki modülde dosyamı procedure too large hatası yüzünden ayrı bir modülde call metodu ile çalıştırdım fakat sadece ilk call metodu çalışıyor diğer call tetiklenmiyor neden böyle

Public Sub deneme3()


Call deneme2 **çalışıyor

Call deneme *** tetiklenmedi
End Sub

Eğer bir hata kontrol kodu kullanıyorsanız, On Error Goto ... gibi deneme2 çalışırken hata oluştuysa hata kontrole takılıp prosedür sonlandırılıyor olabilir. Ya da if kullanımından kaynaklı eğer şuysa bunu yap gibi bir şart sunduysanız o satırı atlıyor olabilir.

 

[oguz38500]

Eğer bir hata kontrol kodu kullanıyorsanız, On Error Goto ... gibi deneme2 çalışırken hata oluştuysa hata kontrole takılıp prosedür sonlandırılıyor olabilir. Ya da if kullanımından kaynaklı eğer şuysa bunu yap gibi bir şart sunduysanız o satırı atlıyor olabilir.

evet genel olarak for ve if var sürekli tekrar eden bir kod parçası ne yapmam lazım .

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

bundan 300 kere yazdırmaya çalışıyorum ve ilk modulde sorunsuz çıktı aldım ama ikinci modulden çıktı alamıyorum call ile çağırdığımda

 

[Caylak]

evet genel olarak for ve if var sürekli tekrar eden bir kod parçası ne yapmam lazım .

For i = 10 To last
If Worksheets("Nokta_Listesi").Cells(i, 14).Value = "TE-ITG-F-06-4-4-00" Then
t = Worksheets("Nokta_Listesi").Cells(i, 15).Value + t
Worksheets("deneme").Cells(j, 1).Value = Worksheets("Nokta_Listesi").Cells(i, 14).Value
Worksheets("deneme").Cells(j, 2).Value = t
End If
Next
j = j + 1
t = 0

bundan 300 kere yazdırmaya çalışıyorum ve ilk modulde sorunsuz çıktı aldım ama ikinci modulden çıktı alamıyorum call ile çağırdığımda

Şöyle bir çözüm olabilir mesela
Sub Deneme
.......
Call Deneme2
.......
End Sub

Sub Deneme 2
.........
Call Deneme3
End Sub

Sub Deneme3
......
End Sub

Yani prosedür içinden prosedür çağırabilirsiniz, tabi bunu işlem sırasını gözeterek yapmanız gerekecektir.

 

[oguz38500]

denedim olmadı ikinci modulde hata verdi , public sub yapmıştım prosedürleri bu sebeb olabilir mi ?

 

[Caylak]

denedim olmadı ikinci modulde hata verdi , public sub yapmıştım prosedürleri bu sebeb olabilir mi ?

Public ya da private olayından kaynaklı olduğunu sanmıyorum, dediğiniz gibi hata verdiyse hatanın üzerine gidilmeli, nerede ne hatası verdi? Neden bu hatayı verdi şeklinde, yani kodları adım adım çalıştırıp, değişkenlerin içeriğinin doğruluğunu ve yapılan işlemlere yoğunlaşmanız gerekecek

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[oguz38500]

ilk module çalıştı ikinci modulün ilk kod blogunda bu hatayı aldım bu kod bloğundan herbirinde 100 tane var birinci modülü yazdırdım ikinci de bu hatayı veriyor call yaptığımda

 

[Caylak]

iki kod bloğu arasında ne fark var anlamadım, fark yoksa neden sürekli aynı kodu yazıyorsunuz? değişkenler mi farklı? şayet hiçbir fark yoksa bu bloğu tek bir modülde ya da function'da 1 sefer yazıp, tekrar tekrar aynı modülü ya da function'ı çağırabilir ve koddan ve zamandan tasarruf edebilirsiniz.
örnek;
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Caylak]

Bu arada tesadüfen sorununuzu da bulmuş olduk sanırım,
Sorun J değişkeninin değer alamamasından kaynaklı olmalı, diğer prosedüre gidince J değişkeni 0 değerini alıyor ve 0 nolu satır olmadığı için de hata veriyor olabilir. Bu durumda bu değişkenin tanımlanırken Public J as Long şeklinde prosedür dışından tanımlanması gerekiyor ki değer hafızada tutulabilsin. Bir deneyin

 

[oguz38500]

Bu arada tesadüfen sorununuzu da bulmuş olduk sanırım,
Sorun J değişkeninin değer alamamasından kaynaklı olmalı, diğer prosedüre gidince J değişkeni 0 değerini alıyor ve 0 nolu satır olmadığı için de hata veriyor olabilir. Bu durumda bu değişkenin tanımlanırken Public J as Long şeklinde prosedür dışından tanımlanması gerekiyor ki değer hafızada tutulabilsin. Bir deneyin

çok teşekkür ederim , j değişkenini modul1 deki son haliyle tanımlayınca ikiside çalıştı