[Yardım]  DblClick ile OptionButton İşaretleme

Seçenek düğmesi

DblClick ile OptionButton İşaretleme

İleti#1)  Süleyman SAVAŞ » 02 Ekm 2016 13:40

PERSONEL sayfasında L sütununda, personelin AKTİF veya PASİF şeklinde verisi var.
Listview'a PERSONEL sekmesinden veri alıyorum. DblClick ile kişinin durumu AKTİF ise Optionbutton1 PASİF ise Optionbutton2 nin seçili hale gelmesini istiyorum.
Aşağıdaki kod ile Optionbutton lar hariç diğer nesnelere veri alabiliyorum.
Kod nasıl olmalı?
Kod: Tümünü seç
Private Sub ListView1_DblClick()
On Error Resume Next
Y = ListView1.SelectedItem.Index
TextBox2 = ListView1.ListItems(Y).ListSubItems(1).Text 'Sıra No
TextBox3 = ListView1.ListItems(Y).ListSubItems(2).Text 'Adı Soyadı
TextBox4 = ListView1.ListItems(Y).ListSubItems(3).Text 'kimliği
ComboBox4 = ListView1.ListItems(Y).ListSubItems(4).Text 'sicili
TextBox6 = ListView1.ListItems(Y).ListSubItems(5).Text 'ünvanı
ComboBox5 = ListView1.ListItems(Y).ListSubItems(6).Text 'şubesi
ComboBox7 = ListView1.ListItems(Y).ListSubItems(7).Text 'birimi
TextBox9 = ListView1.ListItems(Y).ListSubItems(8).Text 'e-posta
TextBox10 = ListView1.ListItems(Y).ListSubItems(9).Text 'kullanıcı
TextBox11 = ListView1.ListItems(Y).ListSubItems(10).Text 'cep
TextBox12 = ListView1.ListItems(Y).ListSubItems(11).Text 'dahili

son = Cells(Rows.Count, "L").End(xlUp).Row + 1

If Cells(son, "L").Value = "PASİF" Then
OptionButton1.Value = False
End If

If Cells(son, "L").Value = "AKTİF" Then
OptionButton2.Value = False
End If
End Sub
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 50
İleti: 451
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: DblClick ile Optionbutton işaretleme

İleti#2)  Ali ÖZ » 03 Ekm 2016 09:45

Kod: Tümünü seç
For i = 2 To Cells(Rows.Count, "L").End(xlUp).Row
  If Cells(son, "L").Value = "PASİF" Then
    OptionButton1.Value = False
    OptionButton2.Value = True
  ElseIf Cells(son, "L").Value = "AKTİF" Then
    OptionButton1.Value = True
    OptionButton2.Value = False
  End If
Next
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 40
İleti: 10322
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: DblClick ile Optionbutton işaretleme

İleti#3)  Süleyman SAVAŞ » 03 Ekm 2016 19:06

Ali ÖZ yazdı:
Kod: Tümünü seç
For i = 2 To Cells(Rows.Count, "L").End(xlUp).Row
  If Cells(son, "L").Value = "PASİF" Then
    OptionButton1.Value = False
    OptionButton2.Value = True
  ElseIf Cells(son, "L").Value = "AKTİF" Then
    OptionButton1.Value = True
    OptionButton2.Value = False
  End If
Next

Teşekkür ederim hocam.
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 50
İleti: 451
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: Cevap: DblClick ile Optionbutton işaretleme

İleti#4)  Süleyman SAVAŞ » 03 Ekm 2016 21:18

Ali ÖZ yazdı:
Kod: Tümünü seç
For i = 2 To Cells(Rows.Count, "L").End(xlUp).Row
  If Cells(son, "L").Value = "PASİF" Then
    OptionButton1.Value = False
    OptionButton2.Value = True
  ElseIf Cells(son, "L").Value = "AKTİF" Then
    OptionButton1.Value = True
    OptionButton2.Value = False
  End If
Next

Ali hocam bütün durumlarda Optionbutton2 işaretleniyor.
Yani kişinin durumu AKTİF te olsa PASİF te olsa hep PASİF işaretleniyor.
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 50
İleti: 451
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: DblClick ile Optionbutton işaretleme

İleti#5)  Süleyman SAVAŞ » 03 Ekm 2016 21:20

Örnek dosyam.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 50
İleti: 451
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik


Forum OptionButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe