BaŞtakİ Noktanin Gelmemesİ

[casua]

Merhaba.ekte GondermİŞ Oldugum Dosya Bİr Paker Programindan Gelİyor.sari İŞaretlİ Olan Yerde Rakamin BaŞina "."İŞaretİ Koyuyor.bunu Kaldirmamin Yolu Varmidir.her Seferinde Yapmamin İmkani Yok.teŞekkÜrler.

 

[Ali]

Aşağıdaki kodları denermisiniz.

Sub düzelt()
    Range("C7:C158").Select
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.NumberFormat = "0#"
End Sub

 

[Leoncio]

Merhaba;
Bunun için en kısa yol C sütununu seçin düzen>değiştir aranan kısmına (. nokta) Yeni değer kısmını boş bırakıp tümünü değiştir derseniz noktalar kalkacaktır.

Not: Bu durumda tek haneli sayısal değerler 1 olarak görünecektir eğer 01 olarak istiyorsanız bunun için biçim>hücreler>isteğe uyarlanmış>tür kutucuğunu 00 (çift sıfır yapmalısınız.)

 

[casua]

Tesekkur

yardımlarınız için çok teşekkür ederim.