Msg ile hücre sonundan metin silme

[steppe]

Msgbox ile hücre sonundan metin silme

Msgbox ile A sütunundaki hücrelerin sonundaki örnek: / İstanbul gibi msgboxa girilen kelime veya kelime grubunun silinmesi için makro olabilir mi?yardımlarınız için teşekkürler.

 

[hamitcan]

Dosyanızı ekleyin.

 

[hamitcan]

Sub Makro1()
Columns("g").Clear
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:= _
        "/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
        Array(6, 1)), TrailingMinusNumbers:=True

For i = 1 To [a65536].End(3).Row
a = ""
For j = 1 To 5
a = a & " " & Cells(i, j)
Next
Cells(i, "g") = a
Columns.AutoFit
Columns("g").Font.Color = vbRed
Next
MsgBox "Bitti"
End Sub

 

[steppe]

Msgbox ile hücre sonundan metin silme

Hamitcan Kardeş yardımların için teşekkür ederim.İstediğim gibi olmadı.Ekte bir örnek gönderiyorum,onun üzerinde değişiklik yapılarak olabilir mi?dosyanın içinde gerekli açıklama var.Yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Doğru mu anladım bilmiyorum. İlçe ve il değiştirecekseniz / in sağı solu boş olması gerekmiyor, ama sadece il değiştirecekseniz mutlaka önce / sonra il adını giriniz.

Sub arananSil()
    Dim i       As Long, _
        j       As Integer, _
        Aranan  As Variant, _
        Veri    As String
        
    Application.ScreenUpdating = False
    
    Aranan = Application.InputBox("Lütfen silinecek veriyi giriniz !")
    If Aranan = "" Or Aranan = False Then Exit Sub
    Aranan = Replace((Replace(Aranan, " ", "")), "/", " / ")
        
    For i = 1 To Cells(Rows.Count, "C").End(3).Row
        j = InStr(1, Cells(i, "C"), Aranan)
        If j > 1 Then Cells(i, "D") = Left(Cells(i, "C"), j)
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamamdır.....", vbInformation, "Necdet YEŞERTENER -- > [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub

 

[steppe]

Msgbox ile hücre sonundan metin silme

Necdet Yeşertener Kardeş,ilgin için teşekkür ederim.İl ve ilçe değiştirme değilde sondan / ve ankara kelimesini c sütununda silme.Gönderdiğiniz kodla hücrenin sonundaki Demetevler / Ankara şeklinde ise / Ankara siliniyor.Bunun yanında Aydınlıkevler/Ankara şeklinde ise /Ankara silinmiyor. /Ankara (Slaşın solundaki 1 boşluk dahil)yazarak her iki şekilde olanınıda silmek istiyorum.Yardımlarınız için şimdiden teşekkürler.

 

[Necdet]

Necdet Yeşertener Kardeş,ilgin için teşekkür ederim.İl ve ilçe değiştirme değilde sondan / ve ankara kelimesini c sütununda silme.Gönderdiğiniz kodla hücrenin sonundaki Demetevler / Ankara şeklinde ise / Ankara siliniyor.Bunun yanında Aydınlıkevler/Ankara şeklinde ise /Ankara silinmiyor. /Ankara (Slaşın solundaki 1 boşluk dahil)yazarak her iki şekilde olanınıda silmek istiyorum.Yardımlarınız için şimdiden teşekkürler.

Merhaba,

Siz sadece ili mi silmek istiyorsunuz?

 

[steppe]

Msgbox ile hücre sonundan metin silme

Merhaba,

Siz sadece ili mi silmek istiyorsunuz?

Merhaba,
Sadece / Ankara ( / ve Ankara ikisini birlikte) silmek istiyorum.