Veri arama ve sıra no'su verme

[Erdal]

Merhabalar
Evdeki filmlerimi excele işleyip sıralama yaptırmak istiyorum.
Ekteki dosyada ayrıntılı açıklama mevcuttur. Yardımlarınız için şimdiden teşekkür ederim.

 

[Erdal]

Merhabalar
Problemin bir kısmını hallettim. Tabi başka problemler de çıkmadı değil. Dosyayı güncelleyerek tekrar yolluyorum. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

A sütunundaki sıra no için A3 hücresine aşağıdaki formülü uygulayın. Alt hücrelere sürükleyin.

=EĞER(B3="";"";ALTTOPLAM(103;F$3:F3))

C3 hücresindeki formülünüzü aşağıdaki şekilde değiştirin. Alt hücrelere sürükleyin.

=EĞER(D3=1;EĞERSAY($D$1:D3;1);"")

G3 hücresindeki formülünüzü aşağıdaki şekilde değiştirin. Alt hücrelere sürükleyin.

=EĞERSAY(D:D;1)

Modüllerdeki kodlarınızıda aşağıdaki şekilde değiştirin.

Sub Git()
    Range("F65536").End(3).Offset(1).Activate
End Sub

Sub iptal()
    Sheets("Filmler").TextBox1.Value = ""
    If ActiveSheet.AutoFilterMode Then Range("G2").AutoFilter
End Sub

 

[Erdal]

Merhabalar
Sn. Korhan Bey ilginiz için teşekkürler. Tam istediğim gibi olmuş. Yalnızca filtreleme yaptıktan sonra C sütununa filmlerin hangi DVD'de olduğunu yazdırmak mümkün mü acaba? Sorumu örnekte anlatmaya çalıştım. Örnekte Textbox'a "S" harfini girerseniz sanırım daha iyi anlayacaksınız.

 

[Korhan Ayhan]

Selamlar,

C3 hücresindeki formülü aşağıdaki şekilde değiştirip aşağıya doğru sürükleyin.

=EĞER(D3="";"";EĞERSAY(D$3:D3;1))

 

[Erdal]

Teşekkür ederim Korhan Bey