Sıralama sorunu

[alicanxy58]

Ekteki dosyamda, sıralama ile ilgili bir sorunum var yardımcı olursanız memmun olurum. şimdiden ilginize teşekkür ederim.

 

[S.Yiğit]

Merhaba,

A3 hücresine aşağıdaki formülü yazıp aşağı doğru çoğaltınız..

=EĞER(C2=C3;A2+1;1)

Not: a2 hücresinde 1 yazılı olacak.

 

[fedeal]

altarnatif olarak makrolu çözüm isterseniz sayfanın kod bölümüne ekleyin,


Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 3 <> Empty Then
Range("a:a").ClearContents
f = Range("c65536").End(xlUp).Row
For i = 2 To f
Range("a" & i).Value = i
Next
End If
End Sub

 

[mesudiye_052]

Selam;

D1 Hücresine aşağıdaki formülü yaznının ve aşağıya doğru
sürükleyiniz

=EĞERSAY($C$2:C2;C2)

 

[alicanxy58]

Teşekkür

İlgilenen bütün arkadaşlara çok teşekkür ederim, benim için sıkıntı olan bu sorunumda sayenizde çözüldü.