numaralandırma

[farukuz]

merhaba,

ekteki dosyadaki gibi. farklı bölümlerden oluşan kişileri sıralı biçimde numaralandırmam gerekiyor. boşluklara denk gelen kısımlar boş olacak ancak boşluk sonrası gelen kayıt için kalınan yerden numaralandırmaya devam etmeli.

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub NumaraVer()
For i = 1 To Range("B" & Rows.Count).End(3).Row
    If Left(Cells(i, 2).Value, 5) <> "bölüm" And Cells(i, 2).Value <> "" Then
        sıra = sıra + 1
        Cells(i, 1).Value = sıra
    End If
Next
End Sub

 

[farukuz]

bölüm başlığı değişken olabilir. bölüm1, bölüm2 şeklinde olmayabilir. sabit bir değer de yok...

 

[dEdE]

bölüm başlığı değişken olabilir. bölüm1, bölüm2 şeklinde olmayabilir. sabit bir değer de yok...

Merhaba,
İçinde değer olduğu halde numara verilmemesi gereken hücreler için bir kural olmalı. Aksi halde bunu excele nasıl anlatırız?

 

[farukuz]

evet... onu formulle kurmaya calışıyordum. dolu olanları sayacak şekilde oluşturdum ama bu seferde kaldığı yerden devam ettiremedim.