Class Moduless çalışmasında hata!

[ocamsul]

[ÇÖZÜLDÜ]Class Moduless çalışmasında hata!

Arkadaşlar merhabalar; iyi çalışmalar
Ekli çalışmamda Class Moduless ilk düzenlediğimde sorunsuz çalışıyordu, ancak şimdi hata veriyor. İnceleyip yardım edermisiniz arkadaşlar? zira ben sorunu çözemedim.

 

[Mahmut Kök]

Sheets("KURUM").Range("B1")

Sınıf modülünde hata yok galiba. Gönderdiğiniz örnek dosyada KURUM sayfası yok...

 

[ocamsul]

SN: Mahmut Kök; üsdat galiba bu KURUM sayfası ile alakalı değil, zira ekli hata çıkıyor karşıma yada benim excel de bir sorun var. Çözemedim valla

 

[Mahmut Kök]

Projeye option explicit yazıldığı taktirde, kodlarda kullandığınız bütün değişkenleri önceden belirtmeniz gerekir. Yani x nedir? Sayı mıdır, nesne midir, metin midir? vs. Sizin bilgisayarınız da şu anda tanımsız değişkenler için hata veriyor olabilir.

dim ile değişken tanımlanabilir. mesele dim s1 as excel.worksheet gibi. Burada s1'in excel sayfası olduğunu belirttik. Siz kodların başına aşağıdaki tanımlamayı yazın yeter.

dim x

 

[ocamsul]

dim x

SN: Mahmut Kök, üsdadım yardımınız için çok teşekkür eder.m dediğiniz gibi yapılmak istenen işlemin tanımlanması gerekiyo zira Dim x tanımlamasını ilgili alanlara işlediğimde aşağıdaki koda

     Dim x
    Dim değer
    Dim toplam

şeklinde eklemem gerekti ve kod aşağıdaki gibi oluştu.

Public WithEvents Txt As MSForms.TextBox
Private Sub Txt_Change()
    Dim x
    Dim değer
    Dim toplam
    For x = 2 To 32 Step 1
    değer = UserForm1.Controls("TextBox" & x)
    If değer = "" Then değer = 0
    toplam = CDbl(değer) + toplam
    Next
    UserForm1.TextBox33 = (toplam)
End Sub