Sayın accessman denenebilecek olasılıkları denedim. Macroda hata veriyor.
Criteria kismında alan tanımı olan Range var
B1 den F2 ye kadar diyor
Bu alandaki biligiler kriter mi olacak
Evet kriter olacak. Ama siz farklı bir yöntem uygularsanız o da olabilir. Önemli olan sonuca varmak. Teşekkür ederim.
2x5 lik bir alan kriter alanı
Bir yanlışlık olmasın 10 tane hücre var orada
Merhaba.
Daha öncede söylemiştim.
*a* olarak aratırsanız içerik olarak arar.
Alttaki kod ilede olur * yazmadan
Kod:
ActiveCell.Value = "*" & ActiveCell.Value & "*"
Kod:
Sub Makro1()
On Error Resume Next
ActiveCell.Value = "*" & ActiveCell.Value & "*"
Sheets("Ara").Range("B5:F" & Rows.Count).Clear
Sheets("Veri").Columns("A:E").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Ara").Range("B1:F2"), CopyToRange:=Sheets("Ara").Range("B5"), Unique:=False
Sheets("Ara").Range("F3").Select
End Sub