Çözüldü Numaralandırma

[emre67z]

Merhaba Arkadaşlar,

Birleştirilmiş hücrelere numaralandırma yapamıyorum maalesef. İsmin karşısında ki aynı boyutta bulunan hücreye sırası ile numara yazabilir miyiz. Teşekkürler şimdiden.

 

[YUSUF44]

Aşağıdaki kodları deneyiniz:

Sub numara()
a = 0
For i = 2 To Cells(Rows.Count, "E").End(3).Row
    If Cells(i, "E") <> "" Then
        Cells(i, "A") = a + 1
        a = a + 1
    End If
Next
End Sub

 

[emre67z]

Aşağıdaki kodları deneyiniz:

Sub numara()
a = 0
For i = 2 To Cells(Rows.Count, "E").End(3).Row
    If Cells(i, "E") <> "" Then
        Cells(i, "A") = a + 1
        a = a + 1
    End If
Next
End Sub

Teşekkür ederim çok işime yaradı.