Seçilen hücrelerdeki son kelimeleri silme

[steppe]

B sütunundan B2-B3-B4 veya B11-B12 hücrelerini seçtiğim zaman bu hücrelerin içindeki en son kelimeyi veya herhangi bir karekteri nasıl silebilirim?

 

[hımmmmmmmm]

çalışmayı incele

sayfanın Worksheet_SelectionChange olayına yazılı ekteki çaılşmaya bir bak...

 

[steppe]

Yardımlarınız için teşekkür ederim.Gönderdiğiniz dosyada hücreleri tek tek seçerek en son kelimeyi silmek gerekiyor.Örnek B5:B15 aralığını seçerek son kelimelerini silmek istiyorum.Birde hücrenin içindeki seçilen tüm karakterleri değilde B8:B25 aralığındaki hücreleri seçerek en sonda bulunan örnek / veya * karekterleri silmek istiyorum.

 

[leumruk]

Yardımlarınız için teşekkür ederim.Gönderdiğiniz dosyada hücreleri tek tek seçerek en son kelimeyi silmek gerekiyor.Örnek B5:B15 aralığını seçerek son kelimelerini silmek istiyorum.Birde hücrenin içindeki seçilen tüm karakterleri değilde B8:B25 aralığındaki hücreleri seçerek en sonda bulunan örnek / veya * karekterleri silmek istiyorum.

Merhaba,
Örnek dosya üzerinde isteğinizi belirtirseniz daha az mesajla, daha kısa sürede, daha kesin çözümlere ulaşabilirsiniz.

 

[steppe]

Örnek dosyaya bakablir misiniz?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu boş bir modüle uygulayın. Sayfada seçim yapıp kodu çalıştırın.

Büyük-küçük harf duyarlı değildir.

Option Explicit
 
Sub SONDAN_VERİ_SİL()
    Dim Hücre As Range, Silinecek_Veri As Variant, Veri As String
    
    Silinecek_Veri = Application.InputBox("Lütfen silinecek veriyi giriniz !")
    If Silinecek_Veri = "" Or Silinecek_Veri = False Then Exit Sub
    
    Silinecek_Veri = UCase(Replace(Replace(Silinecek_Veri, "ı", "I"), "i", "İ"))
    
    For Each Hücre In Selection
        Veri = Right(Hücre.Text, Len(Silinecek_Veri))
        Veri = UCase(Replace(Replace(Veri, "ı", "I"), "i", "İ"))
        If Veri = Silinecek_Veri Then
            Hücre.Value = Mid(Hücre.Text, 1, Len(Hücre.Text) - Len(Silinecek_Veri))
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[steppe]

Korhan kardeş,ilgin için teşekkür ederim.Ekteki dosyayı inceleyebilir misiniz?İşlemi yaptıktan sonra mesaj kutusundaki tamama basıncaya kadar kum saati duruyor.(işlem yapıyor gibi.)Tamama basınca gidiyor.

 

[Korhan Ayhan]

Merhaba,

Dosyanızda çalışmıyor diye belirttiğiniz bölümdeki kelimelerin sonunda bir boşluk bulunmaktadır. Görsel olarak görmesenizde boşlukta bir harf gibi yer kaplar. Bu sebeple kod çalışırken size silinecek veriyi sorduğu zaman "ANKARA " olarak girmeniz gerekecektir. Bu kurala dikkat ederseniz kodu sorun yaşamadan kullanabilirsiniz.

 

[steppe]

Korhan Ayhan Kardeş,yardımlarınız için çok teşekkürler...