Replace

Söz dizimi​

Replace(expression, find, replace, start, count, compare)

• expression: Değiştirilecek parçayı içeren metin. Zorunludur.
• find: Aranan alt metin. Zorunludur.
• replace: Bulunan parçanın yerine konacak metin. Zorunludur. Boş metin ("") verirseniz bulunan parçalar silinir.
• start: Aramanın başlayacağı karakter konumu. İsteğe bağlıdır, varsayılanı 1'dir. Dönen metin de bu konumdan başlar, yani önceki karakterler sonuca dahil edilmez.
• count: Yapılacak en fazla değişiklik sayısı. İsteğe bağlıdır, varsayılanı -1'dir ve tüm eşleşmelerin değiştirileceği anlamına gelir.
• compare: Karşılaştırma türü. İsteğe bağlıdır; verilmezse modülün Option Compare ayarı geçerlidir, ayar yoksa ikili (büyük/küçük harf duyarlı) karşılaştırma yapılır.

Dönüş değeri ve özel durumlar​

• expression boşsa: Sonuç boş metindir ("").
• find boşsa: expression olduğu gibi döner.
• replace boşsa: find parçaları metinden silinir.
• count 0 ise: expression olduğu gibi döner.
• start, expression uzunluğundan büyükse: Sonuç boş metindir.
• expression Null ise: Çalışma zamanı hatası oluşur.

Karşılaştırma sabitleri​

• vbBinaryCompare (0): İkili karşılaştırma; büyük ve küçük harf farklı sayılır.
• vbTextCompare (1): Metin karşılaştırması; büyük ve küçük harf fark etmez.
• vbDatabaseCompare (2): Yalnızca Microsoft Access için geçerlidir, Excel'de kullanılmaz.

1. Telefon numarasındaki tireleri silme​

Option Explicit

Sub TireleriTemizle()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ActiveSheet

    For i = 2 To 6
        ' Önce hücreyi metin biçimine alın, baştaki sıfır korunsun
        ws.Cells(i, 3).NumberFormat = "@"
        ' Tireleri boş metinle değiştirerek silin
        ws.Cells(i, 3).Value = Replace(ws.Cells(i, 2).Value, "-", "")
    Next i
End Sub

2. Büyük/küçük harf duyarlılığı​

Option Explicit

Sub ParaBirimiDuzelt()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ActiveSheet

    For i = 2 To 4
        ' Büyük/küçük harf fark etmeksizin tüm "tl" ifadelerini değiştirin
        ws.Cells(i, 2).Value = Replace(ws.Cells(i, 1).Value, "tl", "TRY", 1, -1, vbTextCompare)

        ' İkili karşılaştırmada yalnız küçük harfli "tl" eşleşir
        ws.Cells(i, 3).Value = Replace(ws.Cells(i, 1).Value, "tl", "TRY", 1, -1, vbBinaryCompare)
    Next i
End Sub

3. Değişiklik sayısını ve başlangıcı sınırlama​

Option Explicit

Sub SinirliDegistir()
    Dim ws As Worksheet
    Dim i As Long

    Set ws = ActiveSheet

    For i = 2 To 4
        ' Yalnızca ilk eşleşmeyi değiştirin (start = 1, count = 1)
        ws.Cells(i, 2).Value = Replace(ws.Cells(i, 1).Value, "-", "/", 1, 1)

        ' 4. karakterden başlayın; önceki karakterler sonuca dahil edilmez
        ws.Cells(i, 3).Value = Replace(ws.Cells(i, 1).Value, "-", "/", 4)
    Next i
End Sub

Kullanırken dikkat edin​

• start değeri sonucu kırpar: start bağımsız değişkenini 1'den büyük verirseniz dönen metin, o konumdan öncesini içermez. Metnin tamamını koruyup yalnızca belirli bir yerden sonrasını değiştirmek istiyorsanız Left ve Mid işlevleriyle parçaları birleştirin.
• Özgün metin değişmez: Replace sonucu yalnızca döndürür. Hücredeki değeri değiştirmek için sonucu aynı ya da başka bir hücreye yazmanız gerekir.
• Sayısal görünümlü sonuçlar: Sonuç yalnızca rakamlardan oluşuyorsa hücreye yazarken Excel bunu sayıya çevirebilir ve baştaki sıfırları siler. Telefon numarası, posta kodu gibi değerlerde hücrenin NumberFormat özelliğini önce "@" yapın.
• Büyük/küçük harf ve Türkçe karakterler: Varsayılan karşılaştırma büyük/küçük harfe duyarlıdır. Duyarsız arama için vbTextCompare kullanın; ancak i, ı, İ, I harfleri içeren aramalarda sonucu önceden deneyin.
• Null ve hata değerleri: expression bağımsız değişkeni Null ise hata alırsınız. Hücrede hata değeri (#N/A gibi) varsa Value ile okumak uyumsuzluk hatası verir; önce IsError ile denetleyin.
• Replace işlevi ile Range.Replace yöntemi: Replace işlevi bir metin değişkeni üzerinde çalışır. Range.Replace yöntemi ise hücre aralığındaki değerleri doğrudan değiştirir ve Bul ve Değiştir penceresi ayarlarını (MatchCase, LookAt gibi) kullanır. İki yapı birbirinin yerine geçmez.
• İlgili konular:
  • Range.Replace yöntemi: Hücre aralığında toplu bul ve değiştir yapar.
  • InStr: Bir metin içinde alt metnin konumunu bulur.
  • Mid, Left, Right: Metnin parçalarını alır.
  • Split ve Join: Metni ayırıcıya göre böler ve yeniden birleştirir.
  • Trim: Baştaki ve sondaki boşlukları siler.
  • YERİNEKOY: Çalışma sayfasında metin içindeki belirli parçayı değiştirir (SUBSTITUTE).
  • DEĞİŞTİR: Çalışma sayfasında konum ve uzunluğa göre metin değiştirir (REPLACE).
  • Option Compare: Modülün varsayılan karşılaştırma türünü belirler.