Arka arkaya saydırma

[coşkun79]

ekte hazırladığım örnek dosyada arka arkaya alım yapan birinin alım adetleri c sütununda yer almaktadır. ancak formülün özelliği gereği en fazla a1 sütununa kadar geri gidebiliyorum. dolayısı ile sarı ile boyalı hücrelerin 6 ve 7 olması gerekirken 5 olarak hesaplanıyor. arka arkaya alım adedi ne çıkarsa çıksın doğru şekilde hesaplatmak için nasıl bir formül kullanabilirim. sayfa aktif olduğunda çalışacak bir makro da olur.

 

[YUSUF44]

Arka arkayadan kastınız sürekli birbirini takip eden veriler midir? Yani örnekte A8'de ÖMER değil de ALİ yazsaydı A9'da 4'mü yazacaktı yoksa boş kalıp, A10'da 2 mi yazacaktı?

 

[coşkun79]

evet arka arkaya takip eden.yani arada başka bir isim yazdığında sıralama tekrardan başlamalı.yeni bir dosya göndereyim

 

[coşkun79]

yeni dosyayı ekledim.

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırdığınızda sayfa açıldığında istediğinizi yapar:

Private Sub Worksheet_Activate()
For i = 5 To Cells(Rows.Count, "A").End(3).Row
    If Cells(i, "A") = Cells(i - 1, "A") Then
        If Cells(i - 1, "B") = "" Then
            Cells(i, "B") = 2
        Else
            Cells(i, "B") = Cells(i - 1, "B") + 1
        End If
    End If
Next
End Sub

 

[coşkun79]

elinize sağlık Yusuf Bey