kelimeye göre satırları filtrelemek

[hamza9]

Merhabalar

Ekte bir satış listesi dosyası var. B sütünunda satılan ürünlerin isimleri var. Yapmak istediğim içinde TESTER kelimesi geçen satırları filtrelemek.
Şimdiden yardımcı olacak arkadaşlara teşekkürler.

selamlar..

 

[ZorBey_]

Denermisiniz.

 

[Orion1]

Alternatif.
dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, sonsat As Long, i As Long
Sheets("Sayfa1").Select
Set sh = Sheets("Sayfa2")
Range("B5:L" & Rows.Count).ClearContents
Application.ScreenUpdating = False
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=2, Criteria1:="*" & Range("D3").Value & "*"
sh.Range("A1").CurrentRegion.Offset(1, 0).Copy Range("C5")
sh.AutoFilterMode = False
sonsat = Cells(Rows.Count, "C").End(xlUp).Row
For i = 5 To sonsat
    Cells(i, "B").Value = i - 4
Next i
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[hamza9]

Teşekkürler

Çok teşekkür ederim zorbey ve evrengizlen. Allah razı olsun.

Her iki dosyada istediğimi veriyor.

Selamlar..

 

[tahsinanarat]

Sn. Zorbey ve Evren Bey, sadece sayfa2 den değil de Sayfa2, Sayfa3 ve Sayfa4 den arayıp buldurmak isteseydik, kodda nasıl bir değişiklik yapılabilirdi. Cevabınız için şimdiden teşekkür ederim.

 

[Orion1]

Sn. Zorbey ve Evren Bey, sadece sayfa2 den değil de Sayfa2, Sayfa3 ve Sayfa4 den arayıp buldurmak isteseydik, kodda nasıl bir değişiklik yapılabilirdi. Cevabınız için şimdiden teşekkür ederim.

Örnek dosya ekleyiniz.

 

[tahsinanarat]

Sayın Evren bey, işlediğiniz örnek dosyanın aynısı, sadece sayfa2 de olan veriler diğer sayfalarda da olduğunu varsayalım.

 

[Orion1]

Sayın Evren bey, işlediğiniz örnek dosyanın aynısı, sadece sayfa2 de olan veriler diğer sayfalarda da olduğunu varsayalım.

Diğer sayfaları benmi hazırlayacam.Siz hazırlayıp yollayın.

 

[tahsinanarat]

Peki hazırladım

Yalnız aynı dosyadan sayfa3 ve sayfa4 olarak bir bölüm kopyala yapıştır yaptım, bu sayfalardaki tomson kelimesi geçen satırları listelemesini istemiyorum.

 

[Orion1]

Yalnız aynı dosyadan sayfa3 ve sayfa4 olarak bir bölüm kopyala yapıştır yaptım, bu sayfalardaki tomson kelimesi geçen satırları listelemesini istemiyorum.

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, sonsat As Long, i As Long, sayfa()
Dim sonsat2 As Long
Sheets("Sayfa1").Select
Range("B5:L" & Rows.Count).ClearContents
Application.ScreenUpdating = False
sayfa = Array("", "Sayfa2", "Sayfa3", "Sayfa4")
For i = 1 To UBound(sayfa)
    sonsat2 = Cells(Rows.Count, "D").End(xlUp).Row + 1
    Set sh = Sheets(sayfa(i))
    sh.Range("A1").AutoFilter
    sh.Range("A1").AutoFilter field:=2, Criteria1:="*" & Range("D3").Value & "*"
    sh.Range("A1").CurrentRegion.Offset(1, 0).Copy
    Range("C" & sonsat2).PasteSpecial xlPasteValuesAndNumberFormats
    sh.AutoFilterMode = False
    Set sh = Nothing
Next i
sonsat = Cells(Rows.Count, "C").End(xlUp).Row
For i = 5 To sonsat
    Cells(i, "B").Value = i - 4
Next i
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[tahsinanarat]

Sn. Evren hocam, ilginize çok teşekkür ederim, elinize kolunuza sağlık. Saygılar.

 

[tahsinanarat]

Sn. Evren hocam, N sütununa hangi sayfadan geldiğini belirtmek için sayfa ismini de yazdırmak istiyorum.