CheckBox sorunu

sinnernekolens

Altın Üye
Katılım
23 Temmuz 2009
Mesajlar
310
Excel Vers. ve Dili
Ofis 2019 - Türkçe 64bit
Altın Üyelik Bitiş Tarihi
02-09-2027
Merhaba arkadaşlar, aşağıdaki konular hakkında yardımlarınızı rica ediyorum.

1- User form açıldığında tüm bilgiler görünüyor, ancak arama textboxa veri girişi yaptığımda son iki sütunu görünmez oluyor.
2- Sayfadaki verileri kaydet butonu ile kayıt ediyorum, gerektiğinde geri çekip üstünde düzeltmeler yapıyorum, örneğin kayıt ederken CheckBox1 kutusunu işaretleyip kaydettim, kayıtdan tekrar çektiğimde CheckBox1 işaretsiz oluyor.
3- Örneğin kaydı EURO olarak hesaplayıp kaydettim veriyi geri çektiğimde de EURO secili olsun istiyorum.

Kolay gelsin..
 

Ekli dosyalar

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Merhaba.

ListBox'a AddItem yöntemiyle 10 sütundan fazla veri aktaramazsınız.

ARAMA TextBox'unun kodunda değişiklik yaparak, TextBox değerine göre ilgili sayfaya filtre uygulatıp (kalan satır varsa kontrolü de olmalı tabi),
filtre sonucu kalan satırları uygun başka bir sayfaya veya alana aktarıp oradan da
ListBox1.List=.... veya ListBox1.Row.Source=... yöntemiyle Listbox'a alabilirsiniz.
.
 

sinnernekolens

Altın Üye
Katılım
23 Temmuz 2009
Mesajlar
310
Excel Vers. ve Dili
Ofis 2019 - Türkçe 64bit
Altın Üyelik Bitiş Tarihi
02-09-2027
Ömer bey teşekkür ederim. 1. konu çok önemli değil onu es geçebiliriz. diğer konular hakkında ne yapabiliriz?
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Belgenizin işleyişine ve yapısına hakim değilim, sayfadaki Checbox'tan mı bahsediyorsunuz yoksa userformlarda da checkbox var mı bilemiyorum.

İlke olarak şunu söyleyeyim, CheckBoxların herbiri için, kayıt nereye yapılıyorsa orada uygun birer sütuna CheckBox'un işaretli olup olmadığına göre basit 1/0 yazdırırsınız, veriyi çağırdığınızda da çağrılan verinin satırında o sütunlardaki 1/0 değerlerine göre onların işaretli/işaretsiz gelmesini sağlayabilirsiniz.
.
 

sinnernekolens

Altın Üye
Katılım
23 Temmuz 2009
Mesajlar
310
Excel Vers. ve Dili
Ofis 2019 - Türkçe 64bit
Altın Üyelik Bitiş Tarihi
02-09-2027
ömer bey, ekli dosyada veri sayfasında checkbox ların değerine göre BG-BH sutunlarına veriler giriyor.

Örnek, Aşağıdaki kod ile tehlikeli yük %30 işaretli olduğu zaman BG sütununa 0,3 yazıyor. giriş çıkış %50 zamlı işaretli olduğu zaman BH sütununa 0,5 yazıyor.

tek sorun veriyi geri çağırdığımda checkbox işaretsiz kalıyor.

Private Sub CheckBox1_Click() 'ZAM EKLEME %30
Range("R3").Value = "0"
If CheckBox1.Value = True Then
Range("R3").Value = 0.3
MsgBox "%30 Tehlikeli yük zammı eklenmiştir.", vbInformation, "U Y A R I !"
Else
MsgBox "%30 Tehlikeli yük zammı ÇIKARILMIŞTIR.", vbCritical, "U Y A R I !"
End If
End SubAdsız.png
 

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Gizli durumdaki veri isimli sayfadan bahsediyorsunuz sanırım.
Peki veri isimli sayfadaki bilgiyi nereye nasıl çekiyorsunuz da CheckBox durumu açıkta kalıyor.

Unutmayın belge sizin ve siz belgeye hakimsiniz.
Veri çağırma işlemini açıklar mısınız?
(sayfa adı/satır no/sütun no/userform adı, şu formdaki şu düğmeye tıkalayınca, sayfafada şuna tıklayınca gibi net bilgi verin ki bakabileyim)
.
 

sinnernekolens

Altın Üye
Katılım
23 Temmuz 2009
Mesajlar
310
Excel Vers. ve Dili
Ofis 2019 - Türkçe 64bit
Altın Üyelik Bitiş Tarihi
02-09-2027
Merhabalar evet gizli olan sayfa, PROFORMA sayfasına yazdığım bilgileri veri sayfasına kaydediyorum, veri sayfasındaki bilgileri de "Bul" butonu ile userform dan secerek PROFORMA sayfasına aktarıyorum. kayıt yaparken checkbox işaretli oluyor, ancak veri çekerken işaret olmuyor. hesaplamayı doğru yapıyor, zaten sadece %30 farkı eklemek için yazıldı kod.
Checkbox için şöyle bir kod yazmak mümkün müdür, Eğer R3 hücresi 0 dan büyük ise checkbox işaretli olsun değil ise işaretsiz olsun. Kod çakışması olmaz ise; (bu sayfada bulduğum derleme formüllerle yaptığım için çok karıştı ben bile bazen izah etmekte zorlanıyorum :)

Private Sub CheckBox1_Click() 'ZAM EKLEME %30
Range("R3").Value = "0"
If CheckBox1.Value = True Then
Range("R3").Value = 0.3
MsgBox "%30 Tehlikeli yük zammı eklenmiştir.", vbInformation, "U Y A R I !"
Else
MsgBox "%30 Tehlikeli yük zammı ÇIKARILMIŞTIR.", vbCritical, "U Y A R I !"
End If
End Sub
 
Son düzenleme:

Ömer BARAN

Uzman
Katılım
8 Mart 2011
Mesajlar
13,002
Excel Vers. ve Dili
Office 2013 ( 32 bit ) TÜRKÇE
Altın Üyelik Bitiş Tarihi
(18.03.2020) - Uzman olduğu için tarih geçersiz oldu.
Kayıt-veri çağırma işlemlerinde CheckBox'ların durumu ile ilgili olarak önceki cevaplarımda belirttiğim hususların uygulandığı belge ekte.
Belge içerisine açıklama ekledim.
 

Ekli dosyalar

Üst