ara butonu yardım

[sosorry]

iyi çalışmalar,

ekteki dosya için ara butonu çalışmıyor. yardım eder misiniz?

teşekkürler...

 

[askm]

Ara butonundaki kodları aşağıdaki şekilde değiştirin.

Private Sub ARA_Click()
Dim son As Long
son = Range("B" & Rows.Count).End(3).Row
For i = 2 To son
hucre = Cells(i, 2)
If StrConv(hucre, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
        Cells(i, 2).Select
        TextBox1.Value = Worksheets("sayfa1").Cells(i, 2)
        TextBox2.Value = Worksheets("sayfa1").Cells(i, 4)
        TextBox3.Value = Worksheets("sayfa1").Cells(i, 5)
        TextBox4.Value = Worksheets("sayfa1").Cells(i, 6)
        TextBox5.Value = Worksheets("sayfa1").Cells(i, 7)
        TextBox6.Value = Worksheets("sayfa1").Cells(i, 8)
        TextBox7.Value = Worksheets("Sayfa1").Cells(i, 9)
        TextBox8.Value = Worksheets("Sayfa1").Cells(i, 10)
End If
Next
End Sub

 

[Orion1]

Alternatif ;

Private Sub ARA_Click()
Dim k As Range, adrs As String, x As Byte
Set k = Sayfa1.Range("B3:B" & Rows.Count).Find(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    TextBox1.Value = k.Value
    For x = 2 To 8
        Me.Controls("TextBox" & x) = k.Offset(0, x - 1).Value
    Next x
End If
End Sub

 

[sosorry]

teşekkürler ancak çalışmıyor, dosyayı ekledim bakabilir misiniz?

 

[Orion1]

teşekkürler ancak çalışmıyor, dosyayı ekledim bakabilir misiniz?

Anlaşılan benim yaptığım kodu denememişsiniz.
Combobox1 den aranacak veriyi seçin,sonra ara butonuna basın.

 

[sosorry]

teşekkürler,

peki aynı dosyada ara ile çağırdığımız verileri "düzelt" ve "sil" komutlarını nasıl aktif edebiliriz?