Skip to main content

AccessTr.neT


Veri Ara Bul

Veri Ara Bul

#19
(08/04/2020, 12:47)yyhy yazdı: Sayın farez bey macroyu şu şekilde hallettim örnek dosyayı da buraya ekliyorum.

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
Sevindim abey ben Target kullanmıştım yıldız olarak siz döngü.
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task