bul makrosu çalışmıyor ?

[levuu]

Merhaba

2 Adet bul makrosu oluşturmaya çalıştım ama hata veriyor sonuç yok.??
Teşekkürler

 

[Ferhat Pazarçevirdi]

Nasıl ve ne şekilde bir arama yapmak istediğini belirtirsen daha çok yardım alabilirsin. Aşağıda kodun bir kısmında, normalde yazımdan kaynaklanan hatalar var. Bu nedenle makronun çalışmaması çok normal.

Private Sub CommandButton12_Click()
' ÇA L IŞMIYOR  (ARA)
Dim i As Single, ii As String
ii = ComboBox1("1")
[COLOR=red]'Burada combobox'ın nesini almaya çalışıyorsun. Böyle bir kullanım yok.[/COLOR]
For numara = 2 To 65000
If Cells(ii, 2).Value = i Then
[COLOR=red]'Burada, ii değeri combobox'ın indexi default olarak 0'dan başladığı için
;  Cells(0,2) gibi bir değer üretecektir ki bu da mümkün değil. Yani 0.satır, 2.sutun diye birşey Excelde yok.[/COLOR]
satır = i
TextBox1.Text = Cells(satır, 8).Value
TextBox2.Text = Cells(satır, 7).Value
TextBox3.Text = Cells(satır, 6).Value
TextBox4.Text = Cells(satır, 5).Value
TextBox5.Text = Cells(satır, 4).Value
TextBox6.Text = Cells(satır, 3).Value
TextBox7.Text = Cells(satır, 2).Value
TextBox8.Text = Cells(satır, 1).Value
ComboBox1.Text = Cells(satır, 0).Value
[COLOR=red]'Burası da aynı çekilde, hücre referansları 0 olamaz -ki burda sütun indexi 0 görüüyor.[/COLOR]
End If
Next
MsgBox ("Kayıt Bulunamadı")
End Sub