İkinci boşluktan öncesini ve sonrasını almak

[ASLAN7410]

Merhaba hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın A2 sütunundan aşağıya doğru sanatçı ismi ve şarkı ismi var.

Yapmak istediğim sanatçı ismini (sanatçı isimleri genelde iki kelimeden oluşuyor) ve şarkı ismini ayrı sütunlara almak istiyorum.

Yardımcı olur musunuz?
.

 

[Haluk]

Sanatçı isimleri 3 kelimeden olursa, örneğin Ali Rıza Binboğa .... gibi, o zaman ayırım yaparken sıkıntı olur.

Siz elle, hücrelerde sanatçı isimlerinden sonra bir karakter ilave edebilirseniz, gerisi kolay...

Örnek;

Ali Rıza Binboğa * Yarınlar Bizim

gibi ...

.

 

[ASLAN7410]

Sayın Haluk Bey ilginiz için çok teşekkür ediyorum, 3 isimli sanatçılar zaten az, sanatçı isimleri genelde 2 kelimeden oluşuyor.
Tek isimli ve 3 isimle sanatçıları da elle düzeltirim.

Örnekteki kriter 2.boşluk, yani 2.boşluğa kadar isimleri almak ve 2.boşluktan sonrasını almak istiyorum.

 

[Haluk]

O zaman;

B2 hücresine;

=LEFT(A2;FIND(" ";A2;FIND(" ";A2)+1)-1)

C2 hücresine;

=SUBSTITUTE(A2;B2;"")

.

 

[ASLAN7410]

Sayın Haluk Bey, Allah razı olsun, süpersiniz çok teşekkür ediyorum.

Hayırlı geceler diliyorum.

 

[Haluk]

Rica ederim, kolay gelsin ....

.

 

[ASLAN7410]

Sayın Haluk Bey, tekrar rahatsız ediyorum.

C2 hücresine alınan şarkı isimlerinin hepsinin başında bir tane boşluk oluşuyor, boşlukları nasıl kaldırabiliriz?

 

[yanginci34]

Alternatif kodla denermisiniz.
Ekli dosyayı görüntüle iki kelime sonra ayır.xlsm

 

[ASLAN7410]

Sayın yanginci34 ilginiz için çok teşekkür ediyorum, bunu formülle yapmak istiyorum.

 

[ASLAN7410]

Sayın yanginci34 kodun aşağıdaki kısmında hata veriyor.


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

 

[Haluk]

Merhaba,
Su anda bilgisayar basinda degilim, deneme sansim yok.
Siz C2 formulunu asagidaki gibi dener misiniz?

=SUBSTITUTE(A2;" " & B2;"")

.

 

[ASLAN7410]

Sayın Haluk Bey, bu seferde A sütunundaki sanatçı ismini ve şarkı isminin tümünü aldı.
Önceki formülün başına kırp formülün ekleyince düzeldi. Çok teşekkür ediyorum.

=KIRP(YERİNEKOY(A2;B2;""))

 

[ASLAN7410]

Sayın yanginci34, hata veren kodun üst kısmına On Error Resume Next kodunu ekleyince sizin kodda çalışmaya devam etti.

Alternatif olarak istediğim gibi oldu, size de çok teşekkür ediyorum.

 

[Haluk]

Tekrar merhaba;

Boşluk karakterini sona koymam lazımdı !

C2 hücresine gireceğiniz bu formül, işi görür...

=SUBSTITUTE(A2;B2 & " ";"")

.

 

[yanginci34]

Mesajınızı yeni gördüm kusuruma bakmayın zaten siz çözüm bulmuşsunuz dönüş yaptığınız için teşekkürler iyi geceler

 

[ASLAN7410]

Sayın Haluk Bey, tam istediğim gibi oldu, ellerinize sağlık, çok teşekkür ediyorum.

Hayırlı geceler diliyorum.

 

[Haluk]

Rica ederim, size de iyi geceler.

.