Süzme...

[pcci]

Cümleten herkese merhaba.
Ben excel'de bir listede sıralama yapmaya çalıştım ama yapamadım. Dosyayı ekte gönderiyorum. Yapmak istediğim şu. B sütununda ürün kodları var. Ürünkodu 8 ile başlayanları alıp 2. bir sayfaya kopyalamak istiyorum. Bu nasıl yapılır? Cevaplayacağınızı biliyorum. :) Onu için şimdiden teşekkür ederimm. :hihoho:

[Levent Menteşoğlu]

Aşağıdaki kod sanırım işinizi görür. Ayrıca ekide inceleyiniz.

selamlar

Sub süz()
a = WorksheetFunction.CountA(Sheets("sayfa1").Range("B2:B65532"))
c = 0
For ara = 2 To a + 3
b = Mid(Cells(ara, 2), 1, 1)
If b = 8 Then
c = c + 1
Sheets("sayfa2").Cells(c, 1) = Cells(ara, 2)
Sheets("sayfa2").Cells(c, 2) = Cells(ara, 3)
Sheets("sayfa2").Cells(c, 3) = Cells(ara, 4)
Sheets("sayfa2").Cells(c, 4) = Cells(ara, 5)
Sheets("sayfa2").Cells(c, 5) = Cells(ara, 6)
End If
Next ara
End Sub

Merhaba Farklı bir çözüm de ben sunayım

Tablo üzerindeki bütün birleştirilmiş hücreyi kaldırarak tablonun üstündeki satırı Data>> filterden >>filter seçeneği ile filtre ekleyin.
Daha sorna filtrele seçeneklerinde custon seçeneğini seçin ekrana gelen pencereden sol üstde begins with seçeneğini seçin ve sağ tarafında da 8 yazarsanız direkt olarak sizin istediğiniz özellik 8 ile başlayanlar filtrelenmiş olacaktır.Sonra bu filtrelenmiş alanı copy yaparak istediğini yere kopyalayabilirsiniz.