Parantezleri ve parantez içlerini kaldırma

[iaslan517]

Merhabalar, Sayfadaki tüm köşeli parantez aralıkları ve içindekileri kaldırma. örneğin [3,15] ekte sayfada mevcuttur. yapabilirsek çok minnettar kalırım.

 

[Murat OSMA]

Formülle

[SIZE="2"]=[COLOR="Red"]EĞERHATA[/COLOR]([COLOR="Blue"]SOLDAN[/COLOR](B7;BUL("[";[COLOR="Lime"]YERİNEKOY[/COLOR](B7;[COLOR="Magenta"]DAMGA[/COLOR](10);"")));"")[/SIZE]

Makroyla

[SIZE="2"]Sub Emre()
    Dim i%
    For i = 7 To Range("A65536").End(3).Row
        If InStr(1, Cells(i, 2).Value, "[") > 0 Then
            Cells(i, 2).Value = Split(Cells(i, 2).Value, Chr(10))(0)
        End If
    Next i
    i = Empty
End Sub[/SIZE]

Not: Makro önerilir..​

 

[iaslan517]

murat hocam anladığım kadarıyla bu sadece a sütunu için tüm sayfa için olanı yapılabilir mi.

 

[Ömer]

Merhaba,

Doğru anladıysam alternatif olsun.

Ctrl+H(Bul değiştir) den;

Aranan bölümüne:

[*]

yazıp tümünü değiştir butonunu kullanın.

.

 

[Emir Hüseyin Çoban]

.

Ctrl H ile açılan pencerede Seçenekler > içinde bul > çalışma kitabı
Şeklinde yaparak tüm kitapta değişiklik yapabilirsiniz.

.

 

[iaslan517]

çok teşekkür ederim