Filtreleme sonrası sıra numarası verme

[Z3U519]

Arkadaşlar diyelim ki a sütununda 1'den 100'e kadar karışık bir şekilde numaralar var. Ben A sütununa filtreleme yapıp sadece çift sayıları elle seçiyorum. Sonra bu sayıları küçükten büyüğe doğru sıralıyorum. Sıralama sonrasında karşısındaki hücreye de 1'den başlayarak numara vermek istiyorum. İlk sayının karşısına 1 ikinci sayının karşısına 2 yazıyorum ve ilk 2 hücreyi seçip aşağı doğru sürükleyince filtreli veri olduğundan dolayı hepsine 1 yazıyor. Hepsine 1,2,3,4... diye numara nasıl verebilirim?

 

[Muzaffer Ali]

Merhaba.

Sayfa adını sağ tıklatın, "Kod Görüntüle" seçin açılan sayfaya aşağıdaki kodları kopyalayın.

Sub SiraNoVer()
    Dim bak As Range
    Dim Sira As Long
    For Each bak In Range("A2:A" & Cells(Rows.Count, "B").End(3).Row).SpecialCells(xlCellTypeVisible)
        Sira = 1 + Sira
        Cells(bak.Row, ActiveCell.Column) = Sira
    Next
End Sub

Excel sayfanızı açın.
"Geliştirici" sekmesinde "Kod" bölümünde bulunan "Makrolar" ı tıklatın açılan pencerede "SiraNoVer" makro adını seçin.
Seçenekleri tıklatın.
Kısayol tuşu yerine br kısayol tuşu belirleyin.
örneğin "s" harfini belirlemek için CTRL+s yazın. Tamam ve İptal i tıklatın.

şimdi excel sayfanızda filtreleme yapın.
sıra no yazılmasını istediğiniz sutun seçili iken "CTRL+s" tuşlarına basın.
Kodlar otomatik olarak sıra no su verecektir.

 

[Z3U519]

Teşekkür ederim kodu deneyeceyim. Kod dışında otomatik doldurma vb seçeneklerle kodsuz bir şekilde yapabilir miyim acaba?

 

[Necdet]

Teşekkür ederim kodu deneyeceyim. Kod dışında otomatik doldurma vb seçeneklerle kodsuz bir şekilde yapabilir miyim acaba?

Küçük örnek bir dosya eklerseniz paylaşım sitelerinden birine, konu daha iyi anlaşılmış olur. Yardımcı olacak arkadaşlarda çıkacaktır.

 

[Z3U519]

Küçük örnek bir dosya eklerseniz paylaşım sitelerinden birine, konu daha iyi anlaşılmış olur. Yardımcı olacak arkadaşlarda çıkacaktır.

Merhaba. Örnek dosya yükledim. İstediğim şey a sütunundaki filtrelenmiş sayıların karşısına yani b sütununa 1 ve 2 yazdım. Bu iki hücreyi seçip aşağıya doğru sürükleyince 3 4 5 6 diye sıra numarası vermesini istiyorum. Sürükleyince hepsine 1 yazıyor aradaki filtrelenmiş satırlardan dolayı.

Örnek dosya; https://www.dosyaupload.com/6sem

 

[Necdet]

Merhaba,

B2

=ALTTOPLAM(103;$A$2:A2)

Sonra Alt satırlara bu formülü koplayayınız

 

[Z3U519]

Dediğiniz gibi yapınca filtrelemeyi kaldırınca numaraları değişiyor.

 

[Necdet]

Dediğiniz gibi yapınca filtrelemeyi kaldırınca numaraları değişiyor.

önce filtreyi kaldırın sonra formülü uygulayın. Daha sonra deneyin.

 

[pchesabi]

Merhaba,

B2

=ALTTOPLAM(103;$A$2:A2)

Sonra Alt satırlara bu formülü koplayayınız

Filtreyi kaldırıp bu formülü kopyaladıktan sonra tekrar fitreleyince oluyor. Benim işime yaradı. Teşekkürler.