Hücre İçinde Arama Yap ve Değiştir

[Filose]

Merhaba,
Bankadan gelen ektrelerde açıklama kısmında bir hücrede bazen uzun ve anlamsız yazılar var.

Ben hücrenin içinde yazılan herhangi bir metni "BUL" ve "DEĞİŞTİR" ile yapıyorum. Ancak değiştirmek istediğim hangi kelime ise hücrenin tamamına onu yazsın. Örn: Bir hücrede "12314654 KMHSA 5456/NET SATIŞABC ŞTİ."

Ben "NET SATIŞ" kelimesini arattırıp bulunca o hücreye sadece "NET SATIŞ YAZSIN" Başka birşey yazmasın bu kadar.

Makro ile olursa makro içinde değiştirilmesi istenen kelime değişkenleri örn: 20 adet olabilir. Bir düğmeye basınca bütün hücreleri 20 adet kelime değişkeninin hepsini değiştirsin gibi.

Şimdiden çok teşekkürler

Saygıyla kalın

Ahmet

 

[Ömer]

Merhaba,

Aranan bölüme; *NET SATIŞ*, Yeni değer bölümünede NET SATIŞ yazarak manuel yapabilirsiniz.

Makro ile birden fazla değişimi aynı anda yapmak için ise bu şekilde deneyin. Arananlar bölümündeki değerleri ben tahmini yazdım, siz kendinize göre değiştirirsiniz.

Sub Degistir()
 
    Dim deg(), i As Byte
 
    deg = Array("aaa", "bbb", "ccc") [COLOR=darkgreen]'arananlar[/COLOR]
 
    For i = 0 To UBound(deg)
        Cells.Replace "*" & deg(i) & "*", deg(i)
    Next i
 
End Sub

.

 

[Filose]

Merhaba Ömer Bey;
Yardımlarınız için çok teşekkür ederim. Tamamen istediğim gibi oldu.

Esen kalın,
Ahmet