Arama Kodu

[asdsxx]

Arkadaşlar aşağıdaki kod ile Textbox5 kutusuna yazdığım kelimeyi excel sayfasındaki 4. sütunda arama yaptırıyorum ve bulunan hücrelerin olduğu satırları listbox kutusuna listeliyor. Kod gayet iyi çalışıyor.
Benim istediğim 4 tane OptionsButton düğmesi ekleyim hangi optionButton tıklatırsam 4. sütun, 5. sütun, 6. sütun, 7. sütun da aratabilirmiyim. Yani arama yapacağım sütunu optionButton da beliteceğim ve o sütunda arama yapacak. Kırmızı kısma ilave yapılması gerekiyor sanırım
KOD:

Private Sub CommandButton10_Click()
Sheets("sayfa1").Select
ActiveSheet.Range("$A$1:$G$780").AutoFilter Field:=2
ActiveSheet.Range("$A$1:$G$780").AutoFilter Field:=4
ActiveSheet.Range("$A$1:$G$780").AutoFilter Field:=5
On Error Resume Next
METİN1 = TextBox5.Value
Set FC2 = Range("A2:h65000").Find(What:=METİN1)
Application.GoTo Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox5.Value & "*"
If METİN1 = "" Then
Selection.AutoFilter Field:=4

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

End If


f = WorksheetFunction.CountA(Sheets("sayfa1").Range("f2:f780"))
Sheets("sayfa1").Unprotect


Set rng = Sheets("sayfa1").Range("f2:f" & f + 2).SpecialCells(xlCellTypeVisible)
'Sheets("sayfa1").Protect
With ListBox2
.Clear
.RowSource = ""
End With

'With ListBox4
' .Clear
' .RowSource = ""
'End With

For Each rngCell In rng
ListBox2.AddItem rngCell.Value
'ListBox4.AddItem rngCell.Value
Next rngCell
End Sub

 

[muratboz06]

Dim araSutunda As Integer 'Bu satırı Userform da en üste kopyalayınız.

Private Sub OptionButton1_Click()
araSutunda = 4
End Sub

Private Sub OptionButton2_Click()
araSutunda = 5
End Sub

Private Sub OptionButton3_Click()
araSutunda = 6
End Sub

Private Sub OptionButton4_Click()
araSutunda = 7
End Sub

Selection.AutoFilter Field:=4, Criteria1:="*" & TextBox5.Value & "*" satırını
Selection.AutoFilter Field:=araSutunda, Criteria1:="*" & TextBox5.Value & "*" olarak değiştiriniz.
OptionButton1 e basıldığında 4. sütunda, diğerlerinde basıldığında ise sırasıyla 5,6,7 inci sütunlara arama yapar.

 

[asdsxx]

Murat Bey Teşekkürler kod gayet güzel çalıştı.
Yalnız küçük bir sıkıntı var arama yaparken bazı karakterleri hassas kabul ediyor ve aslında olduğu halde bulmuyor
Örnek: Textbox5'e "Adem", "Musa" yazınca bir sütunda "Âdem", "Mûsa" varsa bulmuyor harflerin üstündeki "^" işaretini yok sayabilirmiyiz