Boşluktan sonra ismi silme

[Sa.NaL]

Merhaba benim sizden ricam ahmet mehmet isimli dosyam var ahmetten sonra bir boşluk bırakıyorum exceli açınca o boşluğu görüp gerisini atsın ve a1'e eşitlesin istiyorum böyle bir kod varsa paylaşabilirmisiniz.dosyam ektedir.

 

[Orion1]

Sub dosya_adı()
Dim dosya As String, i As Integer
On Error Resume Next
Range("A1").ClearContents
dosya = ThisWorkbook.Name
dizi = Split(dosya, " ")
Range("A1").Value = dizi(0)
End Sub

 

[tahsinanarat]

Birden fazla dosyanız var ve bu dosya isimlerini ilk boşluğa kadar olan kısmı kalsın diğerleri silinsin istiyorsunuz, eğer doğru anlamış isem dosya isimlerini değiştirme ile ilgili bir koda ihtayaç var, yani dosya isimlerini bir excel sayfasında listeleyip sonrada istediğiniz şekilde yeniden adlandırılabilir.

 

[tahsinanarat]

Sn. Sa.Nal Evren Gizlen hocamın verdiği cevap doğruysa ben yanlış anlamışım, o halde boşuna başka denemelerle uğraşmayayım diye soruyorum. Bir yanıt verirsenin sevinirim.

 

[Sa.NaL]

Yemek yiyordum hocam kusura bakmayın şimdi inceliyip dönüyorum

 

[Sa.NaL]

Evren hocamın verdiği işime yaradı hocam ilginiz için çok teşekkürler.Kusura bakmayın