• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sütunları Tarayıp Koşula Göre Bul Değiştir Yaptırma

  • Konbuyu başlatan Konbuyu başlatan xtrkax
  • Başlangıç tarihi Başlangıç tarihi
Katılım
16 Temmuz 2014
Mesajlar
74
Excel Vers. ve Dili
2010 TR
Merhabalar, excel dosyamda yüzlerce sütun mevcut. Bazılarında "ce-" ile başlayan hücreler var.
Örnek vermek gerekirse hücrenin içeriğindeki bazı değerler: "ce-2741-6096", "ce-381-9126" şeklinde. Kalanlar değerler ise: "13748-991", "3211-991", "1258-955" şeklinde devam eden değerler şeklinde.

Örnek:

228748

Bu şekilde onlarca farklı sütun mevcut. Yapmak istediğim şu:

Mesela: "O:EV" arasındaki tüm sütunlardaki "ce-" ile başlayan ifadeleri silerek sonrasındaki "-" değerinden sonra başka sayı yazdırmak istiyorum.
Şöyle ki: üstteki görseldeki tabloda "ce-1190-2060" ifadesi mevcut. Benim istediğim ise bu değerin: "1190-991" olarak değişmesi. 1190 ifadesi zaten "ce-" kısmı silindiği zaman kalan ifade. Bazen bu sayı 5 rakamlı da olabiliyor 4 rakamlı da. Fakat sonrasında gelen tireden sonraki rakamın bir önemi yok. Silinerek sütunda en son tireden sonra en çok yazan rakamın yazılması gerekiyor. Örnekten gidersek bu ifade 991 şeklinde. Arada tek tük 955 gibi ifade de var ama önemli olan en çok sonunda bulunan rakamların yazılması şeklinde.

Aslında işlem mantığı basit fakat ben anlatabildim mi bilemiyorum. Zor bir işlem değilse makrosu konusunda yardımcı olur musunuz? El ile yapılacak gibi değil çünkü çok fazla sütun sayısı var çıkış yolu bulamadım.
 
"Benim istediğim ise bu değerin: "1190-991" olarak değişmesi."
Bu cümlenin cevabı aşağıdaki kodlar.

Diğer cümlelerde yapılması isteneni anlamadım.

Kod:
    Columns("O:EV").Select
    Selection.Replace What:="ce-", Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
 
Geri
Üst