TextBox da arama yaptırma

[dream_er]

ARKADAŞLAR BİR EXCEL KİTABINDA CTRL+F İLE DEĞİLDE MAKRO OLARAK ARAMA YAPTIRMAK İSTİYORUM 3 ADET OPTİON BUTONUMUZ VAR


1.Option butonu seçtiğimizde bütün sayfaların e4 hücresinde arıyacak
2.Option butonu seçtiğimizde bütün sayfaların e5 hücresinde arıyacak
3.Option butonu seçtiğimizde bütün sayfaların e6 hücresinde arıyacak

YARDIM İÇİN DOSYAYI EKLEDIM



YARDIMLAR İÇİN TEŞEKKÜRLER
excel.web.tr ye tşkkürler

 

[dEdE]

Merhaba,
Dosyanız ektedir.

Private Sub CommandButton1_Click()
For j = 1 To 3
    If Controls("OptionButton" & j).Value = True Then satır = j + 3
Next
For i = 1 To Worksheets.Count
If Sheets(i).Cells(satır, 5).Value = TextBox1.Text Then
Sheets(i).Select
Exit Sub
End If
Next
MsgBox "Bulunamadı"
End Sub

 

[dream_er]

Dede Sende Olmasan Çook teşekkürler

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
    MsgBox "Arama yapabilmek için bir değer girmelisiniz..!!", vbCritical, "UAYARI"
    TextBox1.SetFocus
    Exit Sub
End If
If OptionButton1.Value = True Then
    adr = "E4"
    ElseIf OptionButton2.Value = True Then
    adr = "E5"
    ElseIf OptionButton3.Value = True Then
    adr = "E6"
End If
If ActiveSheet.Index = Worksheets.Count Then
    Sheets(2).Select
    Else
    Sheets(ActiveSheet.Index + 1).Select
End If
If UCase(Replace(Replace(Range(adr).Value, "ı", "I"), "i", "İ")) = _
UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ")) Then
    Range(adr).Select
    Else
    MsgBox "[ " & TextBox1.Text & " ] [ " & ActiveSheet.Name & " ] de bulunamadı", vbCritical, "UYARI"
End If

End Sub

 

[dream_er]

tşkkr ederim yardımlarınızı için halloldu

 

[dream_er]

Dede Birşey soracam aradığım kriterde büyük küçük harf duyarlı çalışıyor onu engelleyebilirmiyiz Birde ŞUNU ANLAYAMADIM
arama yapması için (E4-E5-E6) değilde C2 hücresi c3 ve C28 hücresini secmem gerekirse ne yapmalıyım

 

[dEdE]

Merhaba,
Aşağıdaki kodu kullanabilirsiniz.

Private Sub CommandButton1_Click()
For j = 1 To 3
    If Controls("OptionButton" & j).Value = True Then
        satır = j + 1
        If j = 3 Then satır = 28
    End If
Next
For i = 1 To Worksheets.Count
Tt = Replace(Replace(TextBox1.Text, "i", "İ"), "ı", "I")
Cc = Replace(Replace(Sheets(i).Cells(satır, 3).Value, "i", "İ"), "ı", "I")
If StrConv(Cc, vbUpperCase) = StrConv(Tt, vbUpperCase) Then
Sheets(i).Select
Exit Sub
End If
Next
MsgBox "Bulunamadı"
End Sub

 

[dream_er]

çok tşkkür edrm...

 

[dEdE]

Rica ederim.
İyi çalışmalar.