Parçaal Satırı

[airborne]

s.a.

aşağıdaki kod ile 2384.TRY 2.384,00 olarak değiştiriyor ve sadece bir hücrede çalıyor. Bu satır yerine c2:d150 arasında çalışması için nasıl bir düzenleme yapılabilir.

Range("c2") = Left(Range("c2").Value, WorksheetFunction.Find("T", Range("c2").Value) - 1)

Selametle.................................

 

[Necdet]

Bul ve değiştiri kullanabilirsiniz.

Sub Makro1()

    With Range("C2:D150")
        .Replace What:=".TRY", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        .NumberFormat = "#,##0.00"
    End With
    
End Sub

 

[airborne]

s.a.

ilginiz için teşekkür ederim ama dosyamda ile yaramıyor.

Selametle..........................

 

[Necdet]

Kendim veri oluşturup denedim.
Dosyanızı görmek gerek

 

[airborne]

s.a.

kodunuzdaki ".TRY" deki . kalkınca oldu.

Teşekkür edeim.