belli bir değer ile başlayan satırları seçmek

[mrksmn]

Merhaba. Bir sütunda belli bir değer ile başlayan satırları seçerek bunları ayrı bir sayfaya atmak istiyorum, bunu nasıl yapabiliriz?

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Dim sat As Integer
Dim s As Integer
Dim deg As String
Sayfa2.Range("a1:r" & Rows.Count).Delete
s = s + 1
deg = InputBox("Aranılan kriter.")
    For sat = 2 To Sayfa1.Cells(Rows.Count, "a").End(xlUp).Row
        If Sayfa1.Cells(sat, "a") Like "*" & deg & "*" Then
            Sayfa1.Cells(sat, "a").EntireRow.Copy Sayfa2.Cells(s, "a")
            s = s + 1
        End If
    Next
End Sub

 

[Korhan Ayhan]

Merhaba,

Excelin filtre özelliğini kullanarakta bu işlemi yapabilirsiniz. İlgili sütuna veri-filtre menüsünden filtre uygulayın ve "İLE BAŞLAR" yöntemine göre süzme işlemi yapın. Daha sonra filtrelenen satırları seçip diğer sayfaya kopyalayın.

 

[Milady Meriç]

Merhaba,

Excelin filtre özelliğini kullanarakta bu işlemi yapabilirsiniz. İlgili sütuna veri-filtre menüsünden filtre uygulayın ve "İLE BAŞLAR" yöntemine göre süzme işlemi yapın. Daha sonra filtrelenen satırları seçip diğer sayfaya kopyalayın.

Korhan Bey Merhaba;

"EL İLE BAŞLAR" yöntemini açıklar mısınız? Ben filtre menüsünde buna benzer bir seçenek göremedim. ( Excel 2007 - eng )

 

[Korhan Ayhan]

Merhaba,

"İLE BAŞLAR" yöntemi metinsel ifadeler için geçerlidir. Eğer sizin filtre uyguladığınız sütun sayısal veriler içeriyorsa bu yöntemi kullanamazsınız.

Hücredeki filtre butonuna tıklayın.
METİN FİLTRELERİ-ÖZEL FİLTRE seçeneğine tıklayın.
Açılan penceredeki ilk kutucuktan "İLE BAŞLAR" yöntemini seçin. (Başka seçeneklerde bulunmaktadır.)
Yandaki kutucuğa mesela "K" harfini yazın. Eğer filtre uyguladığınız sütunda "K" harfi ile başlayan bir veri varsa otomatik olarak filtrelenecektir.

 

[Milady Meriç]

Çok teşekkür ederim Korhan Bey.