AccessTr.neT
Excel Userform'da Arama Sonucunda Kayıtlı Checkbox Değerleri Formda Görüntülenmiyor. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Userform'da Arama Sonucunda Kayıtlı Checkbox Değerleri Formda Görüntülenmiyor. (/konu-excel-userform-da-arama-sonucunda-kayitli-checkbox-degerleri-formda-goruntulenmiyor.html)

Sayfalar: 1 2 3 4

RE: Excel Userform'da Arama Sonucunda Kayıtlı Checkbox Değerleri Formda Görüntülenmiyor. - berduş - 10/03/2021

Seçildiyse Evet seçilmediyse hayir mi olacak

RE: Excel Userform'da Arama Sonucunda Kayıtlı Checkbox Değerleri Formda Görüntülenmiyor. - feraz - 10/03/2021

Resimden anladığım kadarıyla zaten bitir: den önce exit sub yazılacak ve exiet sub satırının üst satırına kodlar eklenecek bence.
Bitir olayını hata durumu için eklenmiş Img-grin

RE: Excel Userform'da Arama Sonucunda Kayıtlı Checkbox Değerleri Formda Görüntülenmiyor. - berduş - 10/03/2021

ilgili alanları aşağıdaki gibi düzenleyip dener misiniz?
ComboBox_Ilce.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 10) = "Evet", True, False)

ComboBox_Sehir.Text = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 11) = "Evet", True, False)

ComboBox_Bolge.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 12) = "Evet", True, False)

ComboBox_Temsilci.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 13) = "Evet", True, False)

ComboBox_RouteDay.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 14) = "Evet", True, False)

ComboBox_YetkiliBayilik.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 15) = "Evet", True, False)

CheckBox_AlbertGenau.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 16) = "Evet", True, False)

CheckBox_AsasPen.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 17) = "Evet", True, False)

CheckBox_ByErtTente.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 18) = "Evet", True, False)

CheckBox_Karpen.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 19) = "Evet", True, False)

CheckBox_OptimalYapi.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 20) = "Evet", True, False)

CheckBox_Palmiye.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 21) = "Evet", True, False)

CheckBox_Rsg.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 22) = "Evet", True, False)

CheckBox_Vizyon.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 23) = "Evet", True, False)

CheckBox_Winsa.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 24) = "Evet", True, False)

CheckBox_Diger.Value = IIf(Worksheets("Ana_Sayfa").Cells(SatirSil, 25) = "Evet", True, False)


RE: Excel Userform'da Arama Sonucunda Kayıtlı Checkbox Değerleri Formda Görüntülenmiyor. - berduş - 10/03/2021

(10/03/2021, 14:23)Oğuz Türkyılmaz yazdı: arama butonu ile çağırdığımız eski kaydın tarih alanında Tarih Bilgisi 0 olarak geliyor.
siz fonksiyonu tarih alanına da atamışsınız
TextBox_Tarih.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 26).Value)
buradaki bosmu olmayacak

RE: Excel Userform'da Arama Sonucunda Kayıtlı Checkbox Değerleri Formda Görüntülenmiyor. - feraz - 11/03/2021

Berduş hocamızın dediği gibi tarih içinde bosmu fonksiyon eklenmiş ve bende teklemişim checkbox zannedip.
O satırı normal yapın.Birde fonksiyon adı daha mantıklı olması için Evet_Hayir gibi olabilir Img-grin


Function Evet_Hayir(deger) As Byte

    ' 0 demek checkboxtaki tik olmayacak 1 se olacak demektir

    If deger = "Evet" Then Evet_Hayir = 0

    If deger = "Hayýr" Then Evet_Hayir = 1

End Function


Re: Excel Userform'da Arama Sonucunda Kayıtlı Checkbox Değerleri Formda - feraz - 11/03/2021

Zaman bulmuşken kodlarınızı düzenledim tekrar eden kodları tek sub içine aldım ve kısaldı.
Düzelttiklerimden biride örneğin  alttaki "" yerine False yaptım.Zaten onuda soracaktınız silmede felan neden checkboxların tiki kalkmıyor diye Img-grin
CheckBox_AlbertGenau.Value = ""

CheckBox_AlbertGenau.Value = False