Aşağıdaki kodu bir module sayfasına yazın ve tablonun bulunduğu sayfadaki bir butona bağlayın.
[vb:1:d09a176314]Sub nosırala()
For a = 2 To 18
c = 0
For b = 2 To 11
If Cells(b, a) = "Y" Then
c = c + 1
Cells(c + 11, a) = Cells(b, 1).Value
End If
Next
Next
End Sub[/vb:1:d09a176314]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.