Virgül Formatı Nokta Olarak Değiştirmek

[htsumer]

Aşağıdaki kod ile değerleri aktarıyorum burda aktarılan sayılar örneğin 10,23 gibi arasında virgül olarak aktarıyor. Bunları Virgül olarak değilde 10.23 olarak aktarmak için kodda ne gibi düzenleme yapmam lazım.
Teşekkürler.

Sub OncesiTextOlustur()


Sheets("5434_TXT").Range("A5:U104").Select
Selection.Copy


Sheets("TextOluştur").Select
Sheets("TextOluştur").Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

OncesiTextDosyasiOlustur

Sheets("TextOluştur").Range("A1:Z110").Clear

Sheets("5434_TXT").Select

End Sub

 

[veyselemre]

Bölgesel ayarlardan ondalık simgesi olarak . binlik ayracı olarak , seçip deneyin.

 

[htsumer]

Hocam genel bir program olduğu için aplikasyon yada kod lazım. Ctlr h ile virgül noktaya değiştirme oluyor ama veri aktarırken virgül u noktaya çevirmek lazım

 

[Ömer BARAN]

Merhaba.

Aklıma gelen CTRL+H işlemini koda dahil etmek için aşağıdaki kod satırlarını, mevcut koddaki
OncesiTextDosyasiOlustur satırından önce eklemek geliyor. Deneyiniz.

[FONT="Arial Narrow"]    Cells.NumberFormat = "@"
    Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False[/FONT]

 

[htsumer]

Teşekkürler yarın sonucu bildiririm.

 

[htsumer]

Maalesef bu olmadı.

 

[Ömer BARAN]

Örnek belge olmadan verdiğimiz cevabı deneme şansımız da yok malesef.

 

[htsumer]

Örnek belge olmadan verdiğimiz cevabı deneme şansımız da yok malesef.

Hocam dosya ekte.

Kısaca şöyşe Txt dosyası oluşturduğunda sayıların arasındaki virgül formatı Nokta olacak. Sadece sayısal değerlerin. Örnekte 84,48 rakamını txt oluşturduğunda 84.48 yapacak.
Yada Txtoluştur sayfasına aktardığında (,) formatını (.) olacak.

Sayfa geçişte sayfa koruması yapıyor koruma şifresi yok sadece kaldır demeniz yeterlidir.

 

[veyselemre]

    For i = 1 To Selection.Rows.Count

        DosyaSatiri = ""

        For j = 1 To Selection.Columns.Count
            ver = Selection(i, j)
            If IsNumeric(ver) Then ver = Replace(ver, ",", ".")
            DosyaSatiri = DosyaSatiri & ";" & ver
        Next j
            DosyaSatiri = Mid(DosyaSatiri, 2)
        Print #1, DosyaSatiri

    Next i

 

[htsumer]

Veysel bey tam istediğim gibi oldu eline sağlık çok teşekkür ederim.