Alt alta sıralanmış tablolara numara verme.

[leumruk]

Değerli arkadaşlarım, alt alta oluşturduğum tablolarıma otomatik numara vermek istiyorum. Ek dosyada belirttim. İlgilenirseniz sevinirim...

 

[Necdet]

Merhaba,

Aşağıdaki kodları butona bağlayıp dener misiniz?

Sub Numara()
Dim i, Numara As Double
For i = 2 To [A65536].End(3).Row - 6 Step 8
    Numara = Numara + 1
    Cells(i, "A") = Numara
Next i
End Sub

 

[leumruk]

Teşekkür ederim. Numaralar bir bir yerini buldu.