Sayıya çevir smart tagının VBA kodları nedir.

[tamercan]

Selamlar benim bir dosyam var dosyanın B kolonunda sayılar var ancak bu kolonun formatı metin bunu sayı formatına çevirmek için akıllı etiket(Smart tag) menüsünden sağ tuşla sayıya çevir veya convert number denildiğinde B kolonundaki biçim sayı oluyor. Benim istediğim ise bu işlemin VBA kodlarını öğrenmek Otomatik makro kaydı ile denedim ancak kodlar oluşmadı. Yardım eden herkese şimdiden teşekkür ederim. Dosyam ektedir.

 

[Kemal Demir]

Sub Macro3()
    For x = 1 To [a65536].End(3).Row
        Range("b" & x).Select
            Selection.NumberFormat = "General"
        Range("b" & x) = WorksheetFunction.Clean(Range("b" & x))
    Next
End Sub

Yukarıdaki kod başlangıc olarak işinizi görebilir.

 

[tamercan]

Kodu denedim çalıştı çok teşekkür ederim.

 

[tamercan]

Dosyada içinde bulunulan sayfayı (shett'i) Convert number yapmak istersek VBA kodu nasıl olmalı. Yardım edeceklere şimdiden teşekkürler.

 

[tamercan]

Daha önce açtığım bu konuda ileve bir gelişim talebim oldu. Cevap verebilirseniz sevinirim.

 

[Korhan Ayhan]

Selamlar,

Sorunuz çok açık değil ama anladığım kadarıyla yanıtlamak istedim. Sayfadaki tüm hücrelerde bu işlemi yapmak istediğinizi anladım. Aşağıdaki kodu denermisiniz.

Sub SAYIYA_ÇEVİR()
    Dim Hücre As Range
    For Each Hücre In Cells.SpecialCells(xlCellTypeConstants, 23)
    If IsNumeric(Hücre.Value) = True Then
    Hücre.Value = Hücre.Value * 1
    Hücre.NumberFormat = "General"
    End If
    Next
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[tamercan]

Korhan bey, istediğim sizin de belirtiğiniz gibi sayfadaki tüm hücreler için convert number yapılmasıydı. Kodlarınızı denedim çalıştı. Çok teşekkür ederim.