Tam olarak Soruyu adlandıramadım ama, Şartlı seçim

[ozgurmath]

Tam olarak Soruyu adlandıramadım ama, Þartlı seçim

Merhaba arkdaşlar:

Karşıma çıkan bu sorunla ilgilenir ve bu sorunu aşmamda yardımcı olursanız sevinirim. :hihoho:

Teşekkürler...İyi çalışmalar

 

[Levent Menteşoğlu]

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]

 

[abazya]

Butonunuda ben ekledim kolay gelsin

 

[ozgurmath]

İyi akşamlar Arkadaşlar,

Verdiğiniz bilgilerden dolayı teşekkür ediyorum.

:hey: İYİ Kİ VARSINIZ...

İyi çalışmalar