17/04/2020, 06:33
(08/04/2020, 12:47)yyhy yazdı: [ -> ]Sayın farez bey macroyu şu şekilde hallettim örnek dosyayı da buraya ekliyorum.Sevindim abey ben Target kullanmıştım yıldız olarak siz döngü.
Sub Ara()
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
Aklıma gelmemişti bu olay.Öğrendiğimiz iyi oldu.Genelde kodlar sayfanın change olayında eklenip nezaman hücreye veri girilse hemen filtreleniyor onunla oluyordu.Gerçi bu sub uda change olayına ekleyebilirsiniz Call Ara diye.Güzel yöntem.Kolay gelsin.