A sütunundaki verilerden sadece seçileni alt alta sıralama

[kasif2]

Selam;

Ekteki tabloda a sütununda aynı olan verilerin sayfanın başka bir yerinde b sütunundaki açıklamalarıyla sıralamak istiyorum. Bunu makrosuz yapabilir miyim??

 

[Ali]

EĞERSAY fonksiyonu ilede kaç adet olduğu hesaplanarak verileriniz CTRL+SHIFT+ENTER tuşları ile dizi formülü oluşturularak listeleme yaptırılmıştır.

Örneğiniz ektedir.

 

[N.Ziya Hiçdurmaz]

yanıt

Makrosuz istemişsiniz ama buda makrolu örnek olsun.

Sub test()
For sut1 = 3 To [a65536].End(3).Row
If Range("a" & sut1) = [d2] Then
Range("a" & sut1 & ":b" & sut1).Copy
s = s + 1
Range("d" & s + 2).PasteSpecial
End If
Next
For sut1 = 3 To [a65536].End(3).Row
If Range("a" & sut1) = [f2] Then
Range("a" & sut1 & ":b" & sut1).Copy
ss = ss + 1
Range("f" & ss + 2).PasteSpecial
End If
Next
For sut1 = 3 To [a65536].End(3).Row
If Range("a" & sut1) = [h2] Then
Range("a" & sut1 & ":b" & sut1).Copy
sss = sss + 1
Range("h" & sss + 2).PasteSpecial
End If
Next
For sut1 = 3 To [a65536].End(3).Row
If Range("a" & sut1) = [j2] Then
Range("a" & sut1 & ":b" & sut1).Copy
ssss = ssss + 1
Range("j" & ssss + 2).PasteSpecial
End If
Next
Application.CutCopyMode = False
End Sub

 

[kasif2]

İkinize de çok çok teşekkürler. Bunu benim haricimde kişiler de kullanıcak, o yüzden makrasoz istemiştim. Gerçekten tam istediğim gibi olmuş...

İlginiz için tekrar teşekkürler..

 

[kasif2]

Sn. Ali;

Dosyanızdaki formülü kendi ihtiyacıma göre revize etmeye çalıştım sonuçlar nedense yanlış çıkıyor. Bu konuda yardımcı olabilir misiniz...

 

[Korhan Ayhan]

Selamlar,

Ali beyinde belirttiği gibi çözümde kullanılan formül dizi formülüdür. Formülün çalışması için formülü yazdıktan sonra CTRL+SHIFT+ENTER tuşlarına basarak tamamlamalısınız.

EĞERSAY fonksiyonu ilede kaç adet olduğu hesaplanarak verileriniz CTRL+SHIFT+ENTER tuşları ile dizi formülü oluşturularak listeleme yaptırılmıştır.

Örneğiniz ektedir.

 

[kasif2]

Selamlar,

Ali beyinde belirttiği gibi çözümde kullanılan formül dizi formülüdür. Formülün çalışması için formülü yazdıktan sonra CTRL+SHIFT+ENTER tuşlarına basarak tamamlamalısınız.

Geçte olsa farkettim, sorun halloldu, teşekkürler...