Belirli bir yazıda , belirli bir kelimeden öncesini sildirmek.

[gqn]

Arkadaşlar selam , diyelimki 1000 sütunumuz var , bu 1000 sütunda farklı farklıaçıklamalar var.

Her açıklamanın ortalarında " ürün ölçüleri" yazıyor.

Benim yapmak istediğim , topluca , " ürün ölçüleri" kelimesinden önce ne yazılmışsa hepsini sildirmek.

Örnek olarak : " ahmet mehmet ve ayşe okula gidiyorlardı ürün ölçüleri diye yazıyı görünce hemen markete girdiler"

Evet yukarıdaki cümle gibi binlerce cümlem var excel tablosunda.Yapmak istediğim topluca "ahmet mehmet ve ayşe okula gidiyorlardı ürün" cümlesini yan, ürün ölçüleri kelimelerinden önce ne var ne yok sildirmek.

Bu arada ürün öncesi kelimesinden önce hiç bir yazı sabit değil , bu sebeple değiştir yapamıyoruz.Sabit olan tek şey " ürün ölçüleri"

Umarım derdimi anlatabilmişimdir.Çok teşekkür ederim.

 

[gqn]

pardon yukarıda yanlış yazmışım ; ahmet mehmet ve ayşe okula gidiyorlardı " cümlesini sildirmek istiyorum.

 

[Korhan Ayhan]

Veriniz A1 hücresinde ise B1 hücresine formülü uygulayıp deneyiniz.

=PARÇAAL(A1;MBUL("ürün ölçüleri";A1;1);1024)

 

[gqn]

Arkadşalar tüm hücrelerdeki yazıların tamamı farklı.

ortak özellikleri ortalarında " ürün ölçüsü" yazıyor olması.


örnek dosya linki ve bir kaç satır var bu excel tablosunda.Durumu daha iyi anlatmak adına.

Bakın açıklamarda bir sürü şey yazıyor fakat ortalarda " ürün açıklaması" yazıyor.ürün açıklamasından önce ne var ne yok silsin istiyorum.

Bu işi yapabilecek arkadaşlara gönüllerinden kopan bir ücret de ödeyebilirim

teşekkürler.

http://s2.dosya.tc/server8/md00dq/ornek.xlsx.html

 

[Haluk]

Verdiğiniz dosyadaki örneklerde ne "ürün açıklaması" ne de "ürün özellikleri" metni var.

Düzgün bir örnek ve beklediğiniz sonucu da yazın, konu anlaşılsın ....

.

 

[gqn]

Resimde daha net anlatmaya çalıştım.Verdiğim örnek excel dosyasında " ürün açıklamaları" diye bir bölüm geçiyor.O bölümden öncesini temizlemek istiyorum

 

[veyselemre]

Sub test()
    ara = "<strong><u>Ürün Ölçüleri:</u></strong>"
    If WorksheetFunction.CountA([a:a]) = 0 Then
        MsgBox "Sütunda Veri Bulunamadı.."
        Exit Sub
    End If
    For Each cel In [a:a].SpecialCells(xlCellTypeConstants)
        If InStr(cel, ara) > 0 Then
            bol = Split(cel, ara)
            cel.Value = ara & bol(1)
        End If
    Next cel
End Sub

 

[gqn]

Çok teşekkür ederim.Bir deneyeceğim.

 

[veyselemre]

Ürün Açıklamalarından başlamasını istiyorsanız;

Sub test()
    ara = "<strong><u>Ürün Açıklamaları:</u></strong>"
    If WorksheetFunction.CountA([a:a]) = 0 Then
        MsgBox "Sütunda Veri Bulunamadı.."
        Exit Sub
    End If
    For Each cel In [a:a].SpecialCells(xlCellTypeConstants)
        If InStr(cel, ara) > 0 Then
            bol = Split(cel, ara)
            cel.Value = ara & bol(1)
        End If
    Next cel
End Sub