Replacement

[haso_excel]

Merhaba arkadaslar,

Elimdeki dosyanın J kolonundaki sayıların binlik ve kuruş hanelerinin ayraçlarını değiştirmek istiyorum bunu yaptığımda bazı sayıları tarih yazıyor.
171,81 formatındaki bir sayıyı 171.81 yapmak istiyorum. (virgül yerine nokta )
Bu sayıların tarih olmamasını belki bir kod ile halledilebilnir mi acaba ?

 

[Erdal]

Merhabalar
Denetim masasından/ bölge ve dil seçeneklerinden ayarlayabilirsiniz

 

[haso_excel]

Sub DEGISTIR()
Dim hcr As Range
For Each hcr In Range("N1:N" & Cells(65536, "N").End(xlUp).Row)
hcr.Value = Replace(hcr.Value, ",", ".")
Next
End Sub

kodu çalıştırdığımda istediğim olmuyor nerde yanlışlık var acaba

 

[Orion1]

kodu çalıştırdığımda istediğim olmuyor nerde yanlışlık var acaba

Sn erdalın cevabını uyguladınızmı?

 

[haso_excel]

Hayır, ilgili alandaki verileri import yapacağım. İmprot edeceğim sistem ilgili alandaki verileri rakam olarak kabul etmiyor.

 

[Orion1]

Hayır, ilgili alandaki verileri import yapacağım. İmprot edeceğim sistem ilgili alandaki verileri rakam olarak kabul etmiyor.

O zaman sayı ve tarih biçimlendirmelerini sayın erdalın dediği şekilde yaparak deneyin.

 

[haso_excel]

Söylediğiniz şeyi yaptım fakat olmadı. =SUBSTITUTE(N1;",";".") ile çözdüm.
Bunu kod olarak yazıp bir kısa yol tuşu yapmak istiyorum. Yardımcı olur musunuz. N1 den başlayacak dolu hücrelerin hepsine yukarıdaki formul uygulanacak.

 

[Orion1]

Söylediğiniz şeyi yaptım fakat olmadı. =SUBSTITUTE(N1;",";".") ile çözdüm.
Bunu kod olarak yazıp bir kısa yol tuşu yapmak istiyorum. Yardımcı olur musunuz. N1 den başlayacak dolu hücrelerin hepsine yukarıdaki formul uygulanacak.

Öyle çözdüyseniz 3 numaralı mesajdaki kod ilede çözmeniz gerekir.

 

[haso_excel]

Bende sizin gibi düşündüm fakat olmayınca herhalde bir yanlışlık yapıyorum dedim, O yüzden sorma gereği duydum. O formıllede olmadı. Böyle çözdüm ilgilerinize çok teşekkür ederim