Sıra numarası iki şer artarak

[unsal_]

Arkadaşlar sıra numarası vermek istiyorum normal sıra no verilişini buldum ama benim istediğim 1 - 3 - 5 - 7 - 9 şeklinde gitmesidir.
teşekkür ederim.

 

[Murat OSMA]

Normal sıra numarasını nasıl veriyorsunuz ?

 

[unsal_]

http://www.excel.web.tr/f14/otomatik-syralandyrmayy-istedioimiz-satyrdan-a-latma-t134847.html

linkindeki örneklerle verebiliyorum

 

[bzace]

Merhaba,
Bir modül içine Yazarak ! deneyiniz.Aralıkları kendinize göre ayarlamayı unutmayınız.

Sub artarak_sırala()
satir = 1
For s = 1 To 100
If ((s Mod 2) <> 0) Then
ActiveSheet.Cells(satir, 1) = s
satir = satir + 1
DoEvents
End If
Next s
End Sub

 

[Murat OSMA]

Deneyin;

Sub Atlaya_Atlaya_Sırala()
    For i = 1 To 100 Step 2
        Cells(i, 1) = i
    Next i
End Sub

 

[Necdet]

Herhalde böyle bir şeydir, tam anlaşılmıyor sorudan ya :

Sub Sira_No_2_Aralikli()
    
    Dim i   As Long, _
        j   As Long
    
    j = 1
    For i = 1 To 100 Step 1
        Cells(i, 1) = j
        j = j + 2
    Next i
    
End Sub

 

[unsal_]

teşekkürler arkadaşlar.Murat osma sizinki istediğim gibi degıl diger arkadaşların örnekleri benim istediğim gibi