Cells(i, 1) = i & "." Neden nokta işareti eklenmez?

[Muhammet Okumuş]

Arkadaşlar merhaba,
Aşağıdaki kod ile
1.
2.
...

şeklinde yazmak istiyorum ama . işaretini yazmıyor.
Hata nedir? Çözüm nasıl olmalıdır?
El ile yazınca sıkıntı yok.

Sub Nokta()
For i = 1 To 50
Cells(i, 1) = i & "."
Next
End Sub

 

[Haluk]

Sub Nokta2()
    For i = 1 To 50
        Cells(i, 1).NumberFormat = "@"
        Cells(i, 1) = i & "."
    Next
End Sub

.

 

[Emir Hüseyin Çoban]

"'" & i & "." İlede olabilir. (Çift tırnak tek tırnak çift tırnak)

 

[Muhammet Okumuş]

Haluk, cevabınız için teşekkür ederim.
Öğrenmek adına soruyorum. Kod neden nokta işaretini yazmıyor? 2 nokta (..) olunca sorun olmuyor.

 

[Necdet]

Merhaba,

Ben olsam hiç uğraşmadan biçimlendirme ile yapardım.
Hücreyi Özel Hücre Biçimlendirmede Tür kısmana aşağıdaki değeri yazarım.

0"."

Hücrede normal 1, 2 , 3 vs gibi rakam yazdığınızda görüntü olarak sonunda nokta görünür. İşlem bu kadar basit.

Kod ile hücre sonuna sadece nokta koymak istendiğinde malum nokta binlik ayırma için kullanıldığından fazladan noktayı kabul etmez.
Haluk bey'in önerisinde hücreyi metin olarak biçimlendirdiği için çalışıyor.

 

[Muhammet Okumuş]

Teşekkür ederim Sn. Necdet Bey.