[ÇÖZÜLDÜ] Süzme İşleminde numaratör

[acebeci]

Çok değerli form üyesi arkadaşlar.Excel çalışma kitabımda ÇEK LİSTESİ isminde bir sayfam var A3 satırından itibaren işlemiş olduğum çeklere numara veriyorum 1, 2 ,3 gibi ama süzme işlemi yaptığım zaman bu numaralar doğal olarak karışıyor benim isteğim süzme işlemi yaptığımda sıralamayı otamatik olarak düzenleyebilir miyiz.şimdiden hepinize çok teşekkürler

 

[ersoyalan]

Merhaba,

İstediğiniz böyle birşeymi.

E.ALAN

 

[acebeci]

Sayın ersoyalan öncelikle ilginizden dolayı çok teşekkür ederim.Yalnız benim sorunum şu: A3 satırından itibaren numarayı elde ben versem de olur Ama sizin gönderdiğiniz örnek çok daha güzel olmuş sorun şura da verileri girdikden sonra diyelim ki 50 adet veri girdik ve bunlarda vadesi gelenleri süzdürdük süzme işleminden sonra A sutunundaki numaralar diyelim ki biz çeke 46 numarayı vermişsek süzme işleminden sonra bu kacıncı sırada ise yani 3 sırada ise 3 diye numaralandırılabilir mi(tabi süzme işlemini kaldırınca yine eski halini alırsa yani 46 numara mükemmel olur).Çok karışık anlatım galiba ama umarım siz anlayabilmiş sinizdir.

 

[Halit TÜRK]

Selam...

B sütununa göre istiyorsanız aşağıdaki kod işinizi görebilir..

A3 hücresine kopyalayın ve aşağıya doğru çoğaltınız...

=EĞER(B3="";"";ALTTOPLAM(3;$B$3:B3))

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
On Error Resume Next
    For i = 2 To [B65536].End(3).Row
    If ComboBox1 = "" Then
    Cells(i, "A") = i - 1
    End If
    Next i

If ComboBox1 = "" Then
Selection.AutoFilter FIELD:=2
Exit Sub: End If
Selection.AutoFilter FIELD:=2, Criteria1:=ComboBox1
For i = 2 To [B65536].End(3).Row
If Cells(i, "b") = ComboBox1 Then
    Cells(i, "b").Offset(0, -1) = 1 + s
    s = s + 1
    End If
Next i
End Sub
Private Sub Worksheet_Activate()
ComboBox1.ListFillRange = "b2:b" & Cells(65536, "b").End(xlUp).Row
End Sub

 

[acebeci]

Değerli arkadaşlarım hepinize gerçekden çok teşekkür ederim.Problemi halleddiniz gerçekden çok ama çok teşekkür ederim