otomatik optionbutton seçimi

[chakistes]

Merhaba arkadaşlar aşağıdaki kodla listbox1 de seçim yaptığımda excel sayfa1de Q sütünundaki babası üzerine geldiğinde userform1 de bulunan optionbutton1, Q sütunundaki annesi üzerine geldiğinde Userform1 de bulunan optionbutton2 (annesi) otomatik işaretlemesini istiyorum.

If combo.ListIndex > 0 Then
sat = combo.ListIndex + 1
Else
sat = 1
End If

Dim i As Integer
Dim j As Integer
Dim aranan1 As String
ListBox1.Clear
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "0;100;0" 'lisbox'taki sütunların genişliği
sat1 = 0
j = Len(ARABUL.Text)
For i = 2 To Worksheets("sayfa1").[A65536].End(3).Row
aranan1 = UCase(Replace(Replace(LCase(Mid(Sheets("sayfa1").Cells(i, sat).Value, 1, j)), "x", "x"), "x", "x"))
If Worksheets("sayfa1").Cells(i, sat).Value > 0 Then
If ARABUL.Text <> "" Then
'If aranan1 = LCase(ARABUL.Text) Then
If aranan1 = UCase(Replace(Replace(ARABUL.Text, "ı", "I"), "i", "İ")) Then

ListBox1.AddItem

ListBox1.List(sat1, 0) = i
ListBox1.List(sat1, 1) = Sheets("sayfa1").Cells(i, sat).Value

sat1 = sat1 + 1
End If
Else
ListBox1.AddItem
ListBox1.List(sat1, 0) = i
ListBox1.List(sat1, 1) = Sheets("sayfa1").Cells(i, sat).Value
sat1 = sat1 + 1


End If
End If
Next

 

[turist]

Örnek dosyanızda UserForm ve sayfa özellikleri ile foruma ekleyebilirseniz, daha hızlı ve kolay cevaplar bulabilirsiniz.
Lütfen dosyanızı ekleyip, sorunuzu dosya üzerinde belirtin.

 

[chakistes]

merhaba örnek programda olduğu gibi velisi değişince annesi ve babası optionbuttonda değişmesini istiyorum.

 

[turist]

Aşağıdaki gibi deneyiniz:

Private Sub ListBox1_Click()
sat = Val(ListBox1.List(ListBox1.ListIndex, 0))
For i = 1 To sut
Controls("textbox" & i) = Sheets("sayfa1").Cells(sat, i).Value
Next i
Lab = sat 'ListBox1.ListIndex + 1
For i = 1 To Worksheets("sayfa1").[A65536].End(3).Row
If Sheets("sayfa1").Range("J" & sat) <> "BABASI" Then Form1.OptionButton1.Value = False
If Sheets("sayfa1").Range("J" & sat) = "BABASI" Then Form1.OptionButton1.Value = True
If Sheets("sayfa1").Range("J" & sat) <> "ANNESİ" Then Form1.OptionButton2.Value = False
If Sheets("sayfa1").Range("J" & sat) = "ANNESİ" Then Form1.OptionButton2.Value = True
Next i
End Sub

 

[chakistes]

çok teşekkür ederim

 

[turist]

Sağ olun, iyi çalışmalar.