Kodun son hali bu.Checkbox kodlarındaki gibi herzaman .Value koymazsanız sonuna problemler olabiliyor.

Alttaki koddaki And deger <> "Wahr" olan yeri kaldırabilirsiniz silince çalışırsa benim Pc başka dil olduğu için ekledim.Birde "DOÐRU" bu kelimedeki Ð yerine büyük yumuşak ğ yazın.

Function Bosmu(deger) As Byte

    If deger <> "Evet" And deger <> "DOÐRU" And deger <> "Wahr" Then

        Bosmu = 0

    Else

        Bosmu = 1

    End If

End Function

Private Sub btn_Arama_Click()



On Error GoTo Bitir

aranan = InputBox("Aramak istediginiz kaydýn ID Numarasini giriniz.", "KAYIT ARAMA")

Range("A:A").Find(aranan).Select

SatirSil = ActiveCell.Row



TextBox_ID.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 1)

TextBox_FirmaAdi.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 2)

TextBox_FirmaUnvani.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 3)

TextBox_YetkiliKisi.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 4)

TextBox_Telefon.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 5)

TextBox_Gsm.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 6)

TextBox_Email.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 7)

TextBox_Adres.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 8)

TextBox_Aciklama.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 9)

ComboBox_Ilce.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 10)

ComboBox_Sehir.Text = Worksheets("Ana_Sayfa").Cells(SatirSil, 11)

ComboBox_Bolge.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 12)

ComboBox_Temsilci.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 13)

ComboBox_RouteDay.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 14)

ComboBox_YetkiliBayilik.Value = Worksheets("Ana_Sayfa").Cells(SatirSil, 15)



CheckBox_AlbertGenau.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 16).Value)

CheckBox_AsasPen.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 17).Value)

CheckBox_ByErtTente.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 18).Value)

CheckBox_Karpen.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 19).Value)

CheckBox_OptimalYapi.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 20).Value)

CheckBox_Palmiye.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 21).Value)

CheckBox_Rsg.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 22).Value)

CheckBox_Vizyon.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 23).Value)

CheckBox_Winsa.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 24).Value)

CheckBox_Diger.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 25).Value)

TextBox_Tarih.Value = Bosmu(Worksheets("Ana_Sayfa").Cells(SatirSil, 26).Value)

Exit Sub

Bitir: MsgBox "Aranan Kayit Bulunamadi!...", , "Firma Tanýmlama Formu"



End Sub

---

(10/03/2021, 11:47)feraz yazdı: Function Bosmu(deger) As Byte    If deger <> "Evet" And deger <> "DOÐRU" And deger <> "Wahr" Then        Bosmu = 0    Else        Bosmu = 1    End IfEnd Function

Ayrıca checkboxlara gelecek veri sütunları evet yada hayır olacaksa yukardaki kodu alttaki ile değiştirin.

Function Bosmu(deger) As Byte

    If deger <> "Evet" Then

        Bosmu = 0

    Else

        Bosmu = 1

    End If

End Function