Resimdeki gibi deneyiniz.

Function Bosmu(deger) As Byte

    If IsNull(deger) 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))

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

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

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

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

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

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

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

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

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

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

Exit Sub

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



End Sub

---

sizin kodlarda tümünü işaretliyor benimkide onu halledeyim kodu eklerim