"1-0" yazdıramadım.(makro yardım)

[Muhammet Okumuş]

Arkadaşlar merhaba.
Tüm çabalarıma rağmen hücreye makro ile "1-0" yazdıramadım. Sayı "Genel" biçimi almıyor.

Sub BEYAZGALİP()
A = Range("D1000").End(3).Row + 1
Cells(A, 4).Font.Size = 11
Cells(A, 4) = "1-0"
Cells(A, 4).NumberFormat = "General"
Cells(A, 5) = Date
Cells(A, 6) = "G"
Cells(A, 7) = "M"
End Sub

Nerde hata var? Yardımlarınız bekliyorum.

 

[Korhan Ayhan]

Merhaba,

"1-0" ifadesini excel tarih olarak algılar. Doğal olarak iki türlü çözüm şansınız var.

1. Çözüm;

Verinin başına tek tırnak ekleyebilirsiniz.

Cells(A, 4) = "'1-0"

2. Çözüm;

Aşağıdaki şekilde hücreyi metin olarak biçimlendirebilirsiniz.

Cells(A, 4).NumberFormat = "@"
Cells(A, 4) = "1-0"

 

[Muhammet Okumuş]

Sn Korhan Hocam, ilk yöntemi biliyordum. Ama o şekil olmasını istemedim. İkinci yöntem işimi gördü. Çok teşekkür ederim.