Metin içerisinde km yazan kısmı silme

[kelmor]

mrb arkadaşlar metin içerinde (1 Km), (1,5 Km), (1,578 Km) gibi çeşitli formlarda yazılmış yaklaşık 3000 satırlık bir dosyam var istediğim (x,xxx Km) yazan kısımları silinmesini istiyorum tşk ederim

 

[altanson]

ctrl + h bul değiştirden

aranan " Km)" (ilk karakter boşluk)

yeni değer ")"

aklıma gelen en basit yöntem bu.

 

[N.Ziya Hiçdurmaz]

yanıt

Metni sütunlara dönüştür ile bu isteğinizi yapabilirsiniz.

 

[kelmor]

V.Basic For Applications
ilgine çok tşk edderim listem çok uzun ve ben sadece (x,xxx Km) yazan kısımların metinden çıkmasını istiyorum metni sütunlara cevirerek denedim fakat benim metnimin içerisinde (002) gibi yazan metinlerde var bu yöntemle sonuç alamadım 2. bir örnek dosya daha yolluyorum yardımların için tşk ederim

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Kod yeni biçimlenmiş veriyi C sütununa listeler. Umarım faydası olur.

Sub AYIKLA()
    [C:C].ClearContents
    For X = 2 To [B65536].End(3).Row
    If Cells(X, 2) Like "*" & " Km)" & "*" Then
    For Y = Len(Cells(X, 2)) To 1 Step -1
    If Mid(Cells(X, 2), Y, 1) <> " (" Then
    KR&#304;TER = Mid(Cells(X, 2), Y, 1) + KR&#304;TER
    If KR&#304;TER Like "*" & "Km" & "*" And KR&#304;TER Like "*" & "(" & "*" Then
    Cells(X, 3) = Cells(X, 2)
    Cells(X, 3).Replace KR&#304;TER, "", LookAt:=xlPart
    Cells(X, 3) = RTrim(Cells(X, 3))
    KR&#304;TER = ""
    GoTo DEVAM
    End If: End If: Next
DEVAM: End If: Next
End Sub

 

[kelmor]

çok tşk ederim size minettarım çok işime yaradı

 

[tahsinanarat]

BaŞka Bİr Altarnatİf

Formül ile yapılmış başka bir altarnatif, bu arada COST_CONTROL'un kodlarını ben çalıştıramadım, çalışan şekliyle dosyaya eklerse sevinirim

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Formül ile yapılmış başka bir altarnatif, bu arada COST_CONTROL'un kodlarını ben çalıştıramadım, çalışan şekliyle dosyaya eklerse sevinirim

 

[tahsinanarat]

AYIKLA butonuna yeniden makro ata diye tanıttığımda çalıştı, indirilmiş haliyle "Ayıkla makrosu bulanamadı" şeklinde mesaj veriyor. Teşekkür ederim ilginize. Saygılar.

 

[Korhan Ayhan]

Selamlar,

Uyarınız için teşekkür ederim. Üstteki mesajımdaki dosyayı güncelledim.