Excel Vba boşluk kaldırma yardim

[Fatih293]

Kolay gelsin Excel de elimde birden fazla adres var. Örneğin ;
Genç mahallesi Sebiller Sokak Bağcılar / İstanbul
Böyle bir adres olduğunu var sayalım ben Bağcılar'dan ve / den sonraki boşlukları kaldırmak istiyorum bunu VBA kullanarak nasıl yapabilirim şimdiden teşekkürler.

 

[RBozkurt]

Deneyiniz.

A sütununda " / " değerini "/" ile değiştirir. İşinizi görür herhalde.

Sub Değiştir()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row ' A sütunundaki son satırın numarasını alır
   
    Dim cell As Range
    For Each cell In Range("A1:A" & lastRow)
        Dim text As String
        text = cell.Value
        If InStr(text, " / ") > 0 Then ' Eğer hücrede " / " bulunursa
            text = Replace(text, " / ", "/") ' " / " değerini "/" ile değiştirir
            cell.Value = text
        End If
    Next cell
End Sub

 

[Muzaffer Ali]

Merhaba.
Altrenatif
Adresler A sütunda yazdığı varsayılırsa, sonuçları B sütununa döndüren aşağıdaki kodu kullanabilirsiniz.

Sub Test()
    With Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row)
        .Formula = "=substitute(A1,"" / "", ""/"")"
        .Value = .Value
    End With
End Sub

 

[Fatih293]

Teşekkür ederim işime yaradi

 

[Asri]

Teşekkür ederim işime yaradi

Alternatif olarak ,
Ctrl + h (Bul değiştir ile) Bul boşluk/boşluk " / ", değiştire de / yazıp tümünü değiştir diyebilirsiniz.
En fazla a / 2 gibi olanları da aynı şekilde değiştirir.