bir karakteri değiştirme makrosu

[spacebar]

değerli üstadlarım. B sutununda hücre içerisinde "Tl" Olan kelimeleri "TL" ile değiştirmek istiyorum. (örnek B12 hücresinde: su faturası 2541,25 Tl )
aynı zamanda rakamları da 1000 lik ayraç ve 2 haneli virgül olursa daha iyi olur. ama şart değil asıl sorunum Tl yi TL yapmak.
yardımlarınız için şimdiden teşekkürler...

 

[Mdemir63]

Selamlar

CTRL + H ile yapabilirsiniz


İllaki makro ile istiyorsanız

Sub Degistir()
    Columns("A:A").Select
    Selection.Replace What:="TI", Replacement:="TL", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[spacebar]

üstad teşekkür ederim. ama hiç bir değişiklik olmadı. kod çalışmadı. iyi geceler dilerim.

 

[Mdemir63]

Selamlar

Kodlarda A sütunu baz alınmıştır.
örnek Dosyanızı yükleyin

 

[1mak1mak]

üstad teşekkür ederim. ama hiç bir değişiklik olmadı. kod çalışmadı. iyi geceler dilerim.

Koddaki
Columns("A:A").Select yazan yeri

Columns("B:B").Select şeklinde denedinizmi.

 

[netzone]

Merhaba @spacebar,

Sorunuzda hücre içerisinde olduğunu belirtmişsiniz, biçimlendirme ile mi geliyor yoksa metinsel bir ifade olarak mı TL yer alıyor? Formül yada Makro ile metinsel ifade eklenerek geliyor ise bu kodu yada formülü kontrol ediniz.

... B sutununda hücre içerisinde "Tl" Olan kelimeleri "TL" ile değiştirmek istiyorum. (örnek B12 hücresinde: su faturası 2541,25 Tl )
...

Hücre içine girdiğinizde TL yi görüyorsanız:
CTRL+H tuşlarına basıp, aranan kutusuna Tl ((!)Tl nin başında 1 karakterlik boşluk var) yazıp, yeni değer kısmını boş bırakarak Tümünü değiştir butonuna basınız. Akabinde A sütunun seçip CTRL+1 tuşlarına basıp biçimlendirme penceresinden > İsteğe uyarlanmış'ı seçin ve Tür kutusuna #.##0,00 TL yazın.

Hücre içine girdiğinizde TL görünmüyor ise; A sütunu seçiliyken Biçimlendirme penceresini açıp Formatı kontrol ediniz.

Ayrıca, Bahsettiğiniz para birimi olarak değil metin olarak hücre içindeyse; @Mdemir63'ün paylaşmış olduğu kodda (Kırmızı boyadığım yerde) küçük L yerine I harfi kullanılmış bunu ve kullanmak istediğiniz sütun aralığını (mavi boyadığım yerde) B:B olarak değiştirip gözlemleyiniz.

İyi çalışmalar.

... makro ile istiyorsanız

Sub Degistir()
    Columns("A:A").Select
    Selection.Replace What:="TI", Replacement:="TL", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

[spacebar]

Koddaki
Columns("A:A").Select yazan yeri

Columns("B:B").Select şeklinde denedinizmi.

merhabalar. öncelikle dün cevap veremediğim için özür dilerim. evet denedim. çalışmadı. ilginize teşekkür ederim.

 

[spacebar]

Merhaba @spacebar,

Sorunuzda hücre içerisinde olduğunu belirtmişsiniz, biçimlendirme ile mi geliyor yoksa metinsel bir ifade olarak mı TL yer alıyor? Formül yada Makro ile metinsel ifade eklenerek geliyor ise bu kodu yada formülü kontrol ediniz.



Hücre içine girdiğinizde TL yi görüyorsanız:
CTRL+H tuşlarına basıp, aranan kutusuna Tl ((!)Tl nin başında 1 karakterlik boşluk var) yazıp, yeni değer kısmını boş bırakarak Tümünü değiştir butonuna basınız. Akabinde A sütunun seçip CTRL+1 tuşlarına basıp biçimlendirme penceresinden > İsteğe uyarlanmış'ı seçin ve Tür kutusuna #.##0,00 TL yazın.

Hücre içine girdiğinizde TL görünmüyor ise; A sütunu seçiliyken Biçimlendirme penceresini açıp Formatı kontrol ediniz.

Ayrıca, Bahsettiğiniz para birimi olarak değil metin olarak hücre içindeyse; @Mdemir63'ün paylaşmış olduğu kodda (Kırmızı boyadığım yerde) küçük L yerine I harfi kullanılmış bunu ve kullanmak istediğiniz sütun aralığını (mavi boyadığım yerde) B:B olarak değiştirip gözlemleyiniz.

İyi çalışmalar.

merhabalar. öncelikle dün cevap veremediğim herkesten özür dilerim. ctrl+h yerine makrolu çözüme ulaşmam gerekiyor. B:B olarak denedim ama çalışmadı. ama sonradan makronun çalışmama nedenini buldum. benim "Tl" olarak ifade ettiğim ikinci karakter (yani le); makro kodlarda büyük "I" olarak yazılmış. ikisinin de görüntüsü aynı olduğu için farkedilmiyor. bunu düzeltince sorun çözüldü. yani makro işini yapıyor. Aslında sorun şudur ; sayfadan çıkınca tüm sutuna yazım düzeni uygulayan bir makro var. bu da TL leri bozuyor ben ikinci makroyla bunu düzeltmeye çalışıyorum. bu kodlarda da değişiklik yapılarak da sorun çözülebilir. kodlarım şudur:

Private Sub worksheet_Deactivate()
    Dim Alan As Range, Veri As Range
    Set Alan = Range("B2:B10000")
    For Each Veri In Alan
        If Veri.Value <> "" Then
            Veri.Value = WorksheetFunction.Proper(Veri.Value)
        End If
    Next
    Set Alan = Nothing
    End Sub

@Mdemir63 üstadın kodları sorunu çözüyor ama öğrenme adına yazım düzeni kodlarında nasıl değişiklik yapılabilir. teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

İlk kod sadece mesajınızda bahsettiğiniz durumu çözer. Binlik ayıraç ve küsürat durumunu değiştirmez.

Binlik ayıraç ve küsürat gösterimi için; eğer bu verileri B sütununda siz birleştiriyorsanız birleştirme anında bu dönüşüm yapılabilir. Yok eğer bu hazır bir veri ise ve rakamlar hep sonda ise bu durumda ikinci kod işinize yarayacaktır. Bunun haricinde metnin içindeki rakamları yakalayan forumda REGEXP çözümler var inceleyip kendiniz uyarlayabilirsiniz.

Option Explicit

Private Sub worksheet_Deactivate()
    Dim Alan As Range, Veri As Range
    Set Alan = Range("B2:B10000")
    For Each Veri In Alan
        If Veri.Value <> "" Then
            Veri.Value = Replace(WorksheetFunction.Proper(Veri.Value), " Tl", " TL")
        End If
    Next
    Set Alan = Nothing
End Sub

Option Explicit

Private Sub worksheet_Deactivate()
    Dim Alan As Range, Veri As Range
    Dim Kelime As Variant, Metin As String
    Dim Rakam As Variant, X As Byte
    
    Set Alan = Range("B2:B10000")
    
    For Each Veri In Alan
        If Veri.Value <> "" Then
            If InStr(1, Veri.Value, " ") > 0 Then
                Kelime = Split(Veri.Value, " ")
                Rakam = Format(Kelime(UBound(Kelime) - 1), "#,##0.00")
                For X = LBound(Kelime) To UBound(Kelime)
                    If X = UBound(Kelime) - 1 Then
                        Metin = Metin & " " & Rakam
                    Else
                        Metin = Metin & " " & WorksheetFunction.Proper(Kelime(X))
                    End If
                Next
            End If
            Veri.Value = Replace(Metin, " Tl", " TL")
            Metin = ""
        End If
    Next
    
    Set Alan = Nothing
End Sub

 

[spacebar]

@Korhan Ayhan üstad ellerinize sağlık. teşekkür ederim. iyi hafta sonu dilerim.