virgülü - Nokta ile değiştirmek

[k0081]

Merhaba arkadaşlar;

Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Intersect(Target, Range("D3:D24")) Is Nothing Then Exit Sub
 
    With Application
        If Target <> "" Then
            .EnableEvents = False
            Target = UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
            If Target.Address = "$D$3" Then Target = _
                                Replace(Target, ",", ".")
            .EnableEvents = True
        End If
    End With

End Sub

verdiğim bu kodda VİRGÜLÜ - nokta ile değiştiremedim..

d3 girdiğim örnek veri : chs88,3*4 gibidir.. istediğim : CHS88.3*4 olmasıdır.. tek satırda oluyor fakat diğer satırlarda çalışmıyor..

 

[accountant80]

Merhaba, değiştir komutu ile yapılamıyor mu?
Ctrl+H ye aranan "," yeni değer "." yapıp dener misiniz? (tırnak işaretleri olmayacak)

 

[k0081]

Merhaba, değiştir komutu ile yapılamıyor mu?
Ctrl+H ye aranan "," yeni değer "." yapıp dener misiniz? (tırnak işaretleri olmayacak)

cevap için teşekkürler.. ama bunu macro ile yapmam gerekiyor..

 

[accountant80]

Belki yukarıdaki makro ile yapmak istiyorsunuzdur tam bilemiyorum ama alternatif olsun diye bir kod ekliyorum.Umarım işinizi görür.

Sub degistir()

    ActiveCell.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:=",", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

 

[accountant80]

Sadece d3 ten d24 e kadar.

Range("D3:D24").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

 

[k0081]

Belki yukarıdaki makro ile yapmak istiyorsunuzdur tam bilemiyorum ama alternatif olsun diye bir kod ekliyorum.Umarım işinizi görür.

Sub degistir()

    ActiveCell.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:=",", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

EVET Yukarıdaki macro ile yapacağım çünkü büyük harf küçük harf olayı var. ama bu göndermiş olduğunuz kodda başka bir yerde lazımdı.. iyi oldu.. çok teşekkürler..