arama seçenekleri

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar: Ekli dosyamda Userform üzerinde bulunan Bul tuşu ile (CommandButton11) verileri OptionButton vasıtasıyla işaretleyerek buluyorum. Ancak bulma işlemi içerir şekilde buluyor, oysa ben OptionButton9 ve OptionButton10 ile "İçerir ve Tüm hücre içeriğini eşleştir" şeklinde işaretleyince aramak yani bulmak istiyorum. (Örnek içerir aradığı için Sayısı Kısmına 11'i bul deyince 3 tane buluyor oysa 11 sayısı 1 tane)
Bunun için;
Set Bul = Range("C:C").Find(TextBox3, LookAt:=xlPart)
Bu kodda bulunan ve Sekiz tane olan bu koddaki "xlPart" yerine "xlWhole" yazınca oluyor, ama bu seferde ilk önceki arama seçeneği iptal oluyor.
Bu durumda her iki yöntemle aramak için İki büton ekledim. OptionButton9 ve optionButton10 bunlara basınca arama seçeneklerini buna göre yapmak için nasıl bir yöntem izlenir.
herkese teşekkürler.

 

[dEdE]

Merhaba
Kodlarınızdaki aşağıdaki bölümü kırmızı ile işaretlediğim şekilde değiştirip dener misiniz?

    If OptionButton1 = True And TextBox3 <> "" Then
        ActiveSheet.Unprotect "1295"
'--------------------------
[COLOR="Red"]If OptionButton9 = True Then
    Set Bul = Range("C:C").Find(TextBox3, LookAt:=xlPart)
Else
    Set Bul = Range("C:C").Find(TextBox3, LookAt:=xlWhole)
End If[/COLOR]
'-----------------------------
        If Not Bul Is Nothing Then
            Adres = Bul.Address

 

[Hacı Bayram ÖZKAN]

Teşekkürler deneyeceğim

 

[Hacı Bayram ÖZKAN]

Sayın dede OptionButton10'u işaretleyince de 11 yazınca 3 tane buldu buna bir bakarmısın oysa OptionButton10'u işaretleyince 1 tane 11 rakamını bulacaktı. Zahmet veriyorum kusura bakmayın,

 

[Hacı Bayram ÖZKAN]

Sayın Dede; çok özür dilerim ben yanlış yere kopyalamışım teşekkürler eline sağlık çalıştı dua ile kal

 

[halit3]

Alternatif olarak bir adet CommandButton14 nesnesi ekle bir adet TextBox19.Text nesnesi ekle ve TextBox19.Text nesnesine aranan değeri yaz CommandButton14 düğmesine tıkla

kod:

Private Sub CommandButton14_Click()
Dim ad, X, yer, yer1, sutson, sat, y, r, k, sh, d, FirstAddress
ad = TextBox19.Text
Set sh = Sheets(ActiveSheet.Name)
X = 0
If OptionButton9.Value = True Then
yer = xlFormulas
yer1 = xlPart
Else
yer = xlValues
yer1 = xlWhole
End If
ListView1.ListItems.Clear
Dim SütunAdı As String
sutson = 17
For k = 2 To Range("A65536").End(3)
SütunAdı = Split(sh.Cells(1, sutson).Address, "$")(1)
sat = 0
With sh.Range("A" & k & ":" & SütunAdı & k)
Set d = .Find(What:=ad, After:=.Cells(.Cells.Count), LookIn:=yer, lookat:=yer1, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not d Is Nothing Then
FirstAddress = d.Address
Do
sat = sat + 1
If sat = 1 Then
X = X + 1
ListView1.ListItems.Add , , sh.Cells(k, 1)
If X Mod 2 = 1 Then
ListView1.ListItems(X).ForeColor = 16711680
ListView1.ListItems(X).Bold = True
End If
With ListView1.ListItems(X).ListSubItems
y = 0
For r = 2 To sutson
y = y + 1
.Add , , sh.Cells(d.Row, r)
If X Mod 2 = 1 Then
ListView1.ListItems(X).ListSubItems(y).ForeColor = 16711680
ListView1.ListItems(X).ListSubItems(y).Bold = True
End If
Next
End With
End If
If d.Column = 1 Then
ListView1.ListItems(X).ForeColor = 255
Else
ListView1.ListItems(X).ListSubItems(d.Column - 1).ForeColor = 255
End If
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address <> FirstAddress
End If
End With
Next
Set sh = Nothing
 
End Sub

 

[Hacı Bayram ÖZKAN]

Halit bey; eline sağlık değişik olmuş bütün sütunlarda arama yapıyor, ve sonucu kırmızı yazıyor oda güzel olmuş elinize sağlık eksik olmayın.