- Katılım
- 20 Haziran 2011
- Mesajlar
- 10
- Excel Vers. ve Dili
- Microsoft 365 Deutsch
Selam arkadaslar,
ComboBox ile secilen verilerin kayit islemleri basarili bir sekilde calisiyor, sorun su,yapilan kayitta arama yaptigim zaman saat kayitlari haricindeki tüm datalar Combobox a geliyor. txtBaslamasaati.Value ve txtBitissaati.Value combobox a gelmiyor. sanirim format i belirtmem gerekiyor ama beceremedim. kodlar asagidaki gibi. Simdiden cevaplariniz icin tesekkür ederim
Private Sub find_Click()
aranan = txtPersonel.Value
Range("b:b").find(aranan).Select
sil_satir = ActiveCell.Row
txtTarih.Value = Worksheets("Giris").Cells(sil_satir, 1)
txtPersonel.Value = Worksheets("Giris").Cells(sil_satir, 2)
txtDers.Value = Worksheets("Eingabe").Cells(sil_satir, 3)
txtBaslamasaati.Value = Worksheets("Giris").Cells(sil_satir, 4)
txtBitissaati.Value = Worksheets("Giris").Cells(sil_satir, 5)
ComboBox ile secilen verilerin kayit islemleri basarili bir sekilde calisiyor, sorun su,yapilan kayitta arama yaptigim zaman saat kayitlari haricindeki tüm datalar Combobox a geliyor. txtBaslamasaati.Value ve txtBitissaati.Value combobox a gelmiyor. sanirim format i belirtmem gerekiyor ama beceremedim. kodlar asagidaki gibi. Simdiden cevaplariniz icin tesekkür ederim
Private Sub find_Click()
aranan = txtPersonel.Value
Range("b:b").find(aranan).Select
sil_satir = ActiveCell.Row
txtTarih.Value = Worksheets("Giris").Cells(sil_satir, 1)
txtPersonel.Value = Worksheets("Giris").Cells(sil_satir, 2)
txtDers.Value = Worksheets("Eingabe").Cells(sil_satir, 3)
txtBaslamasaati.Value = Worksheets("Giris").Cells(sil_satir, 4)
txtBitissaati.Value = Worksheets("Giris").Cells(sil_satir, 5)