nokta ve virgül değiştirme

[QuickBlue]

kullandığım muhasebe programında excel den rapor aldığımda kuruş hanesini nokta ile ayırıyor binler hanesini ise virgül ile örneğin: 1,115.13 gibi

ben ilk olarak düzen değiştirden bütün virgülleri yok ediyorum sonra bütün noktaları virgül yapıyorum en sonunda da sayıya cevir diyorum bunu makro ile yapabileceğim bi eklenti koyabilirmiyiz ??

 

[alpi]

Makro yerine Excelden bu özelliği değiştirebilirsiniz.
Araçlar/Seçenekler'i açın Uluslararası tabını seçin Sistem ayırıcalarını kullan seçeneğini kaldırın, Ondalık ve binlik ayracını dilediğinniz gibi değiştirin tamam ı tıklatın.

 

[QuickBlue]

yardımlarınız için teşekkürler

yinede bildiğimiz gibi doğrusu kuruş hanesinin virgül ile ayrılması lazım
makro ile yapabilirsek çok sevinirim

 

[alpi]

Yukarıda bahsettiğim işlemin makro ile gerçekleştirilmesi

Sub AyraçDüzenle()
With Application
.DecimalSeparator = "." 'Ondalık ayracı
.ThousandsSeparator = "," 'Binlik ayracı
.UseSystemSeparators = False
End With
End Sub

 

[h2001]

teşekkürler sn QuickBlue ve sn alpi, bu benim için de bir sorundu..
Sn alpi verdiğiniz kodu nereye yazmamız gerekir?

 

[alpi]

Bu kodu bir modul içine yazmanız gerekiyor

 

[QuickBlue]

Üzgünüm makro çalışmıyor

 

[Mahmut Kök]

Sn. OBlue, Düzen değiştirden yaptığınız işlemlerin tamamını

makro kaydet

ile yapmayı deneyin..

 

[QuickBlue]

Zaten Makro Kaydetten Yapiyorum

 

[QuickBlue]

Sn. OBlue, Düzen değiştirden yaptığınız işlemlerin tamamını

makro kaydet

ile yapmayı deneyin..

SİZ MAKROYU DENEDİNİZMİ MALESEF İSTEDİĞİM SONUCU VERMİYOR

 

[alpi]

Özür dilerim hata bende birde şöyle deneyin

Sub AyraçDüzenle()
With Application
.UseSystemSeparators = False
.DecimalSeparator = "," 'Ondalık ayracı
.ThousandsSeparator = "." 'Binlik ayracı
End With
End Sub

 

[QuickBlue]

malesef çalışmıyor

artık uyumaya gidiyorum

 

[alpi]

Sayın Qıick kodu bir module yazın ve F5 tuşuna basarak çalıştırın.

Ben denedim çalışıyor istediğiniz şey gerçekleşiyor.

 

[QuickBlue]

bak kaydettim ama istediğim sonucu vermiyor siz yanlış anladınız heralde

 

[alpi]

Çalışır şekilde ektedir.

 

[QuickBlue]

teşekkürler çalışıyor ama bişey dah rica edicem ben bu makroyu çalıştırmak için hep bu işlemleri yapmam çok uzun sürer istediğim kısa bi yöntem örnek olarak bi resim gönderiyorum

 

[alpi]

Verdiğim kodu çalıştırdığınızda bütün Excel dosyalarının özelliğini değiştirmiş olursunuz.
Siz eğer bazen farklı olarak görmek istiyorsanız Araçlar/Seçenekler den bu işi yapsanız bence en kolayı ve mantıklısı olur.