Hücrelerdeki gereksiz bilgileri temizlemek hakkında

[tb]

Merhabalar,

Sorum başlıktada belirttiğim üzere Hücrelerdeki gereksiz bilgilerin silinmesi hakkında. Ticari programdan excel formatında bir dosya kaydettiğimde içinde bulunmasını istemediğim ve tek tek elle sildiğim bilgiler mevcut.

Örnek : a1 hücresi :" DM/1525/ 123456 N. Fat. ABC Ltd. Şti. "
a2 hücresi :" DM/1829/ 656565 N. Fat. DCF A.Ş. " gibi

burada gereksiz ve silinmesini istediğim bilgi " DM/1525/ " , "DM1829/" DM' den sonra gelen rakamlar her hücrede farklı olduğu için Bul değiştiri kullanamıyorum. Bunun için DM ile başlayıp en sondaki "/" işareti ile biten bölümü silebileceğim bir kolay yol varmı yada macro. Yardımlarınız için şimdiden teşekür ederim. İyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya eklermisiniz.

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Sub Makro1()
Selection.Formula = "DM/"
End Sub

 

[Korhan Ayhan]

Selamlar,

Verileriniz A sütununda ise A sütununu tamamen seçin. VERİ menüsünden METNİ SÜTUNLARA DÖNÜŞTÜR seçeneğini seçin. SABİT GENİŞLİK seçeneğini seçip İLERİ tuşuna tıklayın. VERİ ÖNİZLEME penceresinden verileri ayırmak istediğiniz alanlara tıklayarak ayırıcı okları (istemediğiniz okları kaldırmak için ok üzerinde çift tıklayın) yerleştirip SON butonunu tıkladığınızda hücrelerden gereksiz bilgiler ayrılmış olacaktır.

 

[tb]

Cevaplarınız için teşekür ederim. İyi çalışmalar.

 

[tb]

Arkadaşlar ilk baştaki mesajımı yeniledim. Eklediğim dosyadaki gibi bir işlem yaptırabilmemiz mümkünmüdür ?

 

[Seyit Tiken]

Kod :

Sub Düğme1_Tıklat()
[A2:A100].Replace What:=[A1].Value, Replacement:=""
End Sub

Not : A1 hücresine silinecek kelimeyi yazın. Silinmesi gereken veriler A2:A100 arasında gösterilmiştir.

 

[tb]

Sayın, Seyit Tiken Çok teşükür ederim. Bu vermiş olduğunuz bilgi işimi oldukça hızlandıracak.