Belli karakter sonrasını sil

[yteizme]

Merhaba,

A sütununda listem var.Bu liste satırları içerisinde sayı ve rakamlar var.. Yapmak istediğim ( ,,,,,,,,"NGW" ) parantez içindeki karakterleri makro gördüğü zaman geri kalan herşeyi silsin.

Örn:

U,"BASRI","MBASRI@daim.com","BASIC",,,,,,,,"NGW","XLMGEORGIAXLM","PLMSLPOST","MBASRI",,"20C50050-10FA-0000-8A93-44A2F233CEB8",

Makro sonrası

U,"BASRI","MBASRI@daim.com","BASIC"


Teşekkürler..

 

[yteizme]

Hallettim ,sizinlede paylaşayım.Kolay gelsin.

Sub sonrasil()

Const sWord1 As String = "NGW"

Dim r As Range


For Each r In Range("A1", Range("A" & Rows.Count).End(xlUp))

r.Value = afterdeleting(CStr(r.Value), sWord1)

Next

End Sub

Function afterdeleting(s As String, sSpecialWord As String) As String

Dim i As Long

i = InStr(s, sSpecialWord)

If i Then
afterdeleting = Trim(Left(s, i - 1 + Len(sSpecialWord)))
Else
afterdeleting = s
End If

End Function

 

[janveljan]

Fonksiyon olarak

=SOLDAN(A1;BUL("b";A1)-1)

Makro olarak

Sub sil()
For i = 1 To [A65536].End(xlUp).Row
Cells(i, 1) = Mid(Cells(i, 1), 1, InStr(Cells(i, 1), ",,,,,,,," & Chr(34) & "NGW" & Chr(34)) - 1)
Next
End Sub

dener misiniz?

 

[yteizme]

Teşekkürler janveljan.Çok başarılı.

 

[MELTUN]

Hallettim ,sizinlede paylaşayım.Kolay gelsin.

Sub sonrasil()

Const sWord1 As String = "NGW"

Dim r As Range


For Each r In Range("A1", Range("A" & Rows.Count).End(xlUp))

r.Value = afterdeleting(CStr(r.Value), sWord1)

Next

End Sub

Function afterdeleting(s As String, sSpecialWord As String) As String

Dim i As Long

i = InStr(s, sSpecialWord)

If i Then
afterdeleting = Trim(Left(s, i - 1 + Len(sSpecialWord)))
Else
afterdeleting = s
End If

End Function

Sn;Arkadaşım
Yukarıda yazmış olduğunuz kodu silmem gereken karekterlerde denedim güzel çalışıyor.Ancak şöyle bir durumla karşılaştım."NGW" nin yerine koyduğum karekteri silmeden bırakıyor.Ayrıca diyelim ki gerek "A"gerekse"AC" sütununlarında silinmesi gereken değişik satırlarda değişik karekterler içeren yazılar var .Örneğin;"NGW","AWN,"BNG" gibi tek kodla istenilen karekterler dahil sonrasını silme işlemleri iki ayrı sütunda' da yapmak için ne yapılabilir.Yardımcı olursanız memnun olurum saygılarımla