Word makro ile noktaları virgül, virgülleri nokta haline getirmek

[levo26]

Merhaba arkadaşlar;

Rutin olarak yaptığım rapor dosyasında excelde oluşturduğum tabloları worde yapıştırıyorum. Tablolarda örneğin 1.250,44 şekilnde olan veriyi wordde 1,250.44 şeklinde raporlamam isteniyor.

Sorunu şöyle aşmaya çalışıyorum. Excelde işlerimi bitirdikten sonra bölgesel ayarlardan (.) ve (,) şeklinde değişiklik yaparak worde yapıştırıp sorunu çözmeye çalışıyorum. Wordde bir makro olsa, tabloları seçerek makroyu çalıştırsam, çok şey mi istemiş olurum?

 

[necati]

Merhaba,

Şu kodu deneyebilirsin. Noktaları virgüle, virgülleri noktaya çevirir. Her çalıştırmanda bir öncekinin tersini yapar.

Sub NoktaVirgulDegistir()

Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Application.DisplayAlerts = False
Do
With Selection.Find
.Text = "([,.])([0-9])"
.Replacement.Text = ""
.MatchWildcards = True
End With
With Selection
.Find.Execute
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
If .Text = "." Then
.TypeText Text:=","
.MoveRight Unit:=wdCharacter, Count:=1
Else
If .Text = "," Then
.TypeText Text:="."
.MoveRight Unit:=wdCharacter, Count:=1
End If
End If
End With
Loop While Selection.Find.Found = True
Application.DisplayAlerts = True
End Sub

 

[levo26]

Merhaba,

Verdiğiniz kodları alt+F11 ile ekle>modül diyerek paste yaptım. Ekte bulunan tabloyu seçiyorum araçlar>makro dediğimde makro pasif durumda çıkıyor. Anlayamadım?

 

[necati]

Birde şöyle dene. Önce kendin basitçe herhangi bir makro kaydet. Sonra kaydettiğin makronun başı ve sonu hariç (sub ile endsub arası) içini sil ve benim kodları başı ve sonu hariç (sub ile endsub arası) sildiğin yere yapıştır. Belki işe yarar.

 

[mancubus]

http://www.excel.web.tr/f51/noktalary-virgule-cevirmek-t95803.html

 

[levo26]

http://www.excel.web.tr/f51/noktalary-virgule-cevirmek-t95803.html

Sn. mancubus;

Nazik uyarınız için teşekkürler. Fakat verilen cevaplardan "tatmin" olmadığımdan yeni konu açma gereği duymuştum. Sağolun.

 

[mancubus]

Sn. mancubus;

Nazik uyarınız için teşekkürler. Fakat verilen cevaplardan "tatmin" olmadığımdan yeni konu açma gereği duymuştum. Sağolun.

aynı konu üzerinden devam etmek daha uygun olurdu.

 

[levo26]

aynı konu üzerinden devam etmek daha uygun olurdu.

Teşekkür ederim. Arkadaşlardan hâla alternatif öneriler bekliyorum.