isteğe göre rakamları saydırmak - makro ile

[kayserciyes]

Arkadaşlar herkes rastgele saydıra örmek vermiş rast gele değil de istediğimiz bir sıraya göre saydırmak mümkün değil mi

ekde dosyam mevcut ilgilenen olursa sevinirim

herkese Günaydın )

 

[Korhan Ayhan]

Selamlar,

Peki butona ikinci kez tıkladığınızda örnek dosyanızda şu haliyle bir sonraki değer ne olmalı?

 

[kayserciyes]

27
20
19
18
30
29
28
her tıklamada sutunlardaki sayıları sırasıyla germesi gerekiyor. yukarıdaki sıraya göre.

teşekkürler üstadım

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. L sütunundaki verilerinizin benzersiz olması gerekiyor. Aksi halde doğru çalışmaz.

Option Explicit
 
Sub SAYI_SEÇ()
    If Range("C2") = Empty Then
    Range("C2") = Range("L3")
    Else
    Range("C2") = Range("L" & WorksheetFunction.Match(Range("C2"), Range("L:L"), 0) + 1)
    End If
End Sub

 

[kayserciyes]

Eyvallah üstadım
eline sağlık zaman ayırdığın için teşekkürler
karışık sayıları, belli sıraya göre saydırma makrosu diyelim
arayan olursa ne olduğunu bilsin

 

[mustafaine1]

Korhan bey guzel olmus tesekkurler..