+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Veri Ara Bul (/konu-veri-ara-bul.html)
Cvp: Veri Ara Bul - yyhy - 05/04/2020
Sayın accessman denenebilecek olasılıkları denedim. Macroda hata veriyor.
Cvp: Veri Ara Bul - accessman - 05/04/2020
Criteria kismında alan tanımı olan Range var
B1 den F2 ye kadar diyor
Bu alandaki biligiler kriter mi olacak
Cvp: Veri Ara Bul - yyhy - 05/04/2020
Evet kriter olacak. Ama siz farklı bir yöntem uygularsanız o da olabilir. Önemli olan sonuca varmak. Teşekkür ederim.
Cvp: Veri Ara Bul - accessman - 05/04/2020
2x5 lik bir alan kriter alanı
Bir yanlışlık olmasın 10 tane hücre var orada
Cvp: Veri Ara Bul - feraz - 05/04/2020
Merhaba.
Daha öncede söylemiştim.
*a* olarak aratırsanız içerik olarak arar.
Cvp: Veri Ara Bul - feraz - 05/04/2020
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