Ara Bul

[yyhy]

Veri sayfasındaki bilgileri macro ile kritere göre getiriyorum. Yalnız macro da başlayanları getiriyor. Baş tarafı veya sonu belli olmayan, içerir olarak macroyu düzeltebilir miyiz? Yardımcı olan arkadaşlara teşekkür ederim.

 

[Ömer]

Merhaba,

İstanbul yerine *İstanbul* yazarsanız istediğiniz olur.

 

[yyhy]

Sayın Ömer bey tam istediğim de bu ama ben macro üzerinde bunu uygulamak istiyorum acaba macro üzerinde ne gibi bir değişiklik yapmam gerekir. Teşekkür ederim.

 

[Korhan Ayhan]

Filtre alanında joker karakter kullanmak durumundasınız.

D2 hücresine *istanbul* yazarsanız istediğiniz sonucu alırsınız.

 

[Ömer]

Sayın Ömer bey tam istediğim de bu ama ben macro üzerinde bunu uygulamak istiyorum acaba macro üzerinde ne gibi bir değişiklik yapmam gerekir. Teşekkür ederim.

Makro üzerinde yapabilirsiniz fakat yardımcı satır kullanmanız gerekir.

Verileri 3. satıra girip 2. satırı gizleyin ve kodları aşağıdakilerle değiştirin.

Sub Makro1()
    Dim i As Byte
    For i = 2 To 6
        Cells(2, i).ClearContents
        If Cells(3, i) <> "" Then
            Cells(2, i) = "*" & Cells(3, i) & "*"
        End If
    Next i
    On Error Resume Next
    Range("B5").Select
    Selection.CurrentRegion.Select
    Selection.Clear
    Range("B5").Select
    Sheets("Veri").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("B1:F2"), CopyToRange:=Range("B5"), Unique:=False
    Range("F3").Select
End Sub

 

[yyhy]

Macroyu uyarlayıp dönüş yapacağım Sayın Ömer bey teşekkürler.
Ömer Bey macroyu uyguladım, söylediğiniz gibi yardımcı satırı gizledim. İhtiyaca cevap verdi çok teşekkür ederim. Tam da istediğim gibi olmuş. Sitede örnek olsun diye de dosyayı ekledim. Ara Temizle butonları da gayet güzel bir şekilde kriterleri temizlemede kullanışlı oldu. Çok teşekkürler.