Virgülden önceki kısmı nasıl silebilirim ?

[rasselstein]

Arkadaşlar bu sitede çok yeniyim elimde 5.000 satırlık bir dosaya var ve ben virgülden önceki kısımları silmek zorundayım bunu kısaca nasıl halledebilirim acil yardım şimdiden teşekkürler...

 

[apocalyt]

dosyanızdan ufak bi kısmını örnek oluşturcak şekilde yüklerseniz yardımcı olcak birileri olabilir..

 

[mustafa1205]

Dosyanızı ekleyin bir bakalım

 

[rasselstein]

bi kısmı

Ekli dosyayı görüntüle Yeni Microsoft Office Excel Çalışma Sayfası.xlsx bi kısmı bu şimdiden teşekkürler

 

[rasselstein]

virgülden önceki kısımları silmek istiyorum sadece mail olan kısımların kalması gerekiyor ve tek tek silmekle bitmeyecek kadar uzun....

 

[apocalyt]

bir modüle kopyalayıp çalıştırın..

Sub virgül()
On Error Resume Next
For x = 1 To [a10000].End(xlUp).Row
a = Split(Cells(x, 1), ",")
Cells(x, 1) = a(1)
Next x
End Sub

 

[rasselstein]

beceremedim sanırım hocam

 

[apocalyt]

öncelikle dosyanızı açın.. sonra alt+f11 tuşlarına basın..yukarıdan "insert" sekmesine tıklayın..daha sonra "module" tıklayın..açılan ekrana benim size gönderdiğim kodu kopyalayın..en üstte "option explicit" yazısını silin..daha sonra f5 tuşuna basıp "run" diyin. işlem tamadır

 

[rasselstein]

Dostumm çok teşekkür ediyorum gerçektennnn
,

 

[apocalyt]

rica ederim..

 

[monelogg]

Merhabalar, sorun çözülmüş ama bilgi amaçlı olarak şu linki de inceleyebilirsiniz:
http://www.excel.web.tr/f14/parcaal-fonksiyonu-t127104.html

Formül alternatifidir.