Cümlenin sonundaki rakamları silmek

[ASLAN7410]

Herkese hayırlı geceler.

Ekte gönderdiğim sayfamda A sütununda cümleler var, cümlelerin sonunda da
-(çizgi) işareti sonrasında rakamlar var.

Veriler çok olduğu için süzerek yaptığımda çok zaman alıyor.

Yapmak istediğim tek seferde butona bastığımda A sütunundaki verileri çizgi işareti ile
birlikte rakamları atarak D sütununa sadece cümleyi almak istiyorum.

Formüllerle yapmaya çalıştım olmadı.
Yardım edecek arkadaşlara şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Sağdaki sayıların önünden başka cümleler içerisinde - işareti olmayacaksa aşağıdaki kod işinizi görecektir.

NOT:Mavi satır, son dolu satırdan önce boş hücre olabilir diye eklendi.
Bu tür arada boş hücre olmayacaksa mavi satır silinebilir.
.

[FONT="Arial Narrow"]Sub TİREDEN_SAYI_TEMİZLE()
For satır = 2 To [A65536].End(3).Row
[COLOR="Blue"]If Cells(satır, 1) = "" Then GoTo 10[/COLOR]
If Len(Cells(satır, 1)) <> Len(Replace(Cells(satır, 1), "-", "")) Then _
    Cells(satır, 1) = Left(Cells(satır, 1), WorksheetFunction.Search("-", Cells(satır, 1), 1) - 1)
10: Next
End Sub[/FONT]

 

[ASLAN7410]

Sayın Ömer Bey ilginize çok teşekkür ederim.

Yazmış olduğunuz makro tam istediğim gibi olmuş ellerinize sağlık, Allah razı olsun.

Hayırlı sabahlar hayırlı çalışmalar.

 

[Emir Hüseyin Çoban]

.

Hucre araligini secin
Ctrl H (degistir)
Aranan deger: -* (tire yildiz)
Yeni deger: bos birak
Tumunu degistir

.

 

[ASLAN7410]

Sayın Hüseyin Bey sizin ilginize de teşekkür ederim.