Hücre içinde parantez içindeki kelimeleri sildirmek.

[kopernick]

Merhaba.

Bir hücre içersinde yer alan cümlenin yanında yer alan parantez ve içersindki kelime ya da kelimelerin silinmesi ile ilgili nasıl bir makro yazılabilir?

İyi çalışmalar.

 

[asi_kral]

Merhaba.

Bir hücre içersinde yer alan cümlenin yanında yer alan parantez ve içersindki kelime ya da kelimelerin silinmesi ile ilgili nasıl bir makro yazılabilir?

İyi çalışmalar.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub belli_noktadan_sonrasını_yok_et_1967()
'Konu       :   Parantez Sonrasını Yok Et
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
Dim SAT As Long, VER As String
Application.ScreenUpdating = False
For SAT = 1 To Cells(Rows.Count, "A").End(xlUp).Row
VER = Cells(SAT, "A")
Cells(SAT, "A") = Mid(VER, 1, InStr(1, VER, "(") - 2)
Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

 

[Murat OSMA]

Alternatif...

Sub Emre()
    Dim i As Integer
    For i = 1 To Range("A65536").End(3).Row
        Cells(i, 2) = Split(Cells(i, 1), " ", -1)
    Next i
    i = Empty
End Sub

 

[kopernick]

Sayın Emre Bey'in makrosunda eğer isimler, isim ve soy isim şeklinde iki kelimeden oluşuyorsa parantezler ve içi siliniyor ancak soy isimi baz almadığından. Bu durumda eksik kalıyor. paranteze kadar 2 ve 2 den çok kelime ya da isim var ise bu makro nasıl olmalı?

Yardımlarınız için şimdiden çok teşekür ediyorum elinize sağlık.

 

[Murat OSMA]

Doğru anladım mı emin değilim ama, şu satırı bulun ve değiştirin;
Boşluk yerine ( işaretini yazın...

Cells(i, 2) = Split(Cells(i, 1), "(", -1)

Bu arada Adım Murat...

 

[Korhan Ayhan]

Merhaba,

Bu işlemi formüllerlede yapabilirsiniz.

=EĞER(ESAYIYSA(BUL("(";A1));KIRP(SOLDAN(A1;BUL("(";A1)-1));A1)

 

[kopernick]

Çok Teşekkürler sorun haloldu.
Kolay gelsin.