Çalışma kitabında Google gibi arama

[myway]

İdris Serdar hocam çok güzel bir paylaşım da bulunmuş. http://www.excel.web.tr/attachment.php?attachmentid=126932&d=1329899026

Burada Aramayı yalnızca veri sayfasında yapıyor. Bu arama birden fazla sayfada yapılabilirmi?

 

[swxtr]

Aynı şeyi ben de merak ediorum. Arama kriterlerini de çoğaltabilirmiyiz?

 

[halit3]

Sayfa formatları aynı olması durumunda kod

Private Sub TextBox1_Change()
Dim sonsat As Long, Deg As String, hcr As Range, Aln As Range, Code As Boolean
Dim renk, sayfa, i, sh, sonsat2

'Sheets("ARAMA").Activate

sayfa = ActiveSheet.Name


If Sheets(sayfa).Range("E3") <> "" Then
Deg = Sheets(sayfa).Range("E3").Value
Else
MsgBox "BİR ARAMA KRİTERİ GİRİN..."
Exit Sub
End If


Application.ScreenUpdating = False
Application.EnableEvents = False

Sheets(sayfa).Range("A9:F300").ClearContents

For i = 1 To ActiveWorkbook.Sheets.Count
If Sheets(i).Name <> sayfa Then

sonsat = Sheets(Sheets(i).Name).Range("A" & Rows.Count).End(xlUp).Row
Sheets(Sheets(i).Name).Range("B2").AutoFilter
Sheets(Sheets(i).Name).Range("B2").AutoFilter Field:=3, Criteria1:="=*" & Deg & "*"

sonsat2 = Sheets(sayfa).Range("B" & Rows.Count).End(xlUp).Row + 1

If sonsat2 <= 9 Then
sonsat2 = 9
Else
sonsat2 = sonsat2
End If

Sheets(Sheets(i).Name).Range("B2:F" & sonsat).SpecialCells(xlCellTypeVisible).Copy Sheets(sayfa).Range("B" & sonsat2)
Sheets(Sheets(i).Name).Range("B2").AutoFilter

sonsat = Sheets(sayfa).Range("B" & Rows.Count).End(xlUp).Row

Set Aln = Sheets(sayfa).Range("C10:C" & sonsat)

For Each hcr In Aln
renk = InStr(renk + 1, hcr.Text, Deg)
Do
If renk > 0 Then
hcr.Characters(Start:=renk, Length:=Len(Deg)).Font.ColorIndex = 3
End If
renk = InStr(renk + 1, hcr.Text, Deg)
Loop While renk > 0
Next hcr

End If
Next

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

 

[swxtr]

halit3 hocam elinize sağlık. Burada, Tek arama kutusu var bunları mesela farklı sütun ve sayfalardan arama yapmak için 4e falan çıkartmak mümkün mü?

 

[halit3]

Forma daha önce farklı bir konuya bu dosyayı eklemiştim.
üç adet uygulama mevcut veri sayfasındaki uygulamayı irdeleyiniz.

 

[swxtr]

Forma daha önce farklı bir konuya bu dosyayı eklemiştim.
üç adet uygulama mevcut veri sayfasındaki uygulamayı irdeleyiniz.

Teşkkürler.