Süzme...

Katılım
13 Kasım 2004
Mesajlar
47
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kod sanırım işinizi görür. Ayrıca ekide inceleyiniz.

selamlar

Kod:
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
 
G

Guest

Misafir
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.
 
Üst