Sınırlı arama

[Barons]

Merhaba

Aşağıdaki kod'la hem kelime hemde rakam araması yapıyorum.Ancak şöyle bir sorunum var.

Aramayı tüm sayfalarda yapıyor.Oysa ben sadece diyelim "tablo" adlı sayfada arama yapmasını istiyorum.

yardımcı olacak arkadaşlara şimdiden teşekkürler

Sub FindData2()
On Error Resume Next
Dim wsSheet As Worksheet
Dim rFound As Range
Dim MyData As Variant
MyData = InputBox("NO VEYA ARANILAN KELİMEYİ YAZINIZ.")
If MyData = False Or MyData = "" Then End
For Each wsSheet In ActiveWorkbook.Worksheets
Set rFound = wsSheet.UsedRange. _
Find(What:=CStr(MyData), LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False)
If Not rFound Is Nothing Then
bln = bln + 1
First = rFound.Address
Do
Application.Goto rFound
ActiveCell.EntireRow.Select
Selection.Interior.ColorIndex = 6

ActiveCell.Select
Selection.Interior.ColorIndex = 4
ActiveCell.Select
s = " İlgili lab." & " " & ActiveCell.Offset(0, 8).Value & " / " & "Deney Ücreti" & " " & ActiveCell.Offset(0, 9).Value & " " & "YTL" & " / " & " Kapsam " & ActiveCell.Offset(0, 10).Value
sor = MsgBox(s, vbYesNo)
If sor = vbNo Then Exit Sub
'MsgBox " Deney Ücreti" & " " & ActiveCell.Offset(0, 9).Value & " " & "YTL" & " " & " Kapsam " & ActiveCell.Offset(0, 10).Value
'If MsgBox("Aramaya devam edilsin mi?", vbInformation + vbYesNo, "Arama Formu ") = vbNo Then End

Set rFound = wsSheet.UsedRange.FindNext(rFound)
Loop While Not rFound Is Nothing And rFound.Address <> First
End If
Next wsSheet
'MsgBox s
If bln = 0 Then: MsgBox "Aradığınız veri bulunamadı, !", vbExclamation, "Arama Sonucu "
End Sub

 

[danersin]

Find yönteminin özelliğini şöyle anlatmaya çalışayım, bu yöntem sayfadan Düzan>Bul ile yaptığınız işlemin aynısıdır. Düzan>Bul menüsünde seçenekler düğmesine bastığınız zaman göreceğiniz tercihlerin hepsini koddada belirtmelisiniz. Eğer kodda bunların hepsini belirtmezseniz Düzan>Bul da en son ne şekilde arama yapıldı ise kodlar o ayarlara uygun olarak arama yapacaktır. Bu sebeple en sağlamı her sefer tüm ayarları belirtmek koddan. Bunu en basit makro rekorderı çalıştırıp, istediğiniz kriterlerde bir arama yaparak kaydedebilirsinz.

 

[Levent Menteşoğlu]

[vb:1:ef14229ce1]For Each wsSheet In ActiveWorkbook.Worksheets
Set rFound = wsSheet.UsedRange. _
Find(What:=CStr(MyData), LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False)
[/vb:1:ef14229ce1]

Yukarıdaki Bölümü aşağıdaki gibi değiştirerek deneyin.

[vb:1:ef14229ce1]Set rFound = sheets("tablo").UsedRange. _
Find(What:=CStr(MyData), LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False)
[/vb:1:ef14229ce1]

 

[Haluk]

For Each wsSheet In ActiveWorkbook.Worksheets

satırının yerine;

set wssheet= sheets("tablo")

yazın ve aşağıdaki satırı da silin.

Next wsSheet

Bakalım olucak mı ?

 

[Barons]

İlgilenen tüm arkadaslara sonsuz tesekkurler

Sn Raider'in önerdiği çözümle problemim hallolmuştur.

İyi çalışmalar ve saygılar