Not: Maalesef hepsini C2 hücresine aktaramadım IVL sayfasındaki şablonu kullandım
Yapılanlar:
1 - makroların çalışabilmesi için Excel dosyanız .xlsm olarak kaydedildi
2 - modül eklendi
Modül kodu:
Sub FormatliAra(ByVal txtAranan As String)
Dim RngAra As Range
Dim RngSonuc As Range
Dim RngBul As Range
Set RngAra = ThisWorkbook.Worksheets("IVL").Range("A:A")
' Clear previous formats and set new format
Application.FindFormat.Clear
Application.FindFormat.Font.Bold = True'formatlı arama için gerekli kod
Set RngBul = RngAra.Find(txtAranan, SearchFormat:=True)
ThisWorkbook.Worksheets("Arama").Range("C2:N9").ClearContents 'Arama Sayfasını boşaltan kod
If RngBul Is Nothing Then Exit Sub 'veri yoksa işlemi iptal etme
Set RngSonuc = ThisWorkbook.Worksheets("IVL").Range("A" & RngBul.Row - 1 & ":L" & RngBul.Row + 7)
ThisWorkbook.Worksheets("Arama").Range("C2:N9").Value = RngSonuc.Value'değerleri arama sayfasına atama
Application.FindFormat.Clear
End Sub
3 - arama sayfasında B2 değişince aramayı sağlayacak kod eklendiPrivate Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b2")) Is Nothing Then FormatliAra (Target.Value) 'B2 değişince tetiklenir
End Sub