Excel Userform'da Arama Sonucunda Kayıtlı Checkbox Değerleri Formda Görüntülenmiyor.

(11/03/2021, 11:45)berduş yazdı: bu Excel user formdaki checkboxları bir türlü anlayamadım bazen True için -1 değerini alıyor bazen 1 neye göre değişiyor?
ben mi yanlış biliyorum

Hocam nette izlediğim konularda hep 1 değerini gördüm bana -1 rastlamadı hiç.

(11/03/2021, 12:04)Oğuz Türkyılmaz yazdı:

(11/03/2021, 11:45)berduş yazdı: bu Excel user formdaki checkboxları bir türlü anlayamadım bazen True için -1 değerini alıyor bazen 1 neye göre değişiyor?
ben mi yanlış biliyorum

Hocam nette izlediğim konularda hep 1 değerini gördüm bana -1 rastlamadı hiç.

Dosyaya alttakini ekleyip ilgili checkboxa tıklayın sonuç ne olacak abey.18-mesajdaki kodu kullanabilirsiniz abey gerçi farketmiyor.

Private Sub CheckBox_AlbertGenau_Click()

    MsgBox "CBool ile : " & CBool(CheckBox_AlbertGenau)

    MsgBox "CByte ile : " & CByte(CheckBox_AlbertGenau)

    MsgBox "CDbl ile : " & CDbl(CheckBox_AlbertGenau)

    MsgBox "CLng ile : " & CLng(CheckBox_AlbertGenau)

    MsgBox "int ile : " & Int(CheckBox_AlbertGenau)

End Sub

(11/03/2021, 12:17)feraz yazdı:

(11/03/2021, 12:04)Oğuz Türkyılmaz yazdı:

(11/03/2021, 11:45)berduş yazdı: bu Excel user formdaki checkboxları bir türlü anlayamadım bazen True için -1 değerini alıyor bazen 1 neye göre değişiyor?
ben mi yanlış biliyorum

Hocam nette izlediğim konularda hep 1 değerini gördüm bana -1 rastlamadı hiç.

Dosyaya alttakini ekleyip ilgili checkboxa tıklayın sonuç ne olacak abey.18-mesajdaki kodu kullanabilirsiniz abey gerçi farketmiyor.

Private Sub CheckBox_AlbertGenau_Click()

    MsgBox "CBool ile : " & CBool(CheckBox_AlbertGenau)

    MsgBox "CByte ile : " & CByte(CheckBox_AlbertGenau)

    MsgBox "CDbl ile : " & CDbl(CheckBox_AlbertGenau)

    MsgBox "CLng ile : " & CLng(CheckBox_AlbertGenau)

    MsgBox "int ile : " & Int(CheckBox_AlbertGenau)

End Sub

Gerek yok Feraz Hocam şu an gayet güzel sorunsuz çalışıyor. Sadece şu an bir şeyi test etmek istiyorum kaydederken şöyle 1-1,5  saniye kadar bir kıpırdıyor sonra kayıt bitiyor gibi bu acaba ilerde dosya şişdiğinde sorun yaratır mı. Daha da yavaşlar mı bilmiyorum. Excel dosyalarında kaydetme ve güncelleme işlemlerinin hızlarını test etme imkanı var mı acaba.

(11/03/2021, 12:48)Oğuz Türkyılmaz yazdı:

(11/03/2021, 12:17)feraz yazdı:

(11/03/2021, 12:04)Oğuz Türkyılmaz yazdı:

(11/03/2021, 11:45)berduş yazdı: bu Excel user formdaki checkboxları bir türlü anlayamadım bazen True için -1 değerini alıyor bazen 1 neye göre değişiyor?
ben mi yanlış biliyorum

Hocam nette izlediğim konularda hep 1 değerini gördüm bana -1 rastlamadı hiç.

Dosyaya alttakini ekleyip ilgili checkboxa tıklayın sonuç ne olacak abey.18-mesajdaki kodu kullanabilirsiniz abey gerçi farketmiyor.

Private Sub CheckBox_AlbertGenau_Click()

    MsgBox "CBool ile : " & CBool(CheckBox_AlbertGenau)

    MsgBox "CByte ile : " & CByte(CheckBox_AlbertGenau)

    MsgBox "CDbl ile : " & CDbl(CheckBox_AlbertGenau)

    MsgBox "CLng ile : " & CLng(CheckBox_AlbertGenau)

    MsgBox "int ile : " & Int(CheckBox_AlbertGenau)

End Sub

Gerek yok Feraz Hocam şu an gayet güzel sorunsuz çalışıyor. Sadece şu an bir şeyi test etmek istiyorum kaydederken şöyle 1-1,5  saniye kadar bir kıpırdıyor sonra kayıt bitiyor gibi bu acaba ilerde dosya şişdiğinde sorun yaratır mı. Daha da yavaşlar mı bilmiyorum. Excel dosyalarında kaydetme ve  güncelleme işlemlerinin hızlarını test etme imkanı var mı acaba.

Kıpırdatma içi application.screenupdating olayları var başa false sonada true yaparsanız titretmez bir arayın internette.ekleme,silme ve güncellemede sorun olmaz abey.
Yanlış yazmadıysam alttaki gibi kalıp olacak abey

application.screenupdating=false



kodlar



application.screenupdating=true

(11/03/2021, 12:53)feraz yazdı:

(11/03/2021, 12:48)Oğuz Türkyılmaz yazdı:

(11/03/2021, 12:17)feraz yazdı:

(11/03/2021, 12:04)Oğuz Türkyılmaz yazdı:

(11/03/2021, 11:45)berduş yazdı: bu Excel user formdaki checkboxları bir türlü anlayamadım bazen True için -1 değerini alıyor bazen 1 neye göre değişiyor?
ben mi yanlış biliyorum

Hocam nette izlediğim konularda hep 1 değerini gördüm bana -1 rastlamadı hiç.

Dosyaya alttakini ekleyip ilgili checkboxa tıklayın sonuç ne olacak abey.18-mesajdaki kodu kullanabilirsiniz abey gerçi farketmiyor.

Private Sub CheckBox_AlbertGenau_Click()

    MsgBox "CBool ile : " & CBool(CheckBox_AlbertGenau)

    MsgBox "CByte ile : " & CByte(CheckBox_AlbertGenau)

    MsgBox "CDbl ile : " & CDbl(CheckBox_AlbertGenau)

    MsgBox "CLng ile : " & CLng(CheckBox_AlbertGenau)

    MsgBox "int ile : " & Int(CheckBox_AlbertGenau)

End Sub

Gerek yok Feraz Hocam şu an gayet güzel sorunsuz çalışıyor. Sadece şu an bir şeyi test etmek istiyorum kaydederken şöyle 1-1,5  saniye kadar bir kıpırdıyor sonra kayıt bitiyor gibi bu acaba ilerde dosya şişdiğinde sorun yaratır mı. Daha da yavaşlar mı bilmiyorum. Excel dosyalarında kaydetme ve  güncelleme işlemlerinin hızlarını test etme imkanı var mı acaba.

Kıpırdatma içi application.screenupdating olayları var başa false sonada true yaparsanız titretmez bir arayın internette.ekleme,silme ve güncellemede sorun olmaz abey.
Yanlış yazmadıysam alttaki gibi kalıp olacak abey

application.screenupdating=false



kodlar



application.screenupdating=true

Tamam araştıracağım Feraz Hocam Tekrar Teşekkürler.