Arama ve yeni dosya olarak kaydetme

[geass]

Merhabalar , elimdeki xlsx dosyasında bir sütunda "geass" geçenleri taratmak ve bulunan satırları yeni dosyaya yazdırıp bunu kaydettirmek istiyorum . Bunu yapabilecek biri olursa çok sevinirim

Teşekkürler

 

[Murat OSMA]

Şu kodları bir deneyiniz;

Sub Emre()
    Dim i As Range
    Dim Sayfa()
    For Each i In Range("b2:b" & Range("b65536").End(3).Row)
    If i.Value = "geass" Then
        Cells(i.Row, 1).Resize(, 4).Copy Sayfa2.Range("A65536").End(3)(2, 1)
    End If
    Next i
    Sayfa2.SaveAs ThisWorkbook.Path & "\Test.xls"
    Sayfa = Array("Sayfa1", "Sayfa3")
    Application.DisplayAlerts = False
    Sheets(Sayfa).Delete
End Sub

 

[geass]

Object required diye bir hata döndürdü

bu arada excelden bahsedersek 4 sütunlu ve yaklaşık 60.000 satırlı.

Sheet1 adlı sayfada bulunuyor

Dosya adı: DOSYA_AYIR.xlsx

belki değiştirmem gereken yerleri bilmiyorumdur diye söyledim bu bilgileri

Teşekkürler

 

[geass]

Sayfa2 diye bir sheet oluşturduğum zaman da out of range script hatası veriyor .

 

[Murat OSMA]

Sorularınıza dosya eklemezseniz böyle hatalarla karşılaşırız işte.
Sabit kod yoktur. Her dosyaya göre ayrı kod yazılır. Bu nedenle her zaman üzerinde çalıştığınız dosyanızı ekleyin ve üzerinde neyin nasıl olması gerektiğini belirtin...

 

[geass]

Dosya ektedir , istediğim şey mesela mesaj alanında test2 yazanları almak

Not: mesaj alanında kesin sorgulama değil benzer sorgulaması olması gerekiyor yani

TEST TEST2 TEST3 TEST 4

içinde TEST2 geçtiği için bu satırı alması gerekiyor

Teşekkürler