Filtre varken sütunda numaraları sürüklemek

[excel.soru]

Sütunlarımın hepsinde filtre varken ve en az birine filtre atmışken en sağda bulunan sütunuma alt alta 1 2 yazdığımda ve sürüklediğimde rakamlarım aşağıya doğru artarak sürüklenmiyor. Hepsi 1 oluyor , nasıl düzeltebilirim

 

[Ali]

Verileriniz B2 den başlaıp aşağı doğru gittiği varsayarsak A2 hücresine

=ALTTOPLAM(3;$B$2:$B3)

yazıp aşağı doğru çekiniz.

 

[excel.soru]

Verileriniz B2 den başlaıp aşağı doğru gittiği varsayarsak A2 hücresine

=ALTTOPLAM(3;$B$2:$B3)

yazıp aşağı doğru çekiniz.

tam anlamadım ama ; sadece sütunlarımda filtre varken en sağdaki sütunumda alt alta rakamları artırarak sürüklemek istiyorum, çok satırım olduğu için tek tek yazmak istemiyorum, filtre olmadığında bu işlem kolay 1 2 yazıp ikisini birden sürüklediğimde 3 4 şeklinde devam ediyor

 

[Korhan Ayhan]

Önerilen formül sizin elle yaptığınız işlemi otomatik yapacaktır.

Filtre açıkken formülü verilerinizin başladığı ilk hücreye uygulayıp aşağıya doğru sürüklemeniz yeterli olacaktır.

Burada verilerinizin A2 hücresinden başladığı varsayılmıştır.

 

[excel.soru]

Önerilen formül sizin elle yaptığınız işlemi otomatik yapacaktır.

Filtre açıkken formülü verilerinizin başladığı ilk hücreye uygulayıp aşağıya doğru sürüklemeniz yeterli olacaktır.

Burada verilerinizin A2 hücresinden başladığı varsayılmıştır.

anlıyorum deniyorum dediğiniz gibi de oluyor ama filtrem olduğu için arada gizli satırlar var , yani ben sadece görmek istediğim satırlarda bu sayıların artarak devam etmesini istiyorum, denedim dediğiniz gibi de oldu fakat filtreyi çözünce istediğim 1 . satır da 1 yazarken , öteki istediğim satıra 2 yazacağına 10'a atlamış ve 10 yazmış

 

[Korhan Ayhan]

Sabit sıra numarası vermek istiyorsanız işlemi makro ile yapmanız gerekir.

Aşağıdaki kod A2 hücresinden aşağıya doğru filtrelenmiş satırlara sıra numarası verir.

Option Explicit

Sub Generate_Sequence_Number_In_Filtered_Field()
    Dim Rng As Range, No As Long, Last_Row As Long
    
    Last_Row = Cells(Rows.Count, 2).End(3).Row
    
    For Each Rng In Range("A2:A" & Last_Row).SpecialCells(xlCellTypeVisible)
        No = No + 1
        Rng = No
    Next
End Sub